'定義蛇的運動速度枚舉值Private Enum tpsSpeedQUICKLY = 0SLOWLY = 1End Enum'定義蛇的運動方向枚舉值Private Enum tpsDirectionD_UP = 38D_DOWN = 40D_LEFT = 37D_RIGHT = 39End Enum'定義運動區域4個禁區的枚舉值Private Enum tpsForbiddenZoneFZ_TOP = 30FZ_BOTTOM = 5330FZ_LEFT = 30FZ_RIGHT = 5730End Enum'定義蛇頭及身體初始化數枚舉值Private Enum tpsSnakeSNAKEONE = 1SNAKETWO = 2SNAKETHREE = 3SNAKEFOUR = 4End Enum'定義蛇寬度的常量Private Const SNAKEWIDTH As Integer = 100'該過程用于顯示游戲信息Private Sub Form_Load()Me.ShowMe.lblTitle = "BS貪食蛇 — (版本 "App.Major"."App.Minor"."App.Revision")"Me.Caption = Me.lblTitle.CaptionfrmSplash.Show 1End Sub'該過程用于使窗體恢復原始大小Private Sub Form_Resize()If Me.WindowState1 ThenMe.Caption = ""Me.Height = 6405 '窗體高度為 6405 緹Me.Width = 8535 '窗體寬度為 8535 緹Me.Left = (Screen.Width - Width) \ 2Me.Top = (Screen.Height - Height) \ 2End IfEnd Sub'該過程用于重新開始開始游戲Private Sub cmdGameStart_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)Beepmsg = MsgBox("您確認要重新開始游戲嗎？", 4 + 32, "BS貪食蛇")If msg = 6 Then Call m_subGameInitializeEnd Sub'該過程用于暫停/運行游戲Private Sub chkPause_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Me.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)"End IfEnd Sub'該過程用于顯示游戲規則Private Sub cmdGameRules_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)BeepMsgBox " BS貪食蛇：一個規則最簡單的趣味游戲，您將用鍵盤"Chr(13)_"上的4個方向鍵來控制蛇的運動方向。在運動過程中蛇"Chr(13)_"不能后退，蛇的頭部也不能接觸到運動區域的邊線以外"Chr(13)_"和蛇自己的身體，否則就游戲失敗。在吃掉隨機出現的"Chr(13)_"果子后，蛇的身體會變長，越長難度越大。祝您好運！！", 0 + 64, "游戲規則"End Sub'該過程用于顯示游戲開發信息Private Sub cmdAbout_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)BeepMsgBox "BS貪食蛇""(V-"App.Major"."App.Minor"版本)"Chr(13)Chr(13)_""Chr(13)Chr(13)_"由PigheadPrince設計制作"Chr(13)_"CopyRight(C)2002,BestSoft.TCG", 0, "關于本游戲"End Sub'該過程用于退出游戲Private Sub cmdExit_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)Beepmsg = MsgBox("您要退出本游戲嗎？", 4 + 32, "BS貪食蛇")Select Case msgCase 6EndCase 7Me.chkWindowButton(2).Value = 0Exit SubEnd SelectEnd Sub'該過程用于拖動窗體_(點擊圖標)Private Sub imgWindowTop_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)ReleaseCaptureSendMessage Me.hwnd, WM_SYSCOMMAND, SC_MOVE, 0End Sub