“Auflistung” mit Labels in VB
Seite 1 von 1
“Auflistung” mit Labels in VB
Ja, ich habe mal wieder herumgespielt. Ein kleines Kniffelspiel sollte es wieder werden. Aber es soll ein einfacher, platzsparender Quellcode sein, nicht wie damals mit Visual Basic 6…
Das geht so:
Also suchte ich nach einer Alternative. Ich hatte schon mal etwas von der “For…Each”-Schleife gehört. Aber wie mit Labels anwenden?Wenn Würfel1 = 1, dann Variable “einser” 1, wenn Würfel2 = 1, dann Variable “einser” 1…
Das geht so:
- Code:
Dim alle_wuerfel As New List(Of Label) 'Auflistung für alle Würfel erstellen
alle_wuerfel.Add(lbl_wuerfel1) 'Würfel der Auflistung hinzufügen
alle_wuerfel.Add(lbl_wuerfel2)
alle_wuerfel.Add(lbl_wuerfel3)
alle_wuerfel.Add(lbl_wuerfel4)
alle_wuerfel.Add(lbl_wuerfel5)
For Each Label In alle_wuerfel 'Überprüfen, welcher Würfel "1" anzeigt
If (Label.text = "1") Then
einser = einser 1
End If
Next
Re: “Auflistung” mit Labels in VB
Für Pictureboxes geht das ab dem "For Each"-Teil etwas anders:
- Code:
For Each PictureBox In alle_pboxes 'Überprüfen, welche Picturebox das Bild "1.png" anzeigt
If (PictureBox.BackgroundImage Is "1.png") Then
End
End If
Seite 1 von 1
Befugnisse in diesem Forum
Sie können in diesem Forum nicht antworten
|
|