DaniWeb Forum Index > Software Development > Visual Basic 4 / 5 / 6

Visual Basic 4 / 5 / 6 RSS

vb control array

Thread Solved

•

Join Date: Apr 2007

Posts: 1,108

Reputation: cguan_77 has a little shameless behaviour in the past

Solved Threads: 91

cguan_77

Offline

Veteran Poster

vb control array

Jun 4th, 2007

Hi,

Can anyone help me, how to determine selected control from an array of listbox? Anyhelp is greatly appreciated. Thanks.

cguan

•

Join Date: May 2007

Posts: 537

Reputation: choudhuryshouvi is an unknown quantity at this point

Solved Threads: 49

choudhuryshouvi choudhuryshouvi is offline

Offline

Posting Pro

Re: vb control array

Jun 4th, 2007

 Help with Code Tags 
 Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text) 
'used stuffs :- list1 and its two arrays(0,1)
 
'displaying name along with its index of the selected control
Private Sub List1_Click(Index As Integer)
MsgBox List1(Index).Name & "(" & Index & ")"
End Sub
 
'dynamically adding items to all listboxes present on the current form
Private Sub Form_Load()
Dim ctlControl As Object
    On Error Resume Next
    For Each ctlControl In Me.Controls
        If TypeOf ctlControl Is ListBox Then
        ctlControl.AddItem "computer"
        DoEvents
        End If
    Next ctlControl
End Sub
'used stuffs :- list1 and its two arrays(0,1)

'displaying name along with its index of the selected control
Private Sub List1_Click(Index As Integer)
MsgBox List1(Index).Name & "(" & Index & ")"
End Sub

'dynamically adding items to all listboxes present on the current form
Private Sub Form_Load()
Dim ctlControl As Object
    On Error Resume Next
    For Each ctlControl In Me.Controls
        If TypeOf ctlControl Is ListBox Then
        ctlControl.AddItem "computer"
        DoEvents
        End If
    Next ctlControl
End Sub

Last edited by Comatose; Jun 8th, 2007 at 2:46 pm.

•

Join Date: Apr 2007

Posts: 1,108

Reputation: cguan_77 has a little shameless behaviour in the past

Solved Threads: 91

cguan_77

Offline

Veteran Poster

Re: vb control array

Jun 5th, 2007

•

Originally Posted by choudhuryshouvi

'used stuffs :- list1 and its two arrays(0,1)

'displaying name along with its index of the selected control
Private Sub List1_Click(Index As Integer)
MsgBox List1(Index).Name & "(" & Index & ")"
End Sub

'dynamically adding items to all listboxes present on the current form
Private Sub Form_Load()
Dim ctlControl As Object
On Error Resume Next
For Each ctlControl In Me.Controls
If TypeOf ctlControl Is ListBox Then
ctlControl.AddItem "computer"
DoEvents
End If
Next ctlControl
End Sub

thanks choudhuryshouvi it really works..thank you so much