Hi all,
Gibt es eine Möglichkeit mehrere Subs zusammenzufassen?
Ich habe nämlich folgenden Code 294 mal (Private Sub PictureBox1_Click bis Private Sub PictureBox294_Click) drin stehen :
PictureBox1.Image bis PictureBox49.Image soll dann Global.EarthLost_Tools.My.Resources.Resources._1 bis Global.EarthLost_Tools.My.Resources.Resources._49 sein
und PictureBox50.Image bis PictureBox98.Image ist dann auch wieder Global.EarthLost_Tools.My.Resources.Resources._1 bis Global.EarthLost_Tools.My.Resources.Resources._49
usw.... bis: PictureBox294.Image = Global.EarthLost_Tools.My.Resources.Resources._49
Gibt es eine Möglichkeit mehrere Subs zusammenzufassen?
Ich habe nämlich folgenden Code 294 mal (Private Sub PictureBox1_Click bis Private Sub PictureBox294_Click) drin stehen :
PHP-Quellcode
- Private Sub PictureBox66_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox66.Click
- If PictureBox66.Tag = "" Then
- PictureBox66.Image = Global.EarthLost_Tools.My.Resources.Resources.Kreuz
- PictureBox66.Tag = "1"
- Else
- PictureBox66.Image = Global.EarthLost_Tools.My.Resources.Resources._17
- PictureBox66.Tag = ""
- End If
- End Sub
PictureBox1.Image bis PictureBox49.Image soll dann Global.EarthLost_Tools.My.Resources.Resources._1 bis Global.EarthLost_Tools.My.Resources.Resources._49 sein
und PictureBox50.Image bis PictureBox98.Image ist dann auch wieder Global.EarthLost_Tools.My.Resources.Resources._1 bis Global.EarthLost_Tools.My.Resources.Resources._49
usw.... bis: PictureBox294.Image = Global.EarthLost_Tools.My.Resources.Resources._49
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „MA-Maddin“ ()