steuerelementenamen zusammensetzen

  • VB.NET

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von hal2000.

    steuerelementenamen zusammensetzen

    Hi!

    Ich programmiere gerade ein Kniffel Spiel und habe folgendes Problem:

    VB.NET-Quellcode

    1. Private Sub butWürfeln_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butWürfeln.Click
    2. For i = 1 To 5
    3. intWurf(i) = wurf()
    4. Next
    6. Select Case intWurf(1)
    7. Case 1
    8. pic1.Image = Kniffel.My.Resources.Resources._1
    9. Case 2
    10. pic1.Image = Kniffel.My.Resources.Resources._2
    11. Case 3
    12. pic1.Image = Kniffel.My.Resources.Resources._3
    13. Case 4
    14. pic1.Image = Kniffel.My.Resources.Resources._4
    15. Case 5
    16. pic1.Image = Kniffel.My.Resources.Resources._5
    17. Case 6
    18. pic1.Image = Kniffel.My.Resources.Resources._6
    19. End Select
    20. Select Case intWurf(2)
    21. Case 1
    22. pic2.Image = Kniffel.My.Resources.Resources._1
    23. Case 2
    24. pic2.Image = Kniffel.My.Resources.Resources._2
    25. Case 3
    26. pic2.Image = Kniffel.My.Resources.Resources._3
    27. Case 4
    28. pic2.Image = Kniffel.My.Resources.Resources._4
    29. Case 5
    30. pic2.Image = Kniffel.My.Resources.Resources._5
    31. Case 6
    32. pic2.Image = Kniffel.My.Resources.Resources._6
    33. End Select
    34. Select Case intWurf(3)
    35. Case 1
    36. pic3.Image = Kniffel.My.Resources.Resources._1
    37. Case 2
    38. pic3.Image = Kniffel.My.Resources.Resources._2
    39. Case 3
    40. pic3.Image = Kniffel.My.Resources.Resources._3
    41. Case 4
    42. pic3.Image = Kniffel.My.Resources.Resources._4
    43. Case 5
    44. pic3.Image = Kniffel.My.Resources.Resources._5
    45. Case 6
    46. pic3.Image = Kniffel.My.Resources.Resources._6
    47. End Select
    48. Select Case intWurf(4)
    49. Case 1
    50. pic4.Image = Kniffel.My.Resources.Resources._1
    51. Case 2
    52. pic4.Image = Kniffel.My.Resources.Resources._2
    53. Case 3
    54. pic4.Image = Kniffel.My.Resources.Resources._3
    55. Case 4
    56. pic4.Image = Kniffel.My.Resources.Resources._4
    57. Case 5
    58. pic4.Image = Kniffel.My.Resources.Resources._5
    59. Case 6
    60. pic4.Image = Kniffel.My.Resources.Resources._6
    61. End Select
    62. Select Case intWurf(5)
    63. Case 1
    64. pic5.Image = Kniffel.My.Resources.Resources._1
    65. Case 2
    66. pic5.Image = Kniffel.My.Resources.Resources._2
    67. Case 3
    68. pic5.Image = Kniffel.My.Resources.Resources._3
    69. Case 4
    70. pic5.Image = Kniffel.My.Resources.Resources._4
    71. Case 5
    72. pic5.Image = Kniffel.My.Resources.Resources._5
    73. Case 6
    74. pic5.Image = Kniffel.My.Resources.Resources._6
    75. End Select
    77. End Sub


    Das muss doch auch einfacher gehen. Ich hab zuerst versucht das ganze mit einer for Schleife zu Lösen, indem ich einfach statt pic1.image= sowas wie pic + [ZählerDerSchleife].image= schreibe, und bei dem Pfad des Bildes statt ...Resources._1 sowas wie ...Resources._ + [Integer] ...
    Nur so klappt das nicht ;) Gibt es da eine Möglichkeit die Namen der Steuerelemente bzw die Bildpfade mit einer Variable zusammenzusetzen?

    Gibt es da eine Möglichkeit die Namen der Steuerelemente bzw die Bildpfade mit einer Variable zusammenzusetzen?
    Nein.

    Du kannst das ganze aber mit Schleifen beschreiben:

    VB.NET-Quellcode

    1. Dim picBoxes As New ArrayList
    3. 'Hier werden alle PictureBoxen in eine ArrayList eingelesen. Voraussetzung für diese einfache Schleife ist, dass nur die 5 PictureBoxen existieren (und keine weiteren). Sind noch weitere vorhanden, muss die Schleife um zusätzliche Tests (Stichwort pb.Name) erweitert werden.
    4. For Each pb As PictureBox In Me.Controls
    5. picBoxes.Add(pb) 'Achtung: Die Reihenfolge muss stimmen! --> ggf. im Designer anpassen.
    6. Next
    8. [Deine For-Schleife]
    10. ' i greift hier wieder auf das Array zurück. Da die ArrayList nullbasiert ist, liegt die erste PictureBox an 0-ter Stelle - also bei i - 1.
    11. For i = 1 To 5
    12. Select Case intWurf(i)
    13. Case 1
    14. picBoxes(i - 1).Image = My.Resources.Resources._1
    15. Case 2
    16. picBoxes(i - 1).Image = My.Resources.Resources._2
    17. Case 3
    18. [...]
    19. End Select
    20. Next
    Gruß
    hal2000

Facebook
Telefonspende