2020年Vb扫雷程序代码.doc

PrivateobjMineAsNewclsWinMinePrivateSubForm_Load()Set=MeEndSubPrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,xAsSingle,yAsSingle)'判断单击的是哪个区域Button,x,yEndSubPrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,xAsSingle,yAsSingle)'判断当鼠标左键按下的时候鼠标指针在哪个区域Button,x,yEndSubPrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,xAsSingle,yAsSingle)'判断释放鼠标左键的时候鼠标指针在哪个区域Button,x,yEndSubPrivateSubmnuBeginner_Click()=True=False=False=False'初级模式8,8,10,False=TrueEndSubPrivateSubmnuCustom_Click()=False=False=False=True'中级模式frmCustomDlg1'如果按ESC键,则退出IfThenExitSubVal(),Val(),Val(),True'卸载隐藏的对话框UnloadfrmCustomDlg'做好准备开始新游戏=TrueEndSubPrivateSubmnuExit_Click()'调用terminate事件SetobjMine=Nothing'退出游戏EndEndSubPrivateSubmnuExpert_Click()=False=False=True=False'高级模式16,30,100,False=TrueEndSubPrivateSubmnuIntermediate_Click()=False=True=False=False'自定义模式16,16,40,False=TrueEndSubPrivateSubmnuNew_Click()'开始新游戏EndSubOptionExplicit'判断左键是否按下PrivateConstLEFT_BUTTONAsByte=1'标记没有地雷的区域PrivateConstNONEAsByte=0'标记是否触雷PrivateConstMINEAsByte=243'已经清除地雷的区域PrivateConstBEENAsByte=244'标记确定已经有地雷的区域PrivateConstFLAGGEDAsByte=2'标记可疑区域PrivateConstQUESTIONAsByte=1'最大、最小行列数PrivateConstMIN_MINESAsByte=10PrivateConstMAX_MINESAsByte=99PrivateConstMIN_ROWSAsInteger=8PrivateConstMAX_ROWSAsInteger=24PrivateConstMIN_COLSAsInteger=8PrivateConstMAX_COLSAsInteger=36'宽PrivateConstmintButtonWidthAsByte=16'高PrivateConstmintButtonHeightAsByte=16'总地雷数PrivatembytNumMinesAsByte'尚未标记的地雷数PrivatembytCorrectHitsAsByte'已经标记出的雷数(包括错误的)PrivatembytTotalHitsAsByte'不同等级游戏的总行列数PrivatemintRowsAsIntegerPrivatemintColsAsIntegerPrivatemintRowAsIntegerPrivatemintColAsInteger'标记是否开始新游戏PublicmblnNewGameAsBoolean'标记一个鼠标单击事件正在进行PrivatemblnHitTestBegunAsBooleanPrivatemfrmDisplayAsFormPrivatembytMineStatus()AsBytePrivatembytMarked()AsBytePrivatembytMineLocations()AsBytePrivatemcolWrongLocationsAsNewCollectionPublicSubBeginHitTest(intButtonAsInteger,intXAsSingle,intYAsSingle)'如果当前游戏结束则开始新的游戏IfmblnNewGameThenNewGameEndIfmblnHitTestBegun=True'根据位图计算