Re: [VB6 ] 井字遊戲的勝負判定

看板Visual_Basic作者chinoyan (chino)時間17年前 (2008/05/17 11:42)推噓1(1推 0噓 1→)

留言2則, 2人參與討論串5/6 (看更多)

好幾年前 VB6 的硬幹法~~~~~~~~ 這是最笨也最簡單的方法 If Image1(0).Tag + Image1(1).Tag + Image1(2).Tag = "000" _ Or Image1(3).Tag + Image1(4).Tag + Image1(5).Tag = "000" _ Or Image1(6).Tag + Image1(7).Tag + Image1(8).Tag = "000" _ Or Image1(0).Tag + Image1(3).Tag + Image1(6).Tag = "000" _ Or Image1(1).Tag + Image1(4).Tag + Image1(7).Tag = "000" _ Or Image1(2).Tag + Image1(5).Tag + Image1(8).Tag = "000" _ Or Image1(0).Tag + Image1(4).Tag + Image1(8).Tag = "000" _ Or Image1(2).Tag + Image1(4).Tag + Image1(6).Tag = "000" Then Call You_Win Exit Sub End If If Image1(0).Tag + Image1(1).Tag + Image1(2).Tag = "XXX" _ Or Image1(3).Tag + Image1(4).Tag + Image1(5).Tag = "XXX" _ Or Image1(6).Tag + Image1(7).Tag + Image1(8).Tag = "XXX" _ Or Image1(0).Tag + Image1(3).Tag + Image1(6).Tag = "XXX" _ Or Image1(1).Tag + Image1(4).Tag + Image1(7).Tag = "XXX" _ Or Image1(2).Tag + Image1(5).Tag + Image1(8).Tag = "XXX" _ Or Image1(0).Tag + Image1(4).Tag + Image1(8).Tag = "XXX" _ Or Image1(2).Tag + Image1(4).Tag + Image1(6).Tag = "XXX" Then Call PC_Win Exit Sub End If -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 220.133.214.220

→

MOONRAKER

05/17 16:31, , 1^F

05/17 16:31, 1^F

推

yauhh

05/17 16:32, , 2^F

05/17 16:32, 2^F

‣ 返回看板[ Visual_Basic ] 程設

‣ 更多 chinoyan 的文章

文章代碼(AID): #18BbG_-d (Visual_Basic)