Mehrere PictureBoxen per For schleife ansprechen

  • VB.NET

Es gibt 24 Antworten in diesem Thema. Der letzte Beitrag () ist von TVX.

    Jetz kommt das Letzte :

    VB.NET-Quellcode

    1. Option Strict On
    2. Public Class Form1
    4. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    6. Dim Text As String = IO.File.ReadAllText("C:\Users\zeus\Desktop\test.txt")
    8. For i As Integer = 1 To Me.Controls.OfType(Of PictureBox).Count
    10. If Mid(Text, i, 1) = "1" Then
    11. Controls("PictureBox" & i).BackColor = Color.Red
    12. Else
    13. Controls("PictureBox" & i).BackColor = Color.Green
    14. End If
    16. Next
    18. End Sub
    20. End Class​


    Textdatei Eintrag:
    110011001

    Ergebnis:

    sonne75 schrieb:

    es ist nicht intuitiv
    und es funktioniert so sogar in C#. ;(
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    @sonne75
    Ich installier gerade das 13er Studio, ich werd es probieren, sobald ich wieder OnEdit bin. :thumbsup:
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Hier noch die Antwort auf (( RodFromGermany )) Frage :!:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Option Strict On
    2. Public Class Form1
    4. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    6. Dim Text As String = IO.File.ReadAllText("C:\Users\zeus\Desktop\test.txt")
    8. For i As Integer = 1 To Me.Controls.OfType(Of PictureBox).Count
    10. If Mid(Text, i, 1) = "1" Then
    11. Controls("PictureBox" & i).BackColor = Color.Red
    12. Else
    13. Controls("PictureBox" & i).BackColor = Color.Green
    14. End If
    16. Next
    18. End Sub
    21. 'Oder mit eigener Control Namensfindung , aber Vorsicht der nimmt es genau mit der Reihenfolge der Erstellung (( For Each ))
    24. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    26. Dim Text As String = IO.File.ReadAllText("C:\Users\zeus\Desktop\test.txt")
    28. Dim PB_Liste As New List(Of PictureBox)
    30. For Each PB In Me.Controls.OfType(Of PictureBox)()
    31. PB_Liste.Add(PB)
    32. Next
    34. PB_Liste.Reverse()
    36. For i As Integer = 0 To PB_Liste.Count - 1
    38. If Mid(Text, i + 1, 1) = "1" Then
    39. PB_Liste(i).BackColor = Color.Red
    40. Else
    41. PB_Liste(i).BackColor = Color.Green
    42. End If
    44. Next
    46. End Sub
    48. End Class



    LG....

    Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „TVX“ ()