Issues with Basic Test Program

[monkey98]

Hey everyone,

I have tried to program a simple game in Basic. The game which is called Tic tac toe with a multi-page query.
When starting the game I always get the error message Else without If.
I can't find the error.

The game field is 12 buttons from top left to bottom right. The button is called as name "lblspieler".

Can you help me further? Thanks.

Code:

Private Sub Command1_Click(Index As Integer)
If lblSpieler.Caption = "1" Then
   lblSpieler.Caption = "2"
Command1(Index).Caption = "X"
Command1(Index).Enabled = False
ElseIf lblSpieler.Caption = "2" Then
lblSpieler.Caption = "1"
Command1(Index).Caption = "O"
Command1(Index).Enabled = False

ElseIf Command1(0).Caption = "X" And Command1(1).Caption = "X" And Command1(2).Caption = "X" Then MsgBox "Spieler 1 hat gewonnen!"
Command1(Index).Enabled = False

ElseIf Command1(3).Caption = "O" And Command1(4).Caption = "O" And Command1(5).Caption = "O" Then MsgBox "Spieler 2 hat gewonnen!"
Command1(Index).Enabled = False

ElseIf Command1(6).Caption = "X" And Command1(7).Caption = "X" And Command1(8).Caption = "X" Then MsgBox "Spieler 1 hat gewonnen!"
Command1(Index).Enabled = False

ElseIf Command1(0).Caption = "O" And Command1(3).Caption = "O" And Command1(6).Caption = "O" Then MsgBox "Spieler 2 hat gewonnen!"
Command1(Index).Enabled = False

ElseIf Command1(1).Caption = "X" And Command1(4).Caption = "X" And Command1(7).Caption = "X" Then MsgBox "Spieler 1 hat gewonnen!"
Command1(Index).Enabled = False

ElseIf Command1(2).Caption = "O" And Command1(5).Caption = "O" And Command1(8).Caption = "O" Then MsgBox "Spieler 2 hat gewonnen!"
Command1(Index).Enabled = False

ElseIf Command1(0).Caption = "X" And Command1(4).Caption = "X" And Command1(8).Caption = "X" Then MsgBox "Spieler 1 hat gewonnen!"
Command1(Index).Enabled = False

ElseIf Command1(2).Caption = "O" And Command1(4).Caption = "O" And Command1(6).Caption = "O" Then MsgBox "Spieler 2 hat gewonnen!"
Command1(Index).Enabled = False
End If
End Sub

[OptionBase1]

You have a bunch of code formatted like this:

ElseIf (Condition) And (Condition) Then do something
  do something further
ElseIf ...

When you put code on the same line after a "Then" keyword, only that code is considered "inside" that ElseIf block.

Using my example above, the fix is:

ElseIf (Condition) And (Condition) Then
  do something
  do something further
ElseIf ...

[passel]

I would assume that any line that has "Then" followed by code on the same line, that code needs to be moved to a new line.
VB6 supports "If Then End If" Blocks, and it supports In-line "If Then" statement without End If where the code follows the Then. You are messing up the syntax so it thinks you have In-Line "If Then" statements.

[SamOscarBrown]

all that aside...your image shows 9, not 12, command buttons....?

[monkey98]

all that aside...your image shows 9, not 12, command buttons....?

Thank you for your reply. I am apologized about the numer. I mean 9 buttons. Sorry.