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

[chinoyan (chino)]

好幾年前 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:OHNO，這個字串連接可是非常驚人阿！ XD
推 yauhh:早期總是會希望有一些資料跟著控制項同步,.Tag很常用