Hi Leute,
ich würde gerne ein Spiel programmieren. Ich hatte da Schiffe versenken im Sinn, allerdings bin ich in Visual Basic nicht sonderlich weit, weshalb eine primitive Version erst mal reichen würde. Diese ließe sich ja schließlich noch erweitern.
Ich bin nun soweit, dass ich 2 Userformen habe. In jeder Userform sind 2 Kästchen von 2x2 Kästchen Größe.
Diese färben sich beim anklickenb schwarz. Ich wollte es erst mal so machen, dass ein Kasten ein Schiff darstellt, das dann evtl. noch auf ein großes Feld übertragen.
Die Abfrage, ob die Schiffe auch richtig platziert werden lasse ich erst mal raus.
Nun meine Frage:
Wie kann ich den Beschuss darstellen? So mit Treffer und nicht getroffen und so. Vielleicht wüsstet ihr auch noch, wie ich das zweite Kästchen einbinden kann, wo dann angezeigt wird welches getroffen wurde welches nicht. Vielleicht durch verschiedene Farben.
Ich bin nun soweit, dass ich den einzelenen Labels erstmal Namen gebe. Also z.B Sektor = 1, Sektor = 2 und so weiter. Ich benutze Den VB-Editor in Microsoft Office Word 2003.
Hier mein Code aus der ersten Userform:
Danke schon mal im Vorraus
SVVB09
ich würde gerne ein Spiel programmieren. Ich hatte da Schiffe versenken im Sinn, allerdings bin ich in Visual Basic nicht sonderlich weit, weshalb eine primitive Version erst mal reichen würde. Diese ließe sich ja schließlich noch erweitern.
Ich bin nun soweit, dass ich 2 Userformen habe. In jeder Userform sind 2 Kästchen von 2x2 Kästchen Größe.
Diese färben sich beim anklickenb schwarz. Ich wollte es erst mal so machen, dass ein Kasten ein Schiff darstellt, das dann evtl. noch auf ein großes Feld übertragen.
Die Abfrage, ob die Schiffe auch richtig platziert werden lasse ich erst mal raus.
Nun meine Frage:
Wie kann ich den Beschuss darstellen? So mit Treffer und nicht getroffen und so. Vielleicht wüsstet ihr auch noch, wie ich das zweite Kästchen einbinden kann, wo dann angezeigt wird welches getroffen wurde welches nicht. Vielleicht durch verschiedene Farben.
Ich bin nun soweit, dass ich den einzelenen Labels erstmal Namen gebe. Also z.B Sektor = 1, Sektor = 2 und so weiter. Ich benutze Den VB-Editor in Microsoft Office Word 2003.
Hier mein Code aus der ersten Userform:
VB.NET-Quellcode
- Private Sub CommandButton1_Click()
- Unload Me
- spiel2.Show
- End Sub
- Private Sub Label1_Click()
- feld = 1
- schwarz = &H0&
- Label1.BackStyle = fmBackStyleOpaque
- Label1.BackColor = schwarz
- End Sub
- Private Sub Label2_Click()
- feld = 2
- schwarz = &H0&
- Label2.BackStyle = fmBackStyleOpaque
- Label2.BackColor = schwarz
- End Sub
- Private Sub Label3_Click()
- feld = 3
- schwarz = &H0&
- Label3.BackStyle = fmBackStyleOpaque
- Label3.BackColor = schwarz
- End Sub
- Private Sub Label4_Click()
- feld = 4
- schwarz = &H0&
- Label4.BackStyle = fmBackStyleOpaque
- Label4.BackColor = schwarz
- End Sub
- Private Sub Label5_Click()
- feld = 5
- schwarz = &H0&
- Label5.BackStyle = fmBackStyleOpaque
- Label5.BackColor = schwarz
- End Sub
- Private Sub Label6_Click()
- schwarz = &H0&
- Label6.BackStyle = fmBackStyleOpaque
- Label6.BackColor = schwarz
- End Sub
- Private Sub Label7_Click()
- schwarz = &H0&
- Label7.BackStyle = fmBackStyleOpaque
- Label7.BackColor = schwarz
- End Sub
- Private Sub Label8_Click()
- schwarz = &H0&
- Label8.BackStyle = fmBackStyleOpaque
- Label8.BackColor = schwarz
- End Sub
- Private Sub UserForm_Click()
- End Sub
Danke schon mal im Vorraus
SVVB09