GetAsyncKeyState Value für "^"?

1 Antwort

VBA Tic Tac Toe?

Hi, ich hab ein kleines Problem ich würde gerne auf VBA Tic Tac Toe programmieren und es funktioniert auch bis jz alles, bis auf die Abfrage wer gewinnt.

Also wenn drei in einer Reihe sind soll Spieler so und so gewinnt! erscheinen und das will bei mir nicht.

Ich bin echt am verzweifeln.

So sieht der Code bisher aus:

Private Sub Gewonnen()

'Bediengungen das Spieler 1 oder 2 gewinnt
If cmd1.Value = True And cmd2.Value = True And cmd3.Value = True Then
    lblGewinner.Caption = "Spieler 1 Gewinnt!"
    MsgBox "Spieler 1 Gewinnt!", vbInformation, "Gewinner!"
ElseIf cmd1.Value = True And cmd2.Value = True And cmd3.Value = True Then
    lblGewinner.Caption = "Spieler 2 Gewinnt!"
    MsgBox "Spieler 2 Gewinnt!", vbInformation, "Gewinner!"
End If

If cmd4.Value = True And cmd5.Value = True And cmd6.Value = True Then
    lblGewinner.Caption = "Spieler 1 Gewinnt!"
    MsgBox "Spieler 1 Gewinnt!", vbInformation, "Gewinner!"
ElseIf cmd4.Value = True And cmd5.Value = True And cmd6.Value = True Then
    lblGewinner.Caption = "Spieler 2 Gewinnt!"
    MsgBox "Spieler 2 Gewinnt!", vbInformation, "Gewinner!"
End If

If cmd7.Value = True And cmd8.Value = True And cmd9.Value = True Then
    lblGewinner.Caption = "Spieler 1 Gewinnt!"
    MsgBox "Spieler 1 Gewinnt!", vbInformation, "Gewinner!"
ElseIf cmd7.Value = True And cmd8.Value = True And cmd9.Value = True Then
    lblGewinner.Caption = "Spieler 2 Gewinnt!"
    MsgBox "Spieler 2 Gewinnt!", vbInformation, "Gewinner!"
End If

If cmd1.Value = True And cmd4.Value = True And cmd7.Value = True Then
    lblGewinner.Caption = "Spieler 1 Gewinnt!"
    MsgBox "Spieler 1 Gewinnt!", vbInformation, "Gewinner!"
ElseIf cmd1.Value = True And cmd4.Value = True And cmd7.Value = True Then
    lblGewinner.Caption = "Spieler 2 Gewinnt!"
    MsgBox "Spieler 2 Gewinnt!", vbInformation, "Gewinner!"
End If

If cmd2.Value = True And cmd5.Value = True And cmd8.Value = True Then
    lblGewinner.Caption = "Spieler 1 Gewinnt!"
    MsgBox "Spieler 1 Gewinnt!", vbInformation, "Gewinner!"
ElseIf cmd2.Value = True And cmd5.Value = True And cmd8.Value = True Then
    lblGewinner.Caption = "Spieler 2 Gewinnt!"
    MsgBox "Spieler 2 Gewinnt!", vbInformation, "Gewinner!"
End If

If cmd3.Value = True And cmd6.Value = True And cmd9.Value = True Then
    lblGewinner.Caption = "Spieler 1 Gewinnt!"
    MsgBox "Spieler 1 Gewinnt!", vbInformation, "Gewinner!"
ElseIf cmd3.Value = True And cmd6.Value = True And cmd9.Value = True Then
    lblGewinner.Caption = "Spieler 2 Gewinnt!"
    MsgBox "Spieler 2 Gewinnt!", vbInformation, "Gewinner!"
End If

If cmd1.Value = True And cmd5.Value = True And cmd9.Value = True Then
    lblGewinner.Caption = "Spieler 1 Gewinnt!"
    MsgBox "Spieler 1 Gewinnt!", vbInformation, "Gewinner!"
ElseIf cmd1.Value = True 
...zur Frage

Was möchtest Du wissen?