【文件属性】:
文件名称:用vb源代码编写的井子棋
文件大小:5KB
文件格式:TXT
更新时间:2012-06-01 17:03:41
井子棋 vb
在窗体上添加:
ChessBoard - PictureBox,AutoRedraw=true,width=3000,height=3000,Enabled=false
Command1 - Button,Caption="开战"
Command2 - Button,Caption="退出"
'White By RichTextBox (张力-广西百色市)
Option Explicit
Option Base 1
Dim cx As Long, cy As Long
Dim ch(3, 3) As Integer
Dim sco(3, 3) As Integer
'White By RichTextBox (张力-广西百色市)
Private Sub Command2_Click()
End