贪吃蛇.rar

Option Explicit Private Declare Function ShowCursor Lib "user32.dll" (ByVal bShow As Long) As Long '隐藏鼠标 Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long) Private Declare Function timeGetTime Lib "winmm.dll" () As Long 'GDI变量 Dim Brush_Snake As Long Dim Brush_Food As Long Dim Brush_Food_Red As Long Dim Graphics As Long Dim Brush_Say As Long '提示 Dim Brush_Score As Long '分数显示 Dim Pen_Wall As Long Dim fontFamily As Long '所有的文字 Dim strFormat As Long '文字格式 Dim curFont As Long '具体的文字 Dim Rclayout As RECTF '文字输出范围 '游戏全局