vb扫雷程序代码.pdfVIP

-

PrivateobjMineAsNewclsWinMine

PrivateSubForm_Load()

SetobjMine.frmDisplay=Me

EndSub

PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,*AsSingle,yAs

Single)

判断单击的是哪个区域

objMine.BeginHitTestButton,*,y

EndSub

PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,*AsSingle,yAs

Single)

判断当鼠标左键按下的时候鼠标指针在哪个区域

objMine.TrackHitTestButton,*,y

EndSub

PrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,*AsSingle,yAsSingle)

判断释放鼠标左键的时候鼠标指针在哪个区域

objMine.EndHitTestButton,*,y

EndSub

PrivateSubmnuBeginner_Click()

mnuBeginner.Checked=True

mnuIntermediate.Checked=False

mnuE*pert.Checked=False

.z.

-

mnuCustom.Checked=False

初级模式

objMine.SetMineFieldDimension8,8,10,False

objMine.mblnNewGame=True

EndSub

PrivateSubmnuCustom_Click()

mnuBeginner.Checked=False

mnuIntermediate.Checked=False

mnuE*pert.Checked=False

mnuCustom.Checked=True

中级模式

objMine.GetMineFieldDimensionsfrmCustomDlg

frmCustomDlg.Show1

如果按ESC键，则退出

IffrmCustomDlg.mblnEscapeThenE*itSub

objMine.SetMineFieldDimensionVal(frmCustomDlg.t*tRows),

Val(frmCustomDlg.t*tColumns),Val(frmCustomDlg.t*tMines),True

卸载隐藏的对话框

UnloadfrmCustomDlg

做好准备开场新游戏

objMine.mblnNewGame=True

EndSub

.z.

-

PrivateSubmnuE*it_Click()

调用terminate事件

SetobjMine=Nothing

退出游戏

End

EndSub

PrivateSubmnuE*pert_Click()

mnuBeginner.Checked=False

mn