'定义蛇的运动速度枚举值PrivateEnumtpsSpeedQUICKLY=0SLOWLY=1EndEnum'定义蛇的运动方向枚举值PrivateEnumtpsDirectionD_UP=38D_DOWN=40D_LEFT=37D_RIGHT=39EndEnum'定义运动区域4个禁区的枚举值PrivateEnumtpsForbiddenZoneFZ_TOP=30FZ_BOTTOM=5330FZ_LEFT=30FZ_RIGHT=5730EndEnum'定义蛇头及身体初始化数枚举值PrivateEnumtpsSnakeSNAKEONE=1SNAKETWO=2SNAKETHREE=3SNAKEFOUR=4EndEnum'定义蛇宽度的常量PrivateConstSNAKEWIDTHAsInteger=100'该过程用于显示游戏信息PrivateSubForm_Load()Me.ShowMe.lblTitle="BS贪食蛇—(版本"App.Major"."App.Minor"."App.Revision")"Me.Caption=Me.lblTitle.CaptionfrmSplash.Show1EndSub'该过程用于使窗体恢复原始大小PrivateSubForm_Resize()IfMe.WindowState1ThenMe.Caption=""Me.Height=6405'窗体高度为6405缇Me.Width=8535'窗体宽度为8535缇Me.Left=(Screen.Width-Width)\2Me.Top=(Screen.Height-Height)\2EndIfEndSub'该过程用于重新开始开始游戏PrivateSubcmdGameStart_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Beepmsg=MsgBox("您确认要重新开始游戏吗？",4+32,"BS贪食蛇")Ifmsg=6ThenCallm_subGameInitializeEndSub'该过程用于暂停/运行游戏PrivateSubchkPause_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfMe.chkPause.Caption="暂停游戏(P)"ThenMe.tmrSnakeMove.Enabled=FalseMe.tmrGameTime.Enabled=FalseMe.picMoveArea.Enabled=FalseMe.lblPauseLab.Visible=TrueMe.chkPause.Caption="继续游戏(R)"ElseMe.tmrSnakeMove.Enabled=TrueMe.tmrGameTime.Enabled=TrueMe.picMoveArea.Enabled=TrueMe.lblPauseLab.Visible=FalseMe.chkPause.Caption="暂停游戏(P)"EndIfEndSub'该过程用于显示游戏规则PrivateSubcmdGameRules_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)BeepMsgBox"BS贪食蛇：一个规则最简单的趣味游戏，您将用键盘"Chr(13)_"上的4个方向键来控制蛇的运动方向。在运动过程中蛇"Chr(13)_"不能后退，蛇的头部也不能接触到运动区域的边线以外"Chr(13)_"和蛇自己的身体，否则就游戏失败。在吃掉随机出现的"Chr(13)_"果子后，蛇的身体会变长，越长难度越大。祝您好运！！",0+64,"游戏规则"EndSub'该过程用于显示游戏开发信息PrivateSubcmdAbout_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)BeepMsgBox"BS贪食蛇""(V-"App.Major"."App.Minor"版本)"Chr(13)Chr(13)_""Chr(13)Chr(13)_"由PigheadPrince设计制作"Chr(13)_"CopyRight(C)2002,BestSoft.TCG",0,"关于本游戏"EndSub'该过程用于退出游戏PrivateSubcmdExit_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Beepmsg=MsgBox("您要退出本游戏吗？",4+32,"BS贪食蛇")SelectCasemsgCase6EndCase7Me.chkWindowButton(2).Value=0ExitSubEndSelectEndSub'该过程用于拖动窗体_(点击图标)PrivateSubimgWindowTop_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)ReleaseCaptureSendMessageMe.hwnd,WM_SYSCOMMAND,SC_MOVE,0EndSub