wie kann ich hier nen counter(b) einbauen, der vom button newplayer auf 0 gesetzt wird und vom commandbutton3 je klick um 1 erhöht wird?
irgentwie steig ich da grad net durch.
vielen dank mal wieder im voraus
irgentwie steig ich da grad net durch.
vielen dank mal wieder im voraus
Visual Basic-Quellcode
- Private Sub newplayer_Click()
- End Sub
- Private Sub CommandButton3_Click()
- Dim a As Integer
- Static b As Integer
- a = TextBox1
- b = b + 1
- If b = 1 Then
- GoTo karte1
- ElseIf b = 2 Then
- GoTo Karte2
- ElseIf b = 3 Then
- GoTo Karte3
- ElseIf b = 4 Then
- GoTo Karte4
- ElseIf b = 5 Then
- GoTo Karte5
- ElseIf b = 6 Then
- GoTo Karte6
- Else
- GoTo Karte7
- End If
- karte1:
- If a = 1 Then
- Image1.Picture = LoadPicture("C:\Users\Public\Skat Blatt\Herz 7.jpg")
- ElseIf a = 2 Then
- Image1.Picture = LoadPicture("C:\Users\Public\Skat Blatt\Herz 8.jpg")
- ElseIf a = 3 Then
- .......usw.
- ende:
- End Sub
- Private Sub UserForm_click()
- MsgBox "Du hast daneben geklickt"
- End Sub