作者chinoyan (chino)
看板Visual_Basic
标题Re: [VB6 ] 井字游戏的胜负判定
时间Sat May 17 11:42:52 2008
好几年前 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
1F：→ MOONRAKER:OHNO，这个字串连接可是非常惊人阿！ XD 05/17 16:31
2F：推 yauhh:早期总是会希望有一些资料跟着控制项同步,.Tag很常用 05/17 16:32