在窗体上添加： 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 Lon g Dim ch(3, 3
Imports System.Data Imports System.Data.OleDb Public Class formmmxg Dim conn As New OleDbConnection Dim comm As New OleDbCommand Dim coda As New OleDbDataAdapter Dim cods As New DataSet Private Sub Button1_Click(ByVal sender As System.Object, ByVal
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long) Private Declare Function GetCursorPos Lib "user32" (lpPoint As pointapi) As Long Private Decl
