Technik zum Anfassen
Würden Sie gerne auf diese Nachricht reagieren? Erstellen Sie einen Account in wenigen Klicks oder loggen Sie sich ein, um fortzufahren.

“Auflistung” mit Labels in VB

Nach unten

“Auflistung” mit Labels in VB Empty “Auflistung” mit Labels in VB

Beitrag von Mandy 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

Mandy
Admin

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

https://technikzumanfassen.forenverzeichnis.com

Nach oben Nach unten

“Auflistung” mit Labels in VB Empty Re: “Auflistung” mit Labels in VB

Beitrag von Mandy 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

Mandy
Admin

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

https://technikzumanfassen.forenverzeichnis.com

Nach oben Nach unten

Nach oben

- Ähnliche Themen

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