Control Collections

[jfackler]

Too early or too late, but I cant wrap my brain around this.


I want to do something like the following:

    Private Sub createcollection()
        Dim combocollection As ControlCollection

        Dim combo As Control

        For Each combo In Me.Controls
            If TypeOf combo Is ComboBox Then
                combocollection.Add(combo)

            End If
        Next
    End Sub

    Private Sub comboIndexChangedHandler(ByVal sender As Object, ByVal e As System.EventArgs) Handles combocollection.selectedindexchanged
        fillthetotals()

    End Sub

I know I can add each of the coombobox controls to the "Handles" statement, but I have 56 of the comboboxes that I want to handle the same way. Messy code.

Thanks,

Jon

 

[mutant]

You can do something like this:

Private Sub createcollection()
        Dim combocollection As ControlCollection

        Dim combo As Control

        For Each combo In Me.Controls
            If TypeOf combo Is ComboBox Then
                combocollection.Add(combo)
                Addhandler combo.event, addressof comboIndexChangedHandler this will add this combobox
to the handler
            End If
        Next
    End Sub

    Private Sub comboIndexChangedHandler(ByVal sender As Object, ByVal e As System.EventArgs) Handles combocollection.selectedindexchanged
        fillthetotals()

    End Sub

 

[jfackler]

Thanks Mutant,

I want to handle the event .SelectedIndexChanged of the combobox.

AddHandler combo.selectedindexchanged, AddressOf comboIndexChangedHandler

intellisense tells me selectedindexchanged is not an event of System.Windows.Forms.Control.


Jon

 

[mutant]

You declare your combo box as control first. It would be better to declare you combo variable as a Combobox from the start. Something like this:

Dim combo as combobox
For Each combo In Me.Controls
     AddHandler combo.SelectedIndexChanged, AddressOf handler
Next

Or yif you want to keep it your way, you have to cast your control variable to the ComboBox type:

AddHandler DirectCast(combo, ComboBox).SelectedIndexChanged, AddressOf handler

 

[Heiko]

[

Private Sub createcollection()

        Dim combocollection As ControlCollection

        Dim ctrl As Control
        Dim cbo as Combobox


        For Each ctrl In Me.Controls
            If TypeOf ctrl Is ComboBox Then
                 cbo = Ctype (ctrl, combobox)
                combocollection.Add(cbo)
                AddHandler cbo.event, AddressOf comboIndexChangedHandler this will add this combobox
to the handler
            End If
        Next
    End Sub

 
Private Sub comboIndexChangedHandler(ByVal sender As Object, ByVal e As System.EventArgs) Handles combocollection.selectedindexchanged
        fillthetotals()

    End Sub

 

[jfackler]

You the man.....men.


Thanks to you both,

Jon