PrivateobjMineAsNewclsWinMinePrivateSubForm_Load()=MeEndSubPrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,xAsSingle,yAsSingle)',x,yEndSubPrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,xAsSingle,yAsSingle)',x,yEndSubPrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,xAsSingle,yAsSingle)',x,yEndSubPrivateSubmnuBeginner_Click()====False',8,10,=TrueEndSubPrivateSubmnuCustom_Click()====True''如果按ESC键,(),Val(),Val(),True'卸载隐藏的对话框UnloadfrmCustomDlg'=TrueEndSubPrivateSubmnuExit_Click()'调用terminate事件SetobjMine=Nothing'退出游戏EndEndSubPrivateSubmnuExpert_Click()====False',30,100,=TrueEndSubPrivateSubmnuIntermediate_Click()====False',16,40,=TrueEndSubPrivateSubmnuNew_Click()''判断左键是否按下PrivateConstLEFT_BUTTONAsByte=1'标记没有地雷的区域PrivateConstNONEAsByte=0'标记是否触雷PrivateConstMINEAsByte=243'已经清除地雷的区域PrivateConstBEENAsByte=244'标记确定已经有地雷的区域PrivateConstFLAGGEDAsByte=2'标记可疑区域PrivateConstQUESTIONAsByte=1'最大、最小行列数PrivateConstMIN_MINESAsByte=10PrivateConstMAX_MINESAsByte=99PrivateConstMIN_ROWSAsInteger=8PrivateConstMAX_ROWSAsInteger=24Private
Vb扫雷程序代码 来自淘豆网m.daumloan.com转载请标明出处.
