Quantcast
Channel: VBForums - Visual Basic 6 and Earlier
Viewing all 21869 articles
Browse latest View live
↧

Color Change in ExcelSheet

September 23, 2012, 1:09 pm
$
0
0
I Simple want background color of the Col A & COL B .Should needs to be yellow in excel sheet .it is easy to change Font but i don't know how should i change background color of ColA & ColB
Only . let me know please .
Code:
For I = 0 To 4
    ws.Range("A1").Offset(0, I).Value = UCase(strNames(I))  'Now i have written all Headers
    ws.Range("A1:K1").Font.Bold = True
    ws.Range("A1:K1").Font.Underline = True
Next
Attached Images
 
↧
Search

VB5 - VB6 What's going on here?

September 23, 2012, 1:55 pm
$
0
0
I have two VB projects. I wrote both of them in VB6. By themselves, they work perfectly. Now I combine the two projects together and create a Group.vbg file. When I click on the Group.vbg file the first error I get is "Retained" is an invalid keyword.......Project1.vbp could not be loaded.
When I look inside the vbp file I see the Retained=0 keyword. It wasn't there before. So, I remove itand resave the vbp file. Now I click on Group.vbg again and again this error: "Retained" is an invalid keyword.......Project2.vbp could not be loaded. This time it's Project2.vbp. So, I edit Project2.vbp and remove the Retained keyword, which was not there before just like Project1.vbp. Now I click on the Group.vbg file again and this time it loades up the two projects but noe when I go to run it I get invalid errors on certain functions: Split, InStr, and others. These are valid in VB6 but they are not valid in VB5. I also noticed after the group project was loaded the the version of VB is not VB 6.0 but rather it is VB 5.0.

Since both Project1 and Project2 were written in VB6 the only thing I can conclude is that when they are combined as a group something changes and the system thinks the group is a VB5 group project. I can not get around this.

Can anyone tell me why this is happening?
↧
↧

[RESOLVED] Reading and Writing To text file question

September 23, 2012, 2:15 pm
$
0
0
Hi all

I want to copy the contents of 16 listbox to 16 text files 1 for each box with a command button then be able to copy the contents of each of the 16 text files to each 16 listboxes
I.E LST1(1) = LST1.TXT and so on for each listbox I have wrote some code but its long winded I want to know if there is a short cut in doing with strings and values

This is to write to file
Private Sub Command6_Click()
Dim A As Integer
Dim B As Integer
Dim C As Integer
Dim D As Integer
Dim E As Integer
Dim F As Integer
Dim G As Integer
Dim H As Integer
Dim I As Integer
Dim J As Integer
Dim K As Integer
Dim L As Integer
Dim M As Integer
Dim N As Integer
Dim O As Integer
Dim P As Integer



Open "C:\users\administrator\lst1.txt" For Append As #1
For A = 0 To Main.lst(1).ListCount - 1
Print #1, Main.lst(1).List(A)
Next
Close #1

Open "C:\users\administrator\lst2.txt" For Append As #2
For B = 0 To Main.lst(2).ListCount - 1
Print #2, Main.lst(2).List(B)
Next
Close #2
Open "C:\users\administrator\lst3.txt" For Append As #3
For C = 0 To Main.lst(3).ListCount - 1
Print #3, Main.lst(3).List(C)
Next
Close #3
Open "C:\users\administrator\lst4.txt" For Append As #4
For D = 0 To Main.lst(4).ListCount - 1
Print #4, Main.lst(4).List(D)
Next
Close #4

This is for contents from the text file back to each listbox
Private Sub Command7_Click()
Dim sData As String
Dim sFilename As String
Dim sData2 As String
Dim sFilename2 As String
Dim sData3 As String
Dim sFilename3 As String
Dim SUM As String
sFilename = "C:\users\administrator\lst1.txt"
Open sFilename For Input As #1
While Not EOF(1)
Line Input #1, sData
Main.lst(1).AddItem sData
Wend
Close #1

sFilename2 = "C:\users\administrator\lst2.txt"

Open sFilename2 For Input As #2
While Not EOF(2)
Line Input #1, sData2
Main.lst(2).AddItem sData2
Wend
Close #2

sFilename3 = "C:\users\administrator\lst3.txt"

Open sFilename3 For Input As #3
While Not EOF(3)
Line Input #3, sData3
Main.lst(3).AddItem sData3
Wend
Close #3

Thanks
Steve
↧

Name conflicts

September 23, 2012, 5:35 pm
$
0
0
In a Group VB project which contains two VB projects. One VB project is just a simple Form with a button on it and the other project is a bucch of BAS modules and a UserControl.

During design time I open up the part of the project with the Form on it and I click on Toolbox to open up the available tools. On the toolbox is the icon for the UserControl so when I click on it and then draw the UC on the Form I get this message:

Name conflicts with existing module, project, or object library.

What name is it referring to and what could it be referring to as being in conflict with?
↧

Change the Visual Style of Controls like Web Applications

September 23, 2012, 6:23 pm
$
0
0
Hi all,

As many of us know that we can change the look (Skin) of controls using CSS in Web applications, can we apply this method in Visual Basic. Or how can we change the look of controls in VB 6,

Thanks
↧
↧

Runtime Error '6' Overflow

September 23, 2012, 8:14 pm
$
0
0
Hello can anyone help me. I am beginner user of visual basic 6.0. i created a simple code. but I'm having trouble with it. it shows a runtime error '6' overflow. I did everything but this kinda hard for me to solve.
Code:
Dim result1 As Double
Dim result2 As Double
Dim result3 As Double

Private Sub Command1_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
End Sub

Private Sub Text2_Change()
result1 = Val(Text1.Text) * Val(Text2.Text)
Text3.Text = result1
End Sub

Private Sub Text5_Change()
result2 = Val(Text5.Text) / Val(Text4.Text)
Text6.Text = result2
End Sub

Private Sub Text8_Change()
result3 = Val(Text8.Text) / Val(Text7.Text)
Text9.Text = result3
End Sub
this is the code. when I'm trying to execute it and clear the data on the text it show the runtime error 6 on result 2.. when i leave it blank and then clear the data i putted on text it show runtime error 6 on result 3. what should i do
↧

connecting VB6 to Oracle 11g.

September 23, 2012, 10:07 pm
$
0
0
Hi Friends,

i'm Likith, i am new to this vb6 and oracle. i'm trying to connect vb6 to oracle 11g on windows server 2008.

Please guide me how to connect vb6 to oracle 11g

Please give me the parameters to vb6.

Thanks,
Likith
↧

'Unscrambling' a UDT

September 23, 2012, 11:25 pm
$
0
0
I was producing some example code to help with this post http://www.vbforums.com/showthread.p...ipboard-in-VB6

It's basically attempting to pass a UDT to the ClipBoard and then read it back. The UDT looks like:
Code:
Private Type Doogle
    Size As Long
    aByteArray(4) As Byte
    aSingleByte As Byte
    anInteger As Integer
    aLong As Long
    aSingle As Single
    aDouble As Double
    aCurrency As Currency
    aDate As Date
    aBoolean As Boolean
    aString As String
End Type
Everything goes well with the 'Copy' operation (as far as I can tell) but the 'Paste' is not so straightforward when it comes to getting the String value back. The GetClipBoardData API returns a Handle to the data and I can use CopyMemory to populate the non-string items in the UDT. As far as the String is concerned, I would expect a 4 byte pointer which I could pick up ByVal and use to find the actual data. I'd expect that pointer to be the last 4 bytes of the data pointed to by the Handle. This doesn't seem to be the case; when I try that I either get; a zero length returned by lstrlen, an incorrect String Value, or VB6 explodes.

The relevent snippit of code is here:
Code:
lngHData = GetClipboardData(lngRet)
If lngHData <> 0 Then
    lngHandle = GlobalLock(lngHData)
    CopyMemory myPastedUDT, ByVal lngHandle, LenB(myPastedUDT) - 4
    lngString = lngHandle + (LenB(myPastedUDT) - 4)   
    lngLen = lstrlen(byVal lngString)                   
    myPastedUDT.aString = SysAllocStringByteLen(ByVal lngString, lngLen)
    GlobalUnlock (lngHData)
If I use CF_TEXT to get just the String value (having 'Copied' it into the ClipBoard explicitly) the code below works fine
Code:
    lngHData = GetClipboardData(CF_TEXT)
    If lngHData <> 0 Then
        lngHandle = GlobalLock(lngHData)
        lngLen = lstrlen(ByVal lngHandle)
        '
        ' Following line is as per Merri
        ' (http://www.vbforums.com/showthread.php?644597-How-to-get-String-from-Pointer-in-VB)
        '
        myPastedUDT.aString = SysAllocStringByteLen(ByVal lngHandle, lngLen)
        GlobalUnlock (lngHData)
Has anyone an idea of what 'stupidity' I'm demonstrating ? (lstrlen and SysAllocStringByteLen are APIs by the way)

I'm aware that 'normally' Handles are not Pointers, but in this case it's certainly acting like one as far as the majority of the data is concerned. I can't seem to find any documentation regarding the layout of the ClipBoard data but I would expect it to be in the same order that I 'Copied' it - perhaps it's not - or I can't see the Wood for the Trees !

EDIT: I just had a thought, perhaps the String Pointer in the UDT that was 'Copied' to the ClipBoard is 'out of scope' by the time I pick it up - after all as far as the ClipBoard is concerned it just sees a 4 byte value, and it's in my Address Space - it has no idea it's a pointer to a String pointer. If that is the case would it be safe to conclude that the only way to pass a String Type into the Clipboard is via CF_TEXT (or equivalents)? It seems reasonable to expect CF_TEXT to copy the actual data to the ClipBoard and point to it, rather than just a Pointer.
↧
Search

Inputbox Value

September 24, 2012, 1:12 am
$
0
0
Hi

How can i get the value whether user has pressed O.K or Esc/Cancel in Inputbox.

Thanks
↧
↧

Enter Key in MSFlexGrid

September 24, 2012, 4:36 am
$
0
0
Hi

I am moving textbox in MSFlexgrid . I want to trap Enter key when user presses in the textbox

Thanks
↧

Login Screen

September 24, 2012, 4:49 am
$
0
0
Hi

Can someone provide links or code to create Attractive Login Screen

Thanks
↧

CRC CCiTT Kermit calculation in VB6

September 24, 2012, 4:54 am
$
0
0
I want to calculate a 2byte crc value for a string like:

01 2D 23 0F 27 02 2B

The answer should be: 91 C3
The CRC type is: CRC CCITT Kermit
I'am using VB6.

It works, but the answers al all bad.

Here's my code:
========================================

Public Function CRCKERMIT(Buffer() As Byte) As Long

Dim i As Long
Dim Temp As Long
Dim CRC As Long
Dim j As Integer
CRC = 0
For i = LBound(Buffer) To UBound(Buffer)
Temp = Buffer(i) * &H100&
CRC = CRC Xor Temp
For j = 0 To 255
If (CRC And &H8404&) Then
CRC = ((CRC * 2) Xor &H1021&) And &HFFFF&
Else
CRC = (CRC * 2) And &HFFFF&
End If
Next j
Next i
CRCKERMIT = CRC And &HFFFF

End Function


Private Sub Command1_Click()

Dim aBuf() As Byte

Dim CRC As Long
Dim p As String

p = Text1.Text
aBuf = StrConv(p, vbFromUnicode)
CRC = CRCKERMIT(aBuf)
Text2.Text = Hex(CRC)

End Sub

Private Sub Command2_Click()
End
End Sub

======================================

Anyone with an idea?
↧

Concatenate issue in vb6

September 24, 2012, 5:25 am
$
0
0
HI Friends, i always getting compiler issue .as i have totally misunderstood at concating sql statement in more than one line . when concatenate using vbcrlf with & _
can anyone tell me where i am missing something and why ? becuase it is in red at code window.so i never been confess this issue onwards in my life in cocatenation sql statement .let me know please any help would be highly appreciated .
Code:
SqlQuery = " SELECT TradingSummaryStatus.*, TradingSummaryStatus.ID, TradingSummaryStatus.GROUP_NO, TradingSummaryStatus.YEAR, TradingSummaryStatus.WEEKNO, TradingSummaryStatus.UPDATEDTIME, TradingSummaryStatus.STATUS, TradingSummaryStatus.BRANDID, TradingSummaryStatus.BRANDDETAIL, " & vbCrLf & _
" From TradingSummaryStatus" & vbCrLf & _
" Where (((TradingSummaryStatus.Status) <> "C"))"
Attached Images
 
↧
↧

Picture in RichTextBox

September 24, 2012, 5:31 am
$
0
0
Hi,
sorry for my poor english...

I put Microsoft RTB control and my RTB created with CreateWindowEx on form1
I want my RTB show image contained in "temp" variable

this is VB6 code:

Code:
--------------------------------------------------
Option Explicit

Private Const WM_SETTEXT = &HC
Private Const ES_MULTILINE = &H4
Private Const ES_READONLY = &H800
Private Const WS_CHILD = &H40000000
Private Const WS_VISIBLE = &H10000000
Private Const WS_VSCROLL = &H200000
Private Const WS_EX_CLIENTEDGE = &H200&
Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
Private Declare Function CreateWindowEx Lib "user32" Alias "CreateWindowExA" (ByVal dwExStyle As Long, ByVal lpClassName As String, ByVal lpWindowName As String, ByVal dwStyle As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hWndParent As Long, ByVal hMenu As Long, ByVal hInstance As Long, ByRef lpParam As Any) As Long
Private Declare Function DestroyWindow Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function SendMessageString Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long

Private hWndRich As Long
--------------------------------------------------

Private Sub Form_Load()
  LoadLibrary "Riched20"
  hWndRich = CreateWindowEx(WS_EX_CLIENTEDGE, "RichEdit20A", vbNullString, ES_MULTILINE Or ES_READONLY Or WS_CHILD Or WS_VISIBLE Or WS_VSCROLL, 0, 100, 300, 100, Form1.hWnd, 0, App.hInstance, 0)
End Sub
--------------------------------------------------

Private Sub Command1_Click()
  Dim temp As String
 
  temp = temp & "{\rtf1\deff0{\fonttbl{\f0 Courier New;\f1 Verdana;\f2 Tahoma;}}{\colortbl;\red99\green99\blue99;\red128\green0\blue0;\red0\green0\blue0;}" & Chr(13)
  temp = temp & "\f1\fs29\cf2 ciao " & Chr(13)
  temp = temp & "{\pict\wmetafile8\picw240\pich240\picwgoal240\pichgoal240 " & Chr(13)
  temp = temp & "010009000003b80100000000a20100000000050000000b0200000000050000000c02a701a701a2" & Chr(13)
  temp = temp & "010000430f2000cc0000001000100000000000a701a70100000000280000001000000010000000" & Chr(13)
  temp = temp & "010018000000000000030000c40e0000c40e0000000000000000000000ec9400ec9400ec9400ec" & Chr(13)
  temp = temp & "9400eb9300e29304d0a105c7ac08cbac05d5a100e49300eb9300ec9400ec9400ec9400ec9400ec" & Chr(13)
  temp = temp & "9400ec9400eb9301df9505bbb40798e20694f40d9ef916abf91dbaf620c1e211ceb602e39600eb" & Chr(13)
  temp = temp & "9300ec9400ec9400ec9400eb9301d59909a7d00b98f50f96f31497f2119df617aefe22beff2acc" & Chr(13)
  temp = temp & "ff3bd5f935d3d208de9a00eb9300ec9400ec9401dc950ba7cf1da0ee68b4e0b3d8ecbddcef90c6" & Chr(13)
  temp = temp & "e535a7e222bcfc2accff3ed9ff5de2fd38d1d102e09500ec9400eb9308b9b61ca6ea98cde2fcfd" & Chr(13)
  temp = temp & "fdffffffffffffffffffcce4ed38b0e227c9fe32d3ff43dbff43d8f914cab400eb9300de9318ad" & Chr(13)
  temp = temp & "e474c2e2fafcfdfffffffffffffffffffffffffefeff9acbe023b8f627c9ff2dcfff2ed0ff22c1" & Chr(13)
  temp = temp & "e500e19307cea343bdeac7e3edd1e7eea7dbe97ccde161c7e056c4e05ec4e263bcde1aabe720bd" & Chr(13)
  temp = temp & "ff22c0ff22c1ff20bdf605d0a115d0b16fc9ec8bcfe685ddf57bdff975e3fd62e0ff4adbff34d4" & Chr(13)
  temp = temp & "fe29cafc22befc1bb5ff1bb3ff1bb3ff18aff908cbac1ed3b391dffa9be7fe9be7fa9cebfe97ee" & Chr(13)
  temp = temp & "ff87ebff67d8ef39bad72fd1fc26c6ff1cb7ff14a9ff11a5ff10a1f907c8ac1bd2a7a5e5f8ade3" & Chr(13)
  temp = temp & "f4759da69edae5b4f4ffa5f1ff6fbac829667533c9f227c7ff1eb8ff15aaff0c9cfe0895f404cb" & Chr(13)
  temp = temp & "a103df949be1e8c3e9f5819ea4aad6e0c0f4ffb0f2ff90e1f265bfd347d6fd27c7ff1eb8ff14aa" & Chr(13)
  temp = temp & "ff0c9bfd0694df00de9300ea924dd4bdd5f3fcd6f4fdcff3fec1f4ffb0f0ff96ebff76e3ff51d8" & Chr(13)
  temp = temp & "ff2dc5ff1bb5ff13a6ff0b98fa05b2b500eb9300ec9409e1988ddcd5e2f6fed6f5ffc4f2ffafee" & Chr(13)
  temp = temp & "ff96e9ff79e2ff59d4ff30c1ff19b0ff10a1fd09a1d001dc9600ec9400ec9400eb9314dc9e86dd" & Chr(13)
  temp = temp & "d9cceffbc2f1ffacecff95e6ff79dbff57cdff27b8ff13a7fa0ca6d002d19900eb9300ec9400ec" & Chr(13)
  temp = temp & "9400ec9400eb9307e09840d0bc82daea94e0f882dafa60ccfa31baf715abe608bab701dd9600eb" & Chr(13)
  temp = temp & "9300ec9400ec9400ec9400ec9400ec9400ec9400ea9201df950bd1a60eceb20bccb207cea401de" & Chr(13)
  temp = temp & "9400eb9300ec9400ec9400ec9400ec94030000000000" & Chr(13)
  temp = temp & "}" & Chr(13)
 
  SendMessageString RichTextBox1.hWnd, WM_SETTEXT, 0, temp
  SendMessageString hWndRich, WM_SETTEXT, 0, temp

End Sub
--------------------------------------------------

Private Sub Form_Unload(Cancel As Integer)
  DestroyWindow hWndRich
End Sub
--------------------------------------------------

I can get image on RTB control with first SendMessage call, but
with the identical call sent to my RTB I didn't get nothing.
Someone can help me to obtain the same pic also in my RTB?
Thanks
↧

Showing currnet date in Dtpicker

September 24, 2012, 7:31 am
$
0
0
hi friends , i simple want current System Date needs to display in the dtpicker1 . but it still shows 30/12/1899.
can you tell me how should i display current system date in the dtpicker . let me know please .any help would be highly appreciated .
Code:

Private Sub Form_Load()
DTPicker1.Value = DateValue(Now)
End Sub
another point .why dtpicker1.value shows time 12.00 .instead
of DTPICKER Date .
Code:
?DTPicker1.Value
12:00:00 AM
Attachment 91675
Attached Images
 
↧
Search

Better icon for .exe file?

September 26, 2012, 2:16 am
$
0
0
Hi guys, is there away to give my .exe app a better icon? Higher quality as it looks quite crap at the moment as you can only select an icon from one of the forms.

any ideas?

Jamie
↧

Hauppauge WinTV-HVR 900 USB Stick with Microsoft TV Technology

September 26, 2012, 3:05 am
$
0
0
Hi All,

Could anyone help me with this, I am developing an application which is using "Hauppauge WinTV-HVR 900 USB Stick" with "Microsoft TV Technology" MS Video Control with Microsoft Tuner 1.0 Type Library, in order to capture TV from analog antenna and display it. What's happened is I get an error message that says:

"Run-time error '-2147220906 (80040256)': Method 'Run' of object 'IMSVidCtl' failed"

everytime I try to run the code.

I am using Microsoft Windows XP SP3 with "Hauppauge WinTV-HVR 900 USB Stick".

This is the code:

Code:
Dim objTSContainer As New SystemTuningSpaces 
Dim objTuneRequest As IChannelTuneRequest 
Dim objTuneSpace As ITuningSpace 
Dim objAnalogTuneSpace As New AnalogTVTuningSpace 

Private Sub Form_Load() 
    For Each objTuneSpace In objTSContainer 
        If objTuneSpace.UniqueName = "MyTV" Then 
            objTSContainer.Remove "MyTV" 
        End If 
    Next 
    objAnalogTuneSpace.CountryCode = 44
    objAnalogTuneSpace.UniqueName = "MyTV"
    objAnalogTuneSpace.FriendlyName = "My Television"
    objAnalogTuneSpace.MaxChannel = 70
    objAnalogTuneSpace.MinChannel = 1
    objAnalogTuneSpace.NetworkType = "{a799a800-a46d-11d0-a18c-00a02401dcd4}"
    objAnalogTuneSpace.InputType = TunerInputAntenna
    Set objTuneSpace = objAnalogTuneSpace
    objTSContainer.Add objAnalogTuneSpace 
    Set objTuneRequest = objTSContainer("MyTV").CreateTuneRequest 
    intChannel = 23
    objTuneRequest.Channel = intChannel
    MSVidCtl_Sink.MaintainAspectRatio = True
    MSVidCtl_Sink.View objTuneRequest 
    ENC_CLSID = "{BB530C63-D9DF-4B49-9439-63453962E598}"
    Dim MyFeatures As New MSVidFeatures 
    For Each feature In MSVidCtl_Sink.FeaturesAvailable 
        If (feature.ClassID = ENC_CLSID) Then 
            MyFeatures.Add feature 
            Label1.Caption = "Found encoder :-)"
        Else 
            Label1.Caption = "No encoder was found :-("
        End If 
    Next 
    MSVidCtl_Sink.FeaturesActive = MyFeatures
    GUID_NULL = "{00000000-0000-0000-0000-000000000000}"
    SINK_CLSID = "{9E77AAC4-35E5-42A1-BDC2-8F3FF399847C}"
    Dim MyOutputs As New MSVidOutputDevices 
    Dim objStreamBufferSink 
    For Each output In MSVidCtl_Sink.OutputsAvailable(GUID_NULL) 
        If output.ClassID = SINK_CLSID Then 
            MyOutputs.Add output 
            Set objStreamBufferSink = output
        End If 
    Next 
    MSVidCtl_Sink.OutputsActive = MyOutputs
    strFilename = "C:\Example.wmv"
    objStreamBufferSink.SinkName = strFilename
    MSVidCtl_Sink.DisableVideo 
    MSVidCtl_Sink.DisableAudio 
    MSVidCtl_Sink.Run 
    DVR_CLSID = "{AD8E510D-217F-409B-8076-29C5E73B98E8}"
    Dim objStreamBufferSource 
    For Each objinput In MSVidCtl_Src.InputsAvailable(GUID_NULL) 
        If objinput.ClassID = DVR_CLSID Then 
            MSVidCtl_Src.InputActive = objinput
            Set objStreamBufferSource = objinput
        End If 
    Next 
    objStreamBufferSource.FileName = strFilename
    MSVidCtl_Src.Run 
End Sub
Please could anyone address this problem or have a work arround; and I will appreciate it?

Thanks in advance.

Best regards,

A
↧
↧

[RESOLVED] No value given for one or more parameter

September 26, 2012, 5:17 am
$
0
0
what does it mean? It was working the past few days though
Code:
OpenCon
Set rs = New ADODB.Recordset
rs.Open "Select * from [tblsubject] Where [grade]like '" & frmregistration.cbstudlvl.Text & "'", con, adOpenStatic, adLockOptimistic 'error appears here
ListView1.ListItems.Clear
        If rs.RecordCount <> 0 Then
            For x = 1 To rs.RecordCount
                frmregistration.ListView1.ListItems.Add , , rs![subjectcode]
                frmregistration.ListView1.ListItems(ListView1.ListItems.Count).ListSubItems.Add , , rs![subjectname]
                frmregistration.ListView1.ListItems(ListView1.ListItems.Count).ListSubItems.Add , , rs![yearlevel]
              rs.MoveNext
            Next x
        End If

rs.Close
con.Close
↧

Keypress Event

September 26, 2012, 6:36 am
$
0
0
Hi

I have written this , it is working

If KeyAscii = 13 Then
For row0 = flxgd.FixedRows To flxgd.Rows - 1
If (flxgd.TextMatrix(row0, 1) = flxgd0.TextMatrix(flxgd0.Row, 1)) And (flxgd.TextMatrix(row0, 2) = flxgd0.TextMatrix(flxgd0.Row, 2)) Then
flxgd.TextMatrix(row0, flxgd0.Col) = flxgd0.TextMatrix(flxgd0.Row, flxgd0.Col)
End If
Next
End If

Is it not possible as i change value in textbox of first grid , it should automatically gets changed in another grid. I have no problem in looping

Thanks
↧

WordWrap

September 26, 2012, 8:08 am
$
0
0
Hi

I want to wordwrap cols of only fixed rows. Is this possible

Thanks
↧
Viewing all 21869 articles
Browse latest View live
Search
<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>