Harry Fan8
Mitglied
Liebe Community,
ich bin gerade dabei ein kleines Offline-Spiel namens: Little City zu programmieren, aber ich komme nun an einer Stelle nicht weiter, nämlich die wäre:
Ich möchte eine Picturebox mit einem vorhanden Bild drinnen auf die nächste Form auch sichtbar machen, hört sich etwas kompliziert an, deswegen zeige ich euch paar Bilder, damit ich euch beweisen kann, was ich meine:
Das möchte ich nun bei allen 163 eingefügten Pictureboxen machen, aber damit ich mir die If-Schreiberei ersparen möchte, suche ich nun nach einer anderen Möglichkeit.
Ich habs dann mit Strings versucht, aber ich kenne mich kaum damit aus, und komme deswegen damit nicht zurecht.
Mein Problem ist nun: Wie bekomme ich den String: Objekt mit in den Befehl: If Not (Game.PictureBox1.Image Is Nothing) Then rein?
Hier ist der Code:
Hoffe ihr könnt mir weiterhelfen!
Mit freundlichen Grüßen
Harry Fan8
ich bin gerade dabei ein kleines Offline-Spiel namens: Little City zu programmieren, aber ich komme nun an einer Stelle nicht weiter, nämlich die wäre:
Ich möchte eine Picturebox mit einem vorhanden Bild drinnen auf die nächste Form auch sichtbar machen, hört sich etwas kompliziert an, deswegen zeige ich euch paar Bilder, damit ich euch beweisen kann, was ich meine:
Das möchte ich nun bei allen 163 eingefügten Pictureboxen machen, aber damit ich mir die If-Schreiberei ersparen möchte, suche ich nun nach einer anderen Möglichkeit.
Ich habs dann mit Strings versucht, aber ich kenne mich kaum damit aus, und komme deswegen damit nicht zurecht.
Mein Problem ist nun: Wie bekomme ich den String: Objekt mit in den Befehl: If Not (Game.PictureBox1.Image Is Nothing) Then rein?
Hier ist der Code:
Code:
' Objekt wird gekauft
If Label3.Text = Objekt And Button2.Text = "Kaufen" Then
If Not (Game.PictureBox1.Image Is Nothing) Then
Button2.Enabled = False
Button2.Text = "5"
Timer1.Start()
MsgBox("Du kannst dort nicht noch ein Objekt platzieren!", MsgBoxStyle.Critical, "Fehler")
Else
Game.PictureBox1.Image = PictureBox1.Image
Game.Label2.Text -= Label8.Text
Label12.Text -= Label8.Text
End If
End If
Hoffe ihr könnt mir weiterhelfen!
Mit freundlichen Grüßen
Harry Fan8