"定義蛇的運動速度列舉值

Private Enum tpsSpeed

QUICKLY = 0

SLOWLY = 1

End Enum

"定義蛇的運動方向列舉值

Private Enum tpsDirection

D_UP = 38

D_DOWN = 40

D_LEFT = 37

D_RIGHT = 39

End Enum

"定義運動區域4個禁區的列舉值

Private Enum tpsForbiddenZone

FZ_TOP = 30

FZ_BOTTOM = 5330

FZ_LEFT = 30

FZ_RIGHT = 5730

End Enum

"定義蛇頭及身體初始化數列舉值

Private Enum tpsSnake

SNAKEONE = 1

SNAKETWO = 2

SNAKETHREE = 3

SNAKEFOUR = 4

End Enum

"定義蛇寬度的常量

Private Const SNAKEWIDTH As Integer = 100

"該過程用於顯示遊戲資訊

Private Sub Form_Load()

Me.Show

Me.lblTitle = "BS貪食蛇 — (版本 " & App.Major & "." & App.Minor & "." & App.Revision & ")"

Me.Caption = Me.lblTitle.Caption

frmSplash.Show 1

End Sub

"該過程用於使窗體恢復原始大小

Private Sub Form_Resize()

If Me.WindowState <> 1 Then

Me.Caption = ""

Me.Height = 6405 "窗體高度為 6405 緹

Me.Width = 8535 "窗體寬度為 8535 緹

Me.Left = (Screen.Width - Width) \ 2

Me.Top = (Screen.Height - Height) \ 2

End If

End Sub

"該過程用於重新開始開始遊戲

Private Sub cmdGameStart_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

Beep

msg = MsgBox("您確認要重新開始遊戲嗎？", 4 + 32, "BS貪食蛇")

If msg = 6 Then Call m_subGameInitialize

End Sub

"該過程用於暫停/運行遊戲

Private Sub chkPause_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Me.chkPause.Caption = "暫停遊戲(&P)" Then

Me.tmrSnakeMove.Enabled = False

Me.tmrGameTime.Enabled = False

Me.picMoveArea.Enabled = False

Me.lblPauseLab.Visible = True

Me.chkPause.Caption = "繼續遊戲(&R)"

Else

Me.tmrSnakeMove.Enabled = True

Me.tmrGameTime.Enabled = True

Me.picMoveArea.Enabled = True

Me.lblPauseLab.Visible = False

Me.chkPause.Caption = "暫停遊戲(&P)"

End If

End Sub

"該過程用於顯示遊戲規則

Private Sub cmdGameRules_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

Beep

MsgBox " BS貪食蛇：一個規則最簡單的趣味遊戲，您將用鍵盤" & Chr(13) & _

"上的4個方向鍵來控制蛇的運動方向。在運動過程中蛇" & Chr(13) & _

"不能後退，蛇的頭部也不能接觸到運動區域的邊線以外" & Chr(13) & _

"和蛇自己的身體，否則就遊戲失敗。在吃掉隨機出現的" & Chr(13) & _

End Sub

"該過程用於顯示遊戲開發資訊

Private Sub cmdAbout_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

Beep

MsgBox "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)

Beep

msg = MsgBox("您要退出本遊戲嗎？", 4 + 32, "BS貪食蛇")

Select Case msg

Case 6

End

Case 7

Me.chkWindowButton(2).Value = 0

Exit Sub

End Select

End Sub

Private Sub imgWindowTop_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

ReleaseCapture

SendMessage Me.hwnd, WM_SYSCOMMAND, SC_MOVE, 0

End Sub