Wie man den Wert von Combobox hinzufügen

Question

Gibt es eine andere Art und Weise alle Elemente auf dem Kombinationsfeld zu summieren

Ich versuche, alles auf das Kombinationsfeld den Wert zu summieren

dies ist mein Code:

For a As Integer = 0 To ComboBox1.Items.Count - 1 
    Dim b As Integer 
    b = ComboBox1.Items(a) 
    MetroLabel12.Text = ComboBox1.Items.Count(0) + b 
Next b 

Answer 1

der folgende Code wird den String-Wert der einzelnen Elemente und versuchen, es zu konvertieren zu integer. Wenn dies erfolgreich ist, wird das Ergebnis zu result hinzugefügt.

Dim result as Integer = 0 
Dim num as Integer = 0 

For Each s As String In ComboBox1.Items 
    num = 0 
    If Integer.TryParse(s, num) Then 
     result = result + num; 
    End If 
Next s