2008年3月25日 星期二
2008年3月18日 星期二
OX game : O 與 X 的輸入
Public Class Form1
Dim a, b As String '宣告 a, b 為字串變數
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
a = "O" '當使用者按下O的按鈕
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
a = "X" '當使用者按下X的按鈕
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Button1.Text = a
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Button2.Text = a
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Button3.Text = a
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Button1.Text = " " '當使用者按下清空棋盤的按鈕
Button2.Text = " "
Button3.Text = " "
End Sub
End Class
Dim a, b As String '宣告 a, b 為字串變數
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
a = "O" '當使用者按下O的按鈕
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
a = "X" '當使用者按下X的按鈕
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Button1.Text = a
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Button2.Text = a
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Button3.Text = a
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Button1.Text = " " '當使用者按下清空棋盤的按鈕
Button2.Text = " "
Button3.Text = " "
End Sub
End Class
2008年3月4日 星期二
2008年3月3日 星期一
訂閱:
文章 (Atom)