Hallo liebe vb-paradise.de User.
Ich bin gerade am verzweifeln. Unzwar habe ich mehrere Pictureboxes und Variabeln die mehrere BIlder ausgeben anhand der zufallsgenerieten Variabeln.
Alles funktioniert so weit nur habe ich das Problem das ich keine Ahnung habe wie ich es einfacher schreiben könnte.
If F001 = "1" Then
Feld1.Image = My.Resources.e1
End If
If F001 = "2" Then
Feld1.Image = My.Resources.e2
End If
If F001 = "3" Then
Feld1.Image = My.Resources.e3
End If
If F001 = "4" Then
Feld1.Image = My.Resources.e4
End If
If F001 = "5" Then
Feld1.Image = My.Resources.e5
End If
If F002 = "1" Then
Feld2.Image = My.Resources.e1
End If
If F002 = "2" Then
Feld2.Image = My.Resources.e2
End If
If F002 = "3" Then
Feld2.Image = My.Resources.e3
End If
If F002 = "4" Then
Feld2.Image = My.Resources.e4
End If
If F002 = "5" Then
Feld2.Image = My.Resources.e5
End If
If F003 = "1" Then
Feld3.Image = My.Resources.e1
End If
If F003 = "2" Then
Feld3.Image = My.Resources.e2
End If
If F003 = "3" Then
Feld3.Image = My.Resources.e3
End If
If F003 = "4" Then
Feld3.Image = My.Resources.e4
End If
If F003 = "5" Then
Feld3.Image = My.Resources.e5
End If
Das müsste ich hundert mal machen.
Gibt es nicht eine einfachere Methode ?
Hoffe ihr habt mein Problem verstanden.
Ich bin gerade am verzweifeln. Unzwar habe ich mehrere Pictureboxes und Variabeln die mehrere BIlder ausgeben anhand der zufallsgenerieten Variabeln.
Alles funktioniert so weit nur habe ich das Problem das ich keine Ahnung habe wie ich es einfacher schreiben könnte.
If F001 = "1" Then
Feld1.Image = My.Resources.e1
End If
If F001 = "2" Then
Feld1.Image = My.Resources.e2
End If
If F001 = "3" Then
Feld1.Image = My.Resources.e3
End If
If F001 = "4" Then
Feld1.Image = My.Resources.e4
End If
If F001 = "5" Then
Feld1.Image = My.Resources.e5
End If
If F002 = "1" Then
Feld2.Image = My.Resources.e1
End If
If F002 = "2" Then
Feld2.Image = My.Resources.e2
End If
If F002 = "3" Then
Feld2.Image = My.Resources.e3
End If
If F002 = "4" Then
Feld2.Image = My.Resources.e4
End If
If F002 = "5" Then
Feld2.Image = My.Resources.e5
End If
If F003 = "1" Then
Feld3.Image = My.Resources.e1
End If
If F003 = "2" Then
Feld3.Image = My.Resources.e2
End If
If F003 = "3" Then
Feld3.Image = My.Resources.e3
End If
If F003 = "4" Then
Feld3.Image = My.Resources.e4
End If
If F003 = "5" Then
Feld3.Image = My.Resources.e5
End If
Das müsste ich hundert mal machen.
Gibt es nicht eine einfachere Methode ?
Hoffe ihr habt mein Problem verstanden.