討論串[VB6 ] 井字遊戲的勝負判定
共 6 篇文章
首頁
上一頁
1
2
下一頁
尾頁

推噓3(3推 0噓 14→)留言17則,0人參與, 最新作者yauhh (姚呵呵)時間17年前 (2008/05/17 12:02), 編輯資訊
0
0
0
內容預覽:
講到基本寫法,由於遊戲是事件觸發,因此可以考慮哪種事件只做哪些事情.. Button1_Click只考慮一條橫列,一條縱行,一條斜線,. Private Sub Button1_Click(ByVal .... x = x + 1. Button1.Enabled = False. If x Mod
(還有1145個字)

推噓1(1推 0噓 1→)留言2則,0人參與, 最新作者chinoyan (chino)時間17年前 (2008/05/17 11:42), 編輯資訊
0
0
0
內容預覽:
好幾年前 VB6 的硬幹法~~~~~~~~. 這是最笨也最簡單的方法. If Image1(0).Tag + Image1(1).Tag + Image1(2).Tag = "000" _. Or Image1(3).Tag + Image1(4).Tag + Image1(5).Tag = "00
(還有841個字)

推噓2(2推 0噓 1→)留言3則,0人參與, 最新作者MOONRAKER (㊣烏笨禿,又笨又禿)時間17年前 (2008/05/17 11:10), 編輯資訊
0
0
1
內容預覽:
沒概念就硬幹啦,不要自找麻煩了. if button1.text = button2.text and button 2.text=button3.text then. .... else if button4.text = button5.text and button5.text=button6
(還有568個字)

推噓1(1推 0噓 3→)留言4則,0人參與, 最新作者yauhh (姚呵呵)時間17年前 (2008/05/17 02:15), 編輯資訊
0
0
0
內容預覽:
因為已經有Button1~Button9,我想可以宣告陣列. Dim a(8) as Button. a(0) = Button1. a(1) = Button2. .... a(8) = Button9. 每個ButtonX的Click動作,設定 o x 之後要做同樣的判斷動作,. 要寫個函式讓9
(還有1314個字)

推噓1(1推 0噓 0→)留言1則,0人參與, 最新作者xtimer時間17年前 (2008/05/17 01:47), 編輯資訊
0
0
0
內容預覽:
我多放了一個dim win(2, 2). 然後9個按紐依續改成了. x = x + 1. Button1.Enabled = False. If x Mod 2 = 1 Then. Button1.Text = "O". win(0, 0) = 1. Else. Button1.Text = "X"
首頁
上一頁
1
2
下一頁
尾頁