Добавить все выделенные значения ComboBox

Question

У меня есть много комбинированных ящиков, в которых я хочу добавить все выбранные значения и отобразить их на ярлыке. Я также создал обработчик событий, который контролирует, было ли выбрано поле со списком, в котором будет изменяться метка постоянно, если обнаружен выбор. Как мне добавить все значения на основе обработчика событий?

Dim cbCtrl = Panel1.Controls.OfType(Of ComboBox)() 
    For Each ctrl In cbCtrl 
     AddHandler ctrl.SelectedIndexChanged, AddressOf ctrlSelectedIndexChanged 
    Next 

Private Sub ctrlSelectedIndexChanged(sender As Object, e As EventArgs) 
    'MsgBox(CType(sender, ComboBox).Text) 
    For Each ctrl In Panel1.Controls 
     If (ctrl.GetType() Is GetType(ComboBox)) Then 
      For i = 0 To 'LastComboBox ??? 
       i = i + ctrl.SelectedItem 
       label.Text = i 
      Next 
     End If 
    Next 
End Sub 

Answer 1

Взгляды него вы уже используете «для-каждый», чтобы получить весь Controles поля со списком, так что вы могли;

Private Sub ctrlSelectedIndexChanged(sender As Object, e As EventArgs) 
    dim total as integer = 0 
    For Each ctrl In Panel1.Controls 
    If (ctrl.GetType() Is GetType(ComboBox)) Then 
     total += CInt(ctrl.SelectedItem) 
    End If 
    Next 
    label.text = total.tostring 
End Sub 

Но если вы работаете с цифрами, почему бы вам не использовать nummericupdown?