Wie eine Schleife durch jede Taste, um zu überprüfen, ob Sie aktiviert sind oder nicht?

Möchte ich eine For-Each-Schleife, wo ich überprüfen kann, ob jede Schaltfläche aktiviert oder deaktiviert ist. Wenn die Schaltfläche aktiviert ist, dann muss ich, um die Werte in den tags für jede Taste. Ich habe 26 Tasten jeweils verschiedene Werte (Geldpreise).*WICHTIG: dieser code braucht, um zu gehen unter dem button, also jeder sechste, der seine Zeit gedrückt, so überprüft die Tasten.

Pseudo-Code:

btncase1.tag = 5
Begin while statement to go through each button
   Check each button to see if it is enabled
   If button is enabled then obtain values
Next

Eigentlichen code habe ich aber es nicht machen keinen Sinn für mich:

Public Class Form1
Dim button As Button
Dim totalremcases As Integer
Dim btncase As New Control
Dim btncollection As New Microsoft.VisualBasic.Collection()

Private Sub btncase1_Click()
For Each button As Button In btncollection
    If btncase.Enabled Then
        totalremcases = totalremcases + CInt(btncase.Tag)
    End If
Next
  • Ist dieser bereits funktionierenden code mit dem Sie arbeiten und Sie verstehen einfach nicht es so Sie es wollen, erklärt oder gibt es eine bestimmte Fehlermeldung? Sind alle Schaltflächen Hinzugefügt, um die btnCollection?
InformationsquelleAutor driftking96 | 2012-06-10
  1. 5

    können Sie versuchen, es zu lösen, die durch die Nutzung dieser Ansatz 

      Public Sub getallcontrolls(controls As System.Web.UI.ControlCollection)
    Dim myAL As New ArrayList()
    For Each ctrl As Control In controls
        If TypeOf ctrl Is Button Then
            If ctrl.Enabled = True Then
                Dim tag As String = ctrl.Tag.ToString()
                myAL.Add(tag)
            End If

        End If
    Next
End Sub
    • aber dies ist eine private sub rechts, so dass ich nicht arbeiten unter einem button ist es? Weil ich es brauche, um zu überprüfen, nach einer num mal so afyer btn geklickt wird sechs mal, dann überprüfen Sie wht btns aktiviert sind, und um die Werte in Ihren tags
    • rufen Sie die Funktion aufrufen
    InformationsquelleAutor COLD TOLD
  2. 0

    Es scheint, dass Sie machen einen "Deal or No Deal" Art des Spiels.

    Können Sie eine Schaltfläche erstellen, klicken Sie auf Zähler (form-Niveau-variable), so dass Sie können verfolgen, wie viele Schaltflächen geklickt wird schon. Erhöht den Zähler jedes mal, wenn ein button geklickt wird.

    Erstellen Sie eine Funktion zu akkumulieren Werte der tags. Rufen Sie diese Funktion nur, wenn der counter ist teilbar durch 6. (Sie sagten, Sie prüfen jeden sechsten mal eine Taste gedrückt wird)

    Dim counter As Integer
Dim total As Integer

Private Function AccumulateTags() As Integer
    Dim ctl As Control
    Dim total As Integer
    For Each ctl In Me.Controls
        If TypeOf ctl Is Button Then
            If ctl.Enabled = True Then
                total += Val(ctl.Tag)
            End If
        End If
    Next
    Return total
End Function

Private Function disable(sender As Object)
    Dim ctl As Control
    For Each ctl In Me.Controls
        If TypeOf ctl Is Button AndAlso sender.Equals(ctl) Then
            ctl.Enabled = False
        End If
    Next
End Function

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click, _
              Button2.Click, Button3.Click, Button4.Click, Button5.Click, Button6.Click, Button7.Click
    counter += 1
    If counter Mod 6 = 0 Then 'Checks if counter is divisible by 6
        total = AccumulateTags()
    End If

    MsgBox("Total" & total) 'Displays total. You may also display it in a label if you want
    disable(sender)
End Sub
    InformationsquelleAutor jvlync
Schreibe einen Kommentar