“Auflistung” mit Labels in VB

Vorheriges Thema anzeigen Nächstes Thema anzeigen Nach unten

“Auflistung” mit Labels in VB

Beitrag von Mandy am So Jul 24, 2011 10:39 pm

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…
Wenn Würfel1 = 1, dann Variable “einser” 1, wenn Würfel2 = 1, dann Variable “einser” 1…
Also suchte ich nach einer Alternative. Ich hatte schon mal etwas von der “For…Each”-Schleife gehört. Aber wie mit Labels anwenden?

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

_________________
Zum sicheren Herunterfahren des Computers NICHT den großen Knopf drücken!

Mandy
Admin

Anzahl der Beiträge : 22
Anmeldedatum : 27.04.11
Ort : NRW

http://technikzumanfassen.forumieren.com

Nach oben Nach unten

Re: “Auflistung” mit Labels in VB

Beitrag von Mandy am So Jan 01, 2012 2:46 am

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

_________________
Zum sicheren Herunterfahren des Computers NICHT den großen Knopf drücken!

Mandy
Admin

Anzahl der Beiträge : 22
Anmeldedatum : 27.04.11
Ort : NRW

http://technikzumanfassen.forumieren.com

Nach oben Nach unten

Vorheriges Thema anzeigen Nächstes Thema anzeigen Nach oben


 
Befugnisse in diesem Forum
Sie können in diesem Forum nicht antworten