资源描述:
《Vb扫雷程序代码》由会员上传分享,免费在线阅读,更多相关内容在应用文档-天天文库。
1、-.PrivateobjMineAsNewclsWinMinePrivateSubForm_Load()SetobjMine.frmDisplay=MeEndSubPrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,xAsSingle,yAsSingle)'判断单击的是哪个区域objMine.BeginHitTestButton,x,yEndSubPrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInte
2、ger,xAsSingle,yAsSingle)'判断当鼠标左键按下的时候鼠标指针在哪个区域objMine.TrackHitTestButton,x,yEndSubPrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,xAsSingle,yAsSingle)'判断释放鼠标左键的时候鼠标指针在哪个区域objMine.EndHitTestButton,x,y-.word.zl.-.EndSubPrivateSubmnuBeginner_Click()mnuBe
3、ginner.Checked=TruemnuIntermediate.Checked=FalsemnuExpert.Checked=FalsemnuCustom.Checked=False'初级模式objMine.SetMineFieldDimension8,8,10,FalseobjMine.mblnNewGame=TrueEndSubPrivateSubmnuCustom_Click()mnuBeginner.Checked=FalsemnuIntermediate.Checked=FalsemnuExp
4、ert.Checked=FalsemnuCustom.Checked=True'中级模式objMine.GetMineFieldDimensionsfrmCustomDlgfrmCustomDlg.Show1-.word.zl.-.'如果按ESC键,那么退出IffrmCustomDlg.mblnEscapeThenExitSubobjMine.SetMineFieldDimensionVal(frmCustomDlg.txtRows),Val(frmCustomDlg.txtColumns),Val(frmC
5、ustomDlg.txtMines),True'卸载隐藏的对话框UnloadfrmCustomDlg'做好准备开场新游戏objMine.mblnNewGame=TrueEndSubPrivateSubmnuExit_Click()'调用terminate事件SetobjMine=Nothing'退出游戏EndEndSubPrivateSubmnuExpert_Click()mnuBeginner.Checked=False-.word.zl.-.mnuIntermediate.Checked=Falsemnu
6、Expert.Checked=TruemnuCustom.Checked=False'高级模式objMine.SetMineFieldDimension16,30,100,FalseobjMine.mblnNewGame=TrueEndSubPrivateSubmnuIntermediate_Click()mnuBeginner.Checked=FalsemnuIntermediate.Checked=TruemnuExpert.Checked=FalsemnuCustom.Checked=False'自定义
7、模式objMine.SetMineFieldDimension16,16,40,FalseobjMine.mblnNewGame=TrueEndSubPrivateSubmnuNew_Click()'开场新游戏objMine.NewGameEndSub-.word.zl.-.OptionExplicit'判断左键是否按下PrivateConstLEFT_BUTTONAsByte=1'标记没有地雷的区域PrivateConstNONEAsByte=0'标记是否触雷PrivateConstMINEAsByte=2
8、43'已经去除地雷的区域PrivateConstBEENAsByte=244'标记确定已经有地雷的区域PrivateConstFLAGGEDAsByte=2'标记可疑区域PrivateConstQUESTIONAsByte=1'最大、最小行列数PrivateConstMIN_MINESAsByte=10PrivateConstMAX_MINESAsByte=99PrivateConstMIN_ROW