Events handling with runtime created controls {RESOLVED}

[weiyen]

I have a set of runtime created combo boxes which i keep in a collection.
How do I use withevents or any other method to keep track of the selection changes made to these combo boxes?

Thanks in advance

[peet]

think you can do something like this

Private WithEvents MyListBox As ListBox 
 
Private Sub Form_Load()
    Set MyListBox = Me.Controls.Add("VB.ListBox", "lstNewListBox")
    With MyListBox
        .Move 0, 0, 800, 2000
        .Visible = True
    End With
End Sub

[peet]

Option Explicit
 
Private WithEvents MyListBox As ListBox
 
Private Sub Form_Load()
    Dim i As Integer
    Set MyListBox = Me.Controls.Add("VB.ListBox", "lstNewListBox")
    With MyListBox
        .Move 0, 0, 800, 2000
        .Visible = True
    End With
    For i = 0 To 100
        MyListBox.AddItem "item " & Format(i, "000")
    Next i
End Sub
 
Private Sub MyListBox_Click()
    MsgBox MyListBox.Text
End Sub

[weiyen]

Sorry clicked too fast

[weiyen]

Thank you for the replies.

The method you had given needs to have multiple declarations of withEvents for each control created during runtime.

I've discovered that I can declare a class of event handlers.

Can't really remember the codes, as i left it in my office, but it goes something like this..

(Class: comboEvent)

Public withEvents myCombo as comboBox


Private Sub myCombo_Change()
msgBox myCombo.text
End Sub


(Usage)

Dim comboHandler as comboEvent
Dim eventCollection as collection
Dim comboCollection as collection

Set eventCollection = new collection
Set comboCollection = new collection

Private Sub CommandButton1_Click()
set comboHandler as new comboEvent
eventCollection.AddItem comboHandler

comboCollection.AddItem Controls.add(ComboBox,,,) ' Can't remeber exact codes here.

Dim ctrl as comboBox
Dim i as integer

for each ctrl in comboCollection
set eventCollection.item(i).myCombo = comboCollection.item(i) 'Can only remember its something like this. Will provide the working set on monday (Singapore time)

next ctrl
End Sub