Code:
Public Class tictactoe
Inherits System.Windows.Forms.Form
Dim p As New Integer
Dim pic As New PictureBox
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
'This call is required by the Windows Form Designer.
InitializeComponent()
'Add any initialization after the InitializeComponent() call
End Sub
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
Friend WithEvents tside As System.Windows.Forms.Label
Friend WithEvents lside As System.Windows.Forms.Label
Friend WithEvents rside As System.Windows.Forms.Label
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents x As System.Windows.Forms.PictureBox
Friend WithEvents o As System.Windows.Forms.PictureBox
Friend WithEvents Wplayer As System.Windows.Forms.Label
Friend WithEvents Start As System.Windows.Forms.Button
Friend WithEvents pic1 As System.Windows.Forms.PictureBox
Friend WithEvents pic2 As System.Windows.Forms.PictureBox
Friend WithEvents pic9 As System.Windows.Forms.PictureBox
Friend WithEvents pic8 As System.Windows.Forms.PictureBox
Friend WithEvents pic7 As System.Windows.Forms.PictureBox
Friend WithEvents pic6 As System.Windows.Forms.PictureBox
Friend WithEvents pic5 As System.Windows.Forms.PictureBox
Friend WithEvents pic4 As System.Windows.Forms.PictureBox
Friend WithEvents pic3 As System.Windows.Forms.PictureBox
Friend WithEvents Closer As System.Windows.Forms.Button
Friend WithEvents blank As System.Windows.Forms.PictureBox
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(tictactoe))
Me.tside = New System.Windows.Forms.Label
Me.lside = New System.Windows.Forms.Label
Me.rside = New System.Windows.Forms.Label
Me.Label1 = New System.Windows.Forms.Label
Me.Label2 = New System.Windows.Forms.Label
Me.Label3 = New System.Windows.Forms.Label
Me.Label4 = New System.Windows.Forms.Label
Me.Label5 = New System.Windows.Forms.Label
Me.pic1 = New System.Windows.Forms.PictureBox
Me.pic2 = New System.Windows.Forms.PictureBox
Me.pic9 = New System.Windows.Forms.PictureBox
Me.pic8 = New System.Windows.Forms.PictureBox
Me.pic7 = New System.Windows.Forms.PictureBox
Me.pic6 = New System.Windows.Forms.PictureBox
Me.pic5 = New System.Windows.Forms.PictureBox
Me.pic4 = New System.Windows.Forms.PictureBox
Me.pic3 = New System.Windows.Forms.PictureBox
Me.x = New System.Windows.Forms.PictureBox
Me.o = New System.Windows.Forms.PictureBox
Me.Wplayer = New System.Windows.Forms.Label
Me.Start = New System.Windows.Forms.Button
Me.Closer = New System.Windows.Forms.Button
Me.blank = New System.Windows.Forms.PictureBox
Me.SuspendLayout()
'
'tside
'
Me.tside.BackColor = System.Drawing.Color.Black
Me.tside.Location = New System.Drawing.Point(8, 8)
Me.tside.Name = "tside"
Me.tside.Size = New System.Drawing.Size(150, 1)
Me.tside.TabIndex = 0
'
'lside
'
Me.lside.BackColor = System.Drawing.Color.Black
Me.lside.Location = New System.Drawing.Point(8, 8)
Me.lside.Name = "lside"
Me.lside.Size = New System.Drawing.Size(1, 150)
Me.lside.TabIndex = 1
'
'rside
'
Me.rside.BackColor = System.Drawing.Color.Black
Me.rside.Location = New System.Drawing.Point(157, 8)
Me.rside.Name = "rside"
Me.rside.Size = New System.Drawing.Size(1, 150)
Me.rside.TabIndex = 2
'
'Label1
'
Me.Label1.BackColor = System.Drawing.Color.Black
Me.Label1.Location = New System.Drawing.Point(8, 157)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(150, 1)
Me.Label1.TabIndex = 3
'
'Label2
'
Me.Label2.BackColor = System.Drawing.Color.Black
Me.Label2.Location = New System.Drawing.Point(57, 8)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(1, 150)
Me.Label2.TabIndex = 4
'
'Label3
'
Me.Label3.BackColor = System.Drawing.Color.Black
Me.Label3.Location = New System.Drawing.Point(106, 8)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(1, 150)
Me.Label3.TabIndex = 5
'
'Label4
'
Me.Label4.BackColor = System.Drawing.Color.Black
Me.Label4.Location = New System.Drawing.Point(8, 57)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(150, 1)
Me.Label4.TabIndex = 6
'
'Label5
'
Me.Label5.BackColor = System.Drawing.Color.Black
Me.Label5.Location = New System.Drawing.Point(8, 106)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(150, 1)
Me.Label5.TabIndex = 7
'
'pic1
'
Me.pic1.Location = New System.Drawing.Point(16, 16)
Me.pic1.Name = "pic1"
Me.pic1.Size = New System.Drawing.Size(32, 32)
Me.pic1.TabIndex = 8
Me.pic1.TabStop = False
'
'pic2
'
Me.pic2.Location = New System.Drawing.Point(64, 16)
Me.pic2.Name = "pic2"
Me.pic2.Size = New System.Drawing.Size(32, 32)
Me.pic2.TabIndex = 9
Me.pic2.TabStop = False
'
'pic9
'
Me.pic9.Location = New System.Drawing.Point(112, 112)
Me.pic9.Name = "pic9"
Me.pic9.Size = New System.Drawing.Size(32, 32)
Me.pic9.TabIndex = 10
Me.pic9.TabStop = False
'
'pic8
'
Me.pic8.Location = New System.Drawing.Point(64, 112)
Me.pic8.Name = "pic8"
Me.pic8.Size = New System.Drawing.Size(32, 32)
Me.pic8.TabIndex = 11
Me.pic8.TabStop = False
'
'pic7
'
Me.pic7.Location = New System.Drawing.Point(16, 112)
Me.pic7.Name = "pic7"
Me.pic7.Size = New System.Drawing.Size(32, 32)
Me.pic7.TabIndex = 12
Me.pic7.TabStop = False
'
'pic6
'
Me.pic6.Location = New System.Drawing.Point(112, 64)
Me.pic6.Name = "pic6"
Me.pic6.Size = New System.Drawing.Size(32, 32)
Me.pic6.TabIndex = 13
Me.pic6.TabStop = False
'
'pic5
'
Me.pic5.Location = New System.Drawing.Point(64, 64)
Me.pic5.Name = "pic5"
Me.pic5.Size = New System.Drawing.Size(32, 32)
Me.pic5.TabIndex = 14
Me.pic5.TabStop = False
'
'pic4
'
Me.pic4.Location = New System.Drawing.Point(16, 64)
Me.pic4.Name = "pic4"
Me.pic4.Size = New System.Drawing.Size(32, 32)
Me.pic4.TabIndex = 15
Me.pic4.TabStop = False
'
'pic3
'
Me.pic3.Location = New System.Drawing.Point(112, 16)
Me.pic3.Name = "pic3"
Me.pic3.Size = New System.Drawing.Size(32, 32)
Me.pic3.TabIndex = 16
Me.pic3.TabStop = False
'
'x
'
Me.x.Image = CType(resources.GetObject("x.Image"), System.Drawing.Image)
Me.x.Location = New System.Drawing.Point(16, 168)
Me.x.Name = "x"
Me.x.Size = New System.Drawing.Size(8, 16)
Me.x.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.x.TabIndex = 17
Me.x.TabStop = False
Me.x.Visible = False
'
'o
'
Me.o.Image = CType(resources.GetObject("o.Image"), System.Drawing.Image)
Me.o.Location = New System.Drawing.Point(40, 168)
Me.o.Name = "o"
Me.o.Size = New System.Drawing.Size(8, 16)
Me.o.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.o.TabIndex = 18
Me.o.TabStop = False
Me.o.Visible = False
'
'Wplayer
'
Me.Wplayer.Location = New System.Drawing.Point(192, 16)
Me.Wplayer.Name = "Wplayer"
Me.Wplayer.Size = New System.Drawing.Size(88, 16)
Me.Wplayer.TabIndex = 19
Me.Wplayer.Text = "Player X"
'
'Start
'
Me.Start.Location = New System.Drawing.Point(184, 56)
Me.Start.Name = "Start"
Me.Start.TabIndex = 20
Me.Start.Tag = ""
Me.Start.Text = "New Game"
'
'Closer
'
Me.Closer.Location = New System.Drawing.Point(184, 104)
Me.Closer.Name = "Closer"
Me.Closer.TabIndex = 21
Me.Closer.Text = "Exit"
'
'blank
'
Me.blank.Location = New System.Drawing.Point(64, 176)
Me.blank.Name = "blank"
Me.blank.Size = New System.Drawing.Size(8, 8)
Me.blank.TabIndex = 22
Me.blank.TabStop = False
'
'tictactoe
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.BackColor = System.Drawing.Color.Red
Me.ClientSize = New System.Drawing.Size(292, 166)
Me.Controls.Add(Me.blank)
Me.Controls.Add(Me.Closer)
Me.Controls.Add(Me.Start)
Me.Controls.Add(Me.Wplayer)
Me.Controls.Add(Me.o)
Me.Controls.Add(Me.x)
Me.Controls.Add(Me.pic3)
Me.Controls.Add(Me.pic4)
Me.Controls.Add(Me.pic5)
Me.Controls.Add(Me.pic6)
Me.Controls.Add(Me.pic7)
Me.Controls.Add(Me.pic8)
Me.Controls.Add(Me.pic9)
Me.Controls.Add(Me.pic2)
Me.Controls.Add(Me.pic1)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.rside)
Me.Controls.Add(Me.lside)
Me.Controls.Add(Me.tside)
Me.Name = "tictactoe"
Me.Text = "Tic-Tac-Toe"
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub tictactoe_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
p = 1
End Sub
Private Sub pic_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pic1.Click, pic2.Click, pic3.Click, pic4.Click, pic5.Click, pic6.Click, pic7.Click, pic8.Click, pic9.Click
pic = sender
Select Case p
Case 1
If pic.Image Is blank.Image Then
p = 2
Wplayer.Text = "Player O"
pic.Image = x.Image
End If
Case 2
If pic.Image Is blank.Image Then
p = 1
Wplayer.Text = "Player X"
pic.Image = o.Image
End If
End Select
Call win()
Call tie()
Call win3()
End Sub
Private Sub Closer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Closer.Click
End
End Sub
Private Sub Start_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Start.Click
pic1.Image = blank.Image
pic2.Image = blank.Image
pic3.Image = blank.Image
pic4.Image = blank.Image
pic5.Image = blank.Image
pic6.Image = blank.Image
pic7.Image = blank.Image
pic8.Image = blank.Image
pic9.Image = blank.Image
pic1.Enabled = True
pic2.Enabled = True
pic3.Enabled = True
pic4.Enabled = True
pic5.Enabled = True
pic6.Enabled = True
pic7.Enabled = True
pic8.Enabled = True
pic9.Enabled = True
Wplayer.Text = "Player X"
p = 1
End Sub
Public Function win()
If pic1.Image Is pic2.Image And pic2.Image Is pic3.Image And pic3.Image Is x.Image Then
Call win2()
End If
If pic4.Image Is pic5.Image And pic5.Image Is pic6.Image And pic6.Image Is x.Image Then
Call win2()
End If
If pic7.Image Is pic8.Image And pic8.Image Is pic9.Image And pic9.Image Is x.Image Then
Call win2()
End If
If pic1.Image Is pic4.Image And pic4.Image Is pic7.Image And pic7.Image Is x.Image Then
Call win2()
End If
If pic2.Image Is pic5.Image And pic5.Image Is pic8.Image And pic8.Image Is x.Image Then
Call win2()
End If
If pic3.Image Is pic6.Image And pic6.Image Is pic9.Image And pic9.Image Is x.Image Then
Call win2()
End If
If pic3.Image Is pic5.Image And pic5.Image Is pic7.Image And pic7.Image Is x.Image Then
Call win2()
End If
If pic1.Image Is pic5.Image And pic5.Image Is pic9.Image And pic9.Image Is x.Image Then
Call win2()
End If
End Function
Public Function win2()
pic1.Enabled = False
pic2.Enabled = False
pic3.Enabled = False
pic4.Enabled = False
pic5.Enabled = False
pic6.Enabled = False
pic7.Enabled = False
pic8.Enabled = False
pic9.Enabled = False
If p = 1 Then
Wplayer.Text = "Player O WINS!"
Else
Wplayer.Text = "Player X WINS!"
End If
End Function
Public Function tie()
If pic1.Image Is blank.Image Then
ElseIf pic2.Image Is blank.Image Then
ElseIf pic3.Image Is blank.Image Then
ElseIf pic4.Image Is blank.Image Then
ElseIf pic5.Image Is blank.Image Then
ElseIf pic6.Image Is blank.Image Then
ElseIf pic7.Image Is blank.Image Then
ElseIf pic8.Image Is blank.Image Then
ElseIf pic9.Image Is blank.Image Then
Else
pic1.Enabled = False
pic2.Enabled = False
pic3.Enabled = False
pic4.Enabled = False
pic5.Enabled = False
pic6.Enabled = False
pic7.Enabled = False
pic8.Enabled = False
pic9.Enabled = False
Wplayer.Text = "TIE!"
End If
End Function
Public Function win3()
If pic1.Image Is pic2.Image And pic2.Image Is pic3.Image And pic3.Image Is o.Image Then
Call win2()
End If
If pic4.Image Is pic5.Image And pic5.Image Is pic6.Image And pic6.Image Is o.Image Then
Call win2()
End If
If pic7.Image Is pic8.Image And pic8.Image Is pic9.Image And pic9.Image Is o.Image Then
Call win2()
End If
If pic1.Image Is pic4.Image And pic4.Image Is pic7.Image And pic7.Image Is o.Image Then
Call win2()
End If
If pic2.Image Is pic5.Image And pic5.Image Is pic8.Image And pic8.Image Is o.Image Then
Call win2()
End If
If pic3.Image Is pic6.Image And pic6.Image Is pic9.Image And pic9.Image Is o.Image Then
Call win2()
End If
If pic3.Image Is pic5.Image And pic5.Image Is pic7.Image And pic7.Image Is o.Image Then
Call win2()
End If
If pic1.Image Is pic5.Image And pic5.Image Is pic9.Image And pic9.Image Is o.Image Then
Call win2()
End If
End Function
End Class