Vb扫雷程序代码

Vb扫雷程序代码

ID:43442469

大小:22.24 KB

页数:23页

时间:2019-10-01

Vb扫雷程序代码_第1页
Vb扫雷程序代码_第2页
Vb扫雷程序代码_第3页
Vb扫雷程序代码_第4页
Vb扫雷程序代码_第5页
资源描述:

《Vb扫雷程序代码》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库

1、PrivateobjMineAsNewclsWinMinePrivateSubForm_Load()SetobjMine.frmDisplay=MeEndSubPrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,xAsSingle,yAsSingle)'判断单击的是哪个区域objMine.BeginHitTestButton,x,yEndSubPrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,xAsSingle,yAsSingle)'判

2、断当鼠标左键按下的时候鼠标指针在哪个区域objMine.TrackHitTestButton,x,yEndSubPrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,xAsSingle,yAsSingle)'判断释放鼠标左键的时候鼠标指针在哪个区域objMine.EndHitTestButton,x,yEndSubPrivateSubmnuBeginner_Click()mnuBeginner.Checked=TruemnuIntermediate.Checked=FalsemnuExpert.Chec

3、ked=FalsemnuCustom.Checked=False'初级模式objMine.SetMineFieldDimension8,8,10,FalseobjMine.mblnNewGame=TrueEndSubPrivateSubmnuCustom_Click()mnuBeginner.Checked=FalsemnuIntermediate.Checked=FalsemnuExpert.Checked=FalsemnuCustom.Checked=True'中级模式objMine.GetMineFieldDimensionsfrmCustomDlg

4、frmCustomDlg.Show1'如果按ESC键,则退出IffrmCustomDlg.mblnEscapeThenExitSubobjMine.SetMineFieldDimensionVal(frmCustomDlg.txtRows),Val(frmCustomDlg.txtColumns),Val(frmCustomDlg.txtMines),True'卸载隐藏的对话框UnloadfrmCustomDlg'做好准备开始新游戏objMine.mblnNewGame=TrueEndSubPrivateSubmnuExit_Click()'调用termi

5、nate事件SetobjMine=Nothing'退出游戏EndEndSubPrivateSubmnuExpert_Click()mnuBeginner.Checked=FalsemnuIntermediate.Checked=FalsemnuExpert.Checked=TruemnuCustom.Checked=False'高级模式objMine.SetMineFieldDimension16,30,100,FalseobjMine.mblnNewGame=TrueEndSubPrivateSubmnuIntermediate_Click()mnuBe

6、ginner.Checked=FalsemnuIntermediate.Checked=TruemnuExpert.Checked=FalsemnuCustom.Checked=False'自定义模式objMine.SetMineFieldDimension16,16,40,FalseobjMine.mblnNewGame=TrueEndSubPrivateSubmnuNew_Click()'开始新游戏objMine.NewGameEndSubOptionExplicit'判断左键是否按下PrivateConstLEFT_BUTTONAsByte=1'标记

7、没有地雷的区域PrivateConstNONEAsByte=0'标记是否触雷PrivateConstMINEAsByte=243'已经清除地雷的区域PrivateConstBEENAsByte=244'标记确定已经有地雷的区域PrivateConstFLAGGEDAsByte=2'标记可疑区域PrivateConstQUESTIONAsByte=1'最大、最小行列数PrivateConstMIN_MINESAsByte=10PrivateConstMAX_MINESAsByte=99PrivateConstMIN_ROWSAsInteger=8Privat

8、eConstMAX_ROWSAsInteger=24Private

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。