扫雷程序设计

扫雷程序设计 1、OptionExplicit 标题栏 21 确定 TOP=70 取消 TOP=31LEFT=123 按钮大小60*24 文本框大小 38*18 文本框高度765431Left=72PrivateSubForm_Load()Text1(0).Text=MHeightText1(1).Text=MWidthText1(2).Text=MinesRemoveMenuLineMe.hWnd,5EndSubPrivateSubOKButton_Click()LetMHeight=Text1(0).TextIfMHeight9ThenL 2、etMHeight=9IfMHeight24ThenLetMHeight=24LetMWidth=Text1(1).TextIfMWidth9ThenLetMWidth=9IfMWidth30ThenLetMWidth=30LetMines=Text1(2).TextIfMines10ThenLetMines=10IfMines(MHeight-1)*(MWidth-1)ThenLetMines=(MHeight-1)*(MWidth-1)FrmMain.ClsFrmMain.GameStart 开始Unl 3、oadMeEndSubPrivateSubCancelButton_Click()UnloadMeEndSubPrivateSubText1_KeyPress(IndexAsInteger,KeyAsciiAsInteger)If(KeyAscii48OrKeyAscii57)AndKeyAscii8ThenKeyAscii=0EndSubPrivateSubHotKey(IndexAsInteger)Text1(Index).SetFocusText1(Index).SelStart=0Text1(In 4、dex).SelLength=Len(Text1(Index).Text)EndSubPrivateSubLabel1_Click()HotKey0EndSubPrivateSubLabel2_Click()HotKey1EndSubPrivateSubLabel3_Click()HotKey2EndSubOptionExplicitPrivateConstvbGray=H848284 灰色PrivateConstMLeftAsLong=180 雷区距离左侧(按 Twips 计算)PrivateConstMTop 5、AsLong=825 雷区距离上部 PrivateConstWAVE_DEFAULT=432 默认声音PrivateConstWAVE_VICTORY=433 失败声音 PrivateConstWAVE_LOST=434 胜利声音 PrivateConstBMP_GRID_WIDTH=16 格子的宽PrivateConstBMP_GRID_HEIGHT=16 格子的高 PrivateConstBMP_NUM_WIDTH=13 数字的宽 PrivateConstBMP_NUM_HEIGHT=23 数字的高 PrivateConstBM 6、P_NUM_TOP=16 数字距离上边〔菜单底〕PrivateConstBMP_NUM_MINE_LEFT=17 计数器距离左侧PrivateConstBMP_NUM_TIME_RIGHT=BMP_NUM_WIDTH*3+20 计时器左侧距离窗体右侧 PrivateConstBMP_FACE_WIDTH=24 表情的宽PrivateConstBMP_FACE_HEIGHT=24 表情的高 PrivateConstBMP_FACE_TOP=16 表情距离上边〔菜单底〕PrivateCanPeeperAsBoolean 作弊初 7、级 9/9/10 中级 16/16/40 高级30/16/99PrivateNoMineAsBooleanPrivateSubInithDC()DimIAsLongDimhBmpAsStdPicture 从资源读取游戏图片 ForI=0To2 不用PictureBoxSethBmp=LoadResPicture(IIf(MnuCheck(1).Checked,410,411)+I*10,vbResBitmap)LethBmpDC(I)=CreateCompatibleDC(Me.hdc)CallSelectObject 8、(hBmpDC(I),hBmp.Handle)SethBmp=NothingNextEndSubPublicSubGameStart()游戏开始 NoMine=FalseLetMe.Width=MLeft+(MWidth*16+8+GetMePixelWidth-Me.ScaleWidth)*Screen.TwipsPerPixelX 调整窗体宽度 LetMe.Height=MTop+(MHeight*16+8+GetMePixelHeight-Me.ScaleHeight)*Screen.TwipsPerPi 9、xelY 调整窗体高度 270OR39019/26495/510LetIsFirstHit=False 没有埋雷没有处理第一个雷 LetIsGameWin=False 没有赢 LetIsGameOver=False 没有输LetT