Hi guys, I'm kinda new to VB and I've got a few questions
Whenever someone wins a round a message comes up asking if u wanna go for another. If u click yes then all the buttons reset except for the last button you clicked and I dun know why. Suggestions???
VB.NET:
Private Sub win()
Dim intresponse As Integer
If Label4.Text = "X" And Label5.Text = "X" And Label6.Text = "X" Then
intresponse = MsgBox("Player 2 wins round 1" & vbCrLf & "Continue?", MsgBoxStyle.YesNo, "Naughts and Crosses")
lblp2score.Text += 1
If intresponse = vbNo Then
End
ElseIf intresponse = vbYes Then
Label4.Text = ""
Button1.Enabled = True
Label5.Text = ""
Button2.Enabled = True
Label6.Text = ""
Button3.Enabled = True
Label7.Text = ""
Button4.Enabled = True
Label8.Text = ""
Button5.Enabled = True
Label9.Text = ""
Button6.Enabled = True
Label10.Text = ""
Button7.Enabled = True
Label11.Text = ""
Button8.Enabled = True
Label12.Text = ""
Button9.Enabled = True
Label3.Text = "P1"
End If
Btw, I've linked labels to buttons, so like btn 1 to lbl4, btn 2 to lbl 5 etc.
One more question, I'm tryin to make a "Draw" happen. What ive got doesn't work...
VB.NET:
ElseIf Button1.Enabled = False And Button2.Enabled = False And Button3.Enabled = False And Button4.Enabled = False And Button5.Enabled = False And Button6.Enabled = False And Button7.Enabled = False And Button8.Enabled = False And Button9.Enabled = False Then
intresponse = MsgBox("Draw. Try again?", MsgBoxStyle.YesNo, "Draw")
If vbYes = True Then
Label4.Text = ""
Button1.Enabled = True
Label5.Text = ""
Button2.Enabled = True
Label6.Text = ""
Button3.Enabled = True
Label7.Text = ""
Button4.Enabled = True
Label8.Text = ""
Button5.Enabled = True
Label9.Text = ""
Button6.Enabled = True
Label10.Text = ""
Button7.Enabled = True
Label11.Text = ""
Button8.Enabled = True
Label12.Text = ""
Button9.Enabled = True
Label3.Text = "P1"
Else
If vbNo = True Then
End
'alt method, i would do it this way..
Dim response As MsgBoxResult = MsgBox("Player 2 wins round 1" & vbCrLf & "Continue?", MsgBoxStyle.YesNo, "Naughts and Crosses")
If response = MsgBoxResult.Yes Then
End If
'else where in your code..
If intresponse = vbNo Then
End ''i would use Exit Sub instead..
'Using an Exit or End might not always be the best approach or idea...
If u click yes then all the buttons reset except for the last button you clicked and I dun know why.
My guess is that if that button is not being reset it prob is not in the code... Your buttons and labels really need to be renamed to something more logical, it is hard to tell what is what using the standard Label1, Label2, Label..., LabelN.
Also without know what buttons are on your GUI, i have no idea what the last button that was clicked is? Can you provide any more code?
Okay, so the problem in your code should be the code that you have in every button click event. The following lines at the end of the subs
Call win()
Button1.Enabled = False
If you remove the Button1.Enabled = False, also for every other button, Button2.Enabled = False, ... ButtonN.Enabled = False. It should work. Your Win() function is enabling all of the buttons, however right after the win() the button that was clicked that calls it, sets that button back to false. Remove them and it should work just fine, Otherwise! Reverse the order, i think that is what you wanted to do to begin with.
Button1.Enabled = False
Call win()
fyi it is not necessary to use "Call" to call a function like:
ElseIf intresponse = vbYes Then
Call resetbuttons()
End If
'you can just do
ElseIf intresponse = vbYes Then
resetbuttons()
End If
your code has alot of redundant code and it can be reduced by using functions and subroutines.
A tip, you can use the sender object that is passed in to determine what button it was that was clicked when writing functions/subs to reduce the amount of code. like for your button click events
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim thisButton As Button = DirectCast(sender, Button)
So basically you should be able to write one functon that will handle all of the buttons that the player is suppose to click.
Yea no problem. I just took a look at it. You were testing for the wrong thing in your if block that displays the message
you have
If vbYes = True Then
Call resetbuttons()
you should be comparing it with intresponse , so it should work like this..
intresponse = MsgBox("Draw. Try again?", MsgBoxStyle.YesNo, "Draw")
If vbYes = intresponse Then
Call resetbuttons()
Else
If vbNo = True Then
Me.Close()
End If
End If
Do you know how to use the debugger in VS? If you don't you should really read up on it. Set some break points and step through the code, you should be able to find your errors alot easier that way.
Yeah no problem, sorry i forgot to mention that, but like i said in the other post. you just need to reverse it, which was what you intended to do in the first place. so it should be
Button1.Enabled = False
Call win()'no need for the call
So i wrote my own version of it. I tried to keep it simple, it uses functions and subs, multi dimension arrays, for each and for loops, casting and using sender object, i tried to stay away from using classes and so forth.
This is not the best version, but it works and it reduces some code redundancy. Also if you rewrite the last portion in the isWinner to check for crosses using a loop this program should work for any size grid like a 4x4 or 7x7 and so forth. To make it like that you can also use a loop to create new controls dynamically and just add it to a table, form or something.
Here is the working code. Below in the Region is the Designer portion of the code. I did not go over this to well but i did confirm that this code works. There may be bugs and i did not catch for errors. Some of the methods used maybe not be the best approach, if i have time and feel like it i will update this with a more optimized and so forth code.
Happy Coding.
Public Class Form1
Inherits System.Windows.Forms.Form
Dim p1Score As Integer = 0
Dim p2Score As Integer = 0
Dim rounds As Integer = 0
Dim firstPlayersTurn As Boolean = True
'handles all clicks
Private Sub btnMoveClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn0_0.Click, btn0_1.Click, btn0_2.Click, btn1_0.Click, btn1_1.Click, btn1_2.Click, btn2_0.Click, btn2_1.Click, btn2_2.Click
Dim thisButton As Button = DirectCast(sender, Button)
If thisButton.Enabled Then
thisButton.Enabled = False
If firstPlayersTurn Then
firstPlayersTurn = False
thisButton.Text = "X"
Else
firstPlayersTurn = True
thisButton.Text = "O"
End If
End If
determineWinner()
End Sub
Private Sub determineWinner()
Dim grid(,) As String = {{btn0_0.Text, btn0_1.Text, btn0_2.Text}, _
{btn1_0.Text, btn1_1.Text, btn1_2.Text}, _
{btn2_0.Text, btn2_1.Text, btn2_2.Text}}
Dim playerWon As String = ""
If isAllDisabled() Then
reset()
playerWon = "D"
End If
If isWinner("X", grid) Then
playerWon = "X"
p1Score += 1
rounds += 1
ElseIf isWinner("O", grid) Then
playerWon = "O"
p2Score += 1
rounds += 1
End If
If rounds = 5 Then 'game over
If p1Score > p2Score Then
showmessage0(String.Format("Player 1 WON the game! {0}/{1}. Round {2}/5. Restart the game?", p1Score, p2Score, rounds))
ElseIf p1Score < p2Score Then
showmessage0(String.Format("Player 2 WON the game! {0}/{1}. Round {2}/5. Restart the game?", p2Score, p1Score, rounds))
End If
Else 'each round
If playerWon = "X" Then
showmessageRound(String.Format("Player 1 wins the Round! {0}:{1}. Round {2}/5 Try again?", p1Score, p2Score, rounds))
ElseIf playerWon = "O" Then
showmessageRound(String.Format("Player 2 wins the Round! {0}/{1}. Round {2}/5. Try again?", p1Score, p2Score, rounds))
ElseIf playerWon = "D" Then
showmessage0(String.Format("Draw! {0}:{1}. Round {2}/5 Try again?", p1Score, p2Score, rounds))
End If
End If
End Sub
Sub showmessage0(ByVal Msg As String)
If MsgBox(Msg, MsgBoxStyle.YesNo, "Noughts and Crosses") = vbYes Then
reset()
rounds = 0
p1Score = 0
p2Score = 0
Else
Me.Close()
End If
End Sub
Sub showmessageRound(ByVal Msg As String)
If MsgBox(Msg, MsgBoxStyle.YesNo, "Noughts and Crosses") = vbYes Then
reset()
Else
Me.Close()
End If
End Sub
Function isAllDisabled() As Boolean
For Each btn As Button In TableLayoutPanel1.Controls
If btn.Enabled Then
Return False
End If
Next
Return True
End Function
Sub reset()
For Each btn As Button In TableLayoutPanel1.Controls
btn.Enabled = True
btn.Text = ""
'firstPlayersTurn = True
Next
End Sub
Private Function isWinner(ByVal playerValue As String, ByVal grid(,) As String) As Boolean
'check for row winner
For row As Integer = 0 To grid.GetUpperBound(0)
Dim found As Boolean = True
For col As Integer = 0 To grid.GetUpperBound(0)
If grid(row, col) <> playerValue Then
found = False
Exit For
End If
Next
If found Then
Return True
End If
Next
'check for winner col
For col As Integer = 0 To grid.GetUpperBound(0)
Dim found As Boolean = True
For row As Integer = 0 To grid.GetUpperBound(0)
If grid(row, col) <> playerValue Then
found = False
Exit For
End If
Next
If found Then
Return True
End If
Next
'check for cross ' special cases
If ((grid(0, 0) = playerValue) AndAlso (grid(1, 1) = playerValue) AndAlso (grid(2, 2) = playerValue)) OrElse ((grid(0, 2) = playerValue) AndAlso (grid(1, 1) = playerValue) AndAlso (grid(2, 0) = playerValue)) Then
Return True
End If
'didnt feel like it, but more ideally this would be checked through a loop and you can then use this code for any size grid as long as you
'check for the condition of whether of not the size is an odd or even number which would determine if this loop is needed. Also all
'three of these loops should be able to be combined into one loop i believe, i'll rewrite it sometime if i feel like it.
Return False
End Function
#Region "GENERATED CODE"
Sub New()
InitializeComponent()
End Sub
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
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.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel()
Me.btn2_2 = New System.Windows.Forms.Button()
Me.btn2_1 = New System.Windows.Forms.Button()
Me.btn2_0 = New System.Windows.Forms.Button()
Me.btn1_2 = New System.Windows.Forms.Button()
Me.btn1_1 = New System.Windows.Forms.Button()
Me.btn1_0 = New System.Windows.Forms.Button()
Me.btn0_2 = New System.Windows.Forms.Button()
Me.btn0_0 = New System.Windows.Forms.Button()
Me.btn0_1 = New System.Windows.Forms.Button()
Me.TableLayoutPanel1.SuspendLayout()
Me.SuspendLayout()
'
'TableLayoutPanel1
'
Me.TableLayoutPanel1.ColumnCount = 3
Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 50.0!))
Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 50.0!))
Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 50.0!))
Me.TableLayoutPanel1.Controls.Add(Me.btn2_2, 2, 2)
Me.TableLayoutPanel1.Controls.Add(Me.btn2_1, 1, 2)
Me.TableLayoutPanel1.Controls.Add(Me.btn2_0, 0, 2)
Me.TableLayoutPanel1.Controls.Add(Me.btn1_2, 2, 1)
Me.TableLayoutPanel1.Controls.Add(Me.btn1_1, 1, 1)
Me.TableLayoutPanel1.Controls.Add(Me.btn1_0, 0, 1)
Me.TableLayoutPanel1.Controls.Add(Me.btn0_2, 2, 0)
Me.TableLayoutPanel1.Controls.Add(Me.btn0_0, 0, 0)
Me.TableLayoutPanel1.Controls.Add(Me.btn0_1, 1, 0)
Me.TableLayoutPanel1.Location = New System.Drawing.Point(12, 12)
Me.TableLayoutPanel1.Name = "TableLayoutPanel1"
Me.TableLayoutPanel1.RowCount = 3
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 50.0!))
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 50.0!))
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 50.0!))
Me.TableLayoutPanel1.Size = New System.Drawing.Size(150, 150)
Me.TableLayoutPanel1.TabIndex = 0
'
'btn2_2
'
Me.btn2_2.BackColor = System.Drawing.Color.White
Me.btn2_2.FlatAppearance.BorderColor = System.Drawing.Color.Black
Me.btn2_2.FlatAppearance.CheckedBackColor = System.Drawing.Color.Black
Me.btn2_2.FlatAppearance.MouseDownBackColor = System.Drawing.Color.White
Me.btn2_2.FlatAppearance.MouseOverBackColor = System.Drawing.Color.White
Me.btn2_2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn2_2.Font = New System.Drawing.Font("Microsoft Sans Serif", 16.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btn2_2.ForeColor = System.Drawing.Color.Black
Me.btn2_2.Location = New System.Drawing.Point(103, 103)
Me.btn2_2.Name = "btn2_2"
Me.btn2_2.Size = New System.Drawing.Size(44, 37)
Me.btn2_2.TabIndex = 8
Me.btn2_2.TabStop = False
Me.btn2_2.UseVisualStyleBackColor = False
'
'btn2_1
'
Me.btn2_1.BackColor = System.Drawing.Color.White
Me.btn2_1.FlatAppearance.BorderColor = System.Drawing.Color.Black
Me.btn2_1.FlatAppearance.CheckedBackColor = System.Drawing.Color.Black
Me.btn2_1.FlatAppearance.MouseDownBackColor = System.Drawing.Color.White
Me.btn2_1.FlatAppearance.MouseOverBackColor = System.Drawing.Color.White
Me.btn2_1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn2_1.Font = New System.Drawing.Font("Microsoft Sans Serif", 16.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btn2_1.ForeColor = System.Drawing.Color.Black
Me.btn2_1.Location = New System.Drawing.Point(53, 103)
Me.btn2_1.Name = "btn2_1"
Me.btn2_1.Size = New System.Drawing.Size(44, 37)
Me.btn2_1.TabIndex = 7
Me.btn2_1.TabStop = False
Me.btn2_1.UseVisualStyleBackColor = False
'
'btn2_0
'
Me.btn2_0.BackColor = System.Drawing.Color.White
Me.btn2_0.FlatAppearance.BorderColor = System.Drawing.Color.Black
Me.btn2_0.FlatAppearance.CheckedBackColor = System.Drawing.Color.Black
Me.btn2_0.FlatAppearance.MouseDownBackColor = System.Drawing.Color.White
Me.btn2_0.FlatAppearance.MouseOverBackColor = System.Drawing.Color.White
Me.btn2_0.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn2_0.Font = New System.Drawing.Font("Microsoft Sans Serif", 16.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btn2_0.ForeColor = System.Drawing.Color.Black
Me.btn2_0.Location = New System.Drawing.Point(3, 103)
Me.btn2_0.Name = "btn2_0"
Me.btn2_0.Size = New System.Drawing.Size(44, 37)
Me.btn2_0.TabIndex = 6
Me.btn2_0.TabStop = False
Me.btn2_0.UseVisualStyleBackColor = False
'
'btn1_2
'
Me.btn1_2.BackColor = System.Drawing.Color.White
Me.btn1_2.FlatAppearance.BorderColor = System.Drawing.Color.Black
Me.btn1_2.FlatAppearance.CheckedBackColor = System.Drawing.Color.Black
Me.btn1_2.FlatAppearance.MouseDownBackColor = System.Drawing.Color.White
Me.btn1_2.FlatAppearance.MouseOverBackColor = System.Drawing.Color.White
Me.btn1_2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn1_2.Font = New System.Drawing.Font("Microsoft Sans Serif", 16.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btn1_2.ForeColor = System.Drawing.Color.Black
Me.btn1_2.Location = New System.Drawing.Point(103, 53)
Me.btn1_2.Name = "btn1_2"
Me.btn1_2.Size = New System.Drawing.Size(44, 37)
Me.btn1_2.TabIndex = 5
Me.btn1_2.TabStop = False
Me.btn1_2.UseVisualStyleBackColor = False
'
'btn1_1
'
Me.btn1_1.BackColor = System.Drawing.Color.White
Me.btn1_1.FlatAppearance.BorderColor = System.Drawing.Color.Black
Me.btn1_1.FlatAppearance.CheckedBackColor = System.Drawing.Color.Black
Me.btn1_1.FlatAppearance.MouseDownBackColor = System.Drawing.Color.White
Me.btn1_1.FlatAppearance.MouseOverBackColor = System.Drawing.Color.White
Me.btn1_1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn1_1.Font = New System.Drawing.Font("Microsoft Sans Serif", 16.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btn1_1.ForeColor = System.Drawing.Color.Black
Me.btn1_1.Location = New System.Drawing.Point(53, 53)
Me.btn1_1.Name = "btn1_1"
Me.btn1_1.Size = New System.Drawing.Size(44, 37)
Me.btn1_1.TabIndex = 4
Me.btn1_1.TabStop = False
Me.btn1_1.UseVisualStyleBackColor = False
'
'btn1_0
'
Me.btn1_0.BackColor = System.Drawing.Color.White
Me.btn1_0.FlatAppearance.BorderColor = System.Drawing.Color.Black
Me.btn1_0.FlatAppearance.CheckedBackColor = System.Drawing.Color.Black
Me.btn1_0.FlatAppearance.MouseDownBackColor = System.Drawing.Color.White
Me.btn1_0.FlatAppearance.MouseOverBackColor = System.Drawing.Color.White
Me.btn1_0.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn1_0.Font = New System.Drawing.Font("Microsoft Sans Serif", 16.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btn1_0.ForeColor = System.Drawing.Color.Black
Me.btn1_0.Location = New System.Drawing.Point(3, 53)
Me.btn1_0.Name = "btn1_0"
Me.btn1_0.Size = New System.Drawing.Size(44, 37)
Me.btn1_0.TabIndex = 3
Me.btn1_0.TabStop = False
Me.btn1_0.UseVisualStyleBackColor = False
'
'btn0_2
'
Me.btn0_2.BackColor = System.Drawing.Color.White
Me.btn0_2.FlatAppearance.BorderColor = System.Drawing.Color.Black
Me.btn0_2.FlatAppearance.CheckedBackColor = System.Drawing.Color.Black
Me.btn0_2.FlatAppearance.MouseDownBackColor = System.Drawing.Color.White
Me.btn0_2.FlatAppearance.MouseOverBackColor = System.Drawing.Color.White
Me.btn0_2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn0_2.Font = New System.Drawing.Font("Microsoft Sans Serif", 16.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btn0_2.ForeColor = System.Drawing.Color.Black
Me.btn0_2.Location = New System.Drawing.Point(103, 3)
Me.btn0_2.Name = "btn0_2"
Me.btn0_2.Size = New System.Drawing.Size(44, 37)
Me.btn0_2.TabIndex = 2
Me.btn0_2.TabStop = False
Me.btn0_2.UseVisualStyleBackColor = False
'
'btn0_0
'
Me.btn0_0.BackColor = System.Drawing.Color.White
Me.btn0_0.FlatAppearance.BorderColor = System.Drawing.Color.Black
Me.btn0_0.FlatAppearance.CheckedBackColor = System.Drawing.Color.Black
Me.btn0_0.FlatAppearance.MouseDownBackColor = System.Drawing.Color.White
Me.btn0_0.FlatAppearance.MouseOverBackColor = System.Drawing.Color.White
Me.btn0_0.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn0_0.Font = New System.Drawing.Font("Microsoft Sans Serif", 16.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btn0_0.ForeColor = System.Drawing.Color.Black
Me.btn0_0.Location = New System.Drawing.Point(3, 3)
Me.btn0_0.Name = "btn0_0"
Me.btn0_0.Size = New System.Drawing.Size(44, 37)
Me.btn0_0.TabIndex = 1
Me.btn0_0.TabStop = False
Me.btn0_0.UseVisualStyleBackColor = False
'
'btn0_1
'
Me.btn0_1.BackColor = System.Drawing.Color.White
Me.btn0_1.FlatAppearance.BorderColor = System.Drawing.Color.Black
Me.btn0_1.FlatAppearance.CheckedBackColor = System.Drawing.Color.Black
Me.btn0_1.FlatAppearance.MouseDownBackColor = System.Drawing.Color.White
Me.btn0_1.FlatAppearance.MouseOverBackColor = System.Drawing.Color.White
Me.btn0_1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn0_1.Font = New System.Drawing.Font("Microsoft Sans Serif", 16.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btn0_1.ForeColor = System.Drawing.Color.Black
Me.btn0_1.Location = New System.Drawing.Point(53, 3)
Me.btn0_1.Name = "btn0_1"
Me.btn0_1.Size = New System.Drawing.Size(44, 37)
Me.btn0_1.TabIndex = 0
Me.btn0_1.TabStop = False
Me.btn0_1.UseVisualStyleBackColor = False
'
'Form1
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(284, 262)
Me.Controls.Add(Me.TableLayoutPanel1)
Me.Name = "Form1"
Me.Text = "Form1"
Me.TableLayoutPanel1.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel
Friend WithEvents btn2_2 As System.Windows.Forms.Button
Friend WithEvents btn2_1 As System.Windows.Forms.Button
Friend WithEvents btn2_0 As System.Windows.Forms.Button
Friend WithEvents btn1_2 As System.Windows.Forms.Button
Friend WithEvents btn1_1 As System.Windows.Forms.Button
Friend WithEvents btn1_0 As System.Windows.Forms.Button
Friend WithEvents btn0_2 As System.Windows.Forms.Button
Friend WithEvents btn0_0 As System.Windows.Forms.Button
Friend WithEvents btn0_1 As System.Windows.Forms.Button
#End Region
End Class
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.