Wie Sie die Werte hinzufügen, wenn das Kontrollkästchen aktiviert ist?

-1

Wenn ich die Gesamt noch alle Kontrollkästchen überprüfen endet als 10. bis ich weiß nicht, was hier vor sich geht bitteWie Sie die Werte hinzufügen, wenn das Kontrollkästchen aktiviert ist?

Dim top As Integer 
    Select Case top 
     Case CheckBox1.Checked 
      top = +10 
     Case CheckBox2.Checked 
      top = +10 
     Case CheckBox3.Checked 
      top = +10 
     Case CheckBox4.Checked 
      top = +10 
     Case CheckBox5.Checked 
      top = +10 
     Case CheckBox6.Checked 
      top = +10 
    End Select 
    TextBox2.Text = top

Quelle

2017-01-25 Stephen Odiver

https://msdn.microsoft.com/en-us/library/cy37t14y.aspx – Hackerman

Dies scheint nicht sinnvoll 'Select Case' zu sein Erklärung. Sie sollten mehrere 'If'-Anweisungen verwenden. –

Sie testen die 'top'-Variable, die keinen Wert hat ... Übrigens, ich habe Ihre Frage nicht abgelehnt :) – Hackerman

Eine select case Aussage ist wie ein if...else if Aussage helfen. Dies bedeutet, dass, sobald einer der Fälle wahr ist, keine anderen Fälle ausgeführt werden, selbst wenn sie wahr sind.
Ihren Code so etwas wie dieses stattdessen ändern:

If CheckBox1.Checked Then 
    top += 10 
End If 
If CheckBox2.Checked Then 
    top += 10 
End If 
If CheckBox3.Checked Then 
    top += 10 
End If 
....

Quelle

2017-01-25 15:32:22

Wie Sie die Werte hinzufügen, wenn das Kontrollkästchen aktiviert ist?

Antwort

Verwandte Themen