module.bas

来自「N迷游戏问题(拼图类)可以支持3--35迷」· BAS 代码 · 共 27 行

Attribute VB_Name = "Module"
Option Explicit     '强制显式声明模块中的所有变量

'联网函数
Public Declare Function ShellExecute Lib "Shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
'音量函数
Public Declare Function waveOutSetVolume Lib "Winmm" (ByVal wDeviceID As Integer, ByVal dwVolume As Long) As Integer
Public Declare Function waveOutGetVolume Lib "Winmm" (ByVal wDeviceID As Integer, dwVolume As Long) As Integer
'窗口函数
Public Declare Function GetWindow Lib "user32" (ByVal hwnd_ As Long, ByVal wCmd As Long) As Long
Public Declare Function ShowWindow Lib "user32" (ByVal hwnd_ As Long, ByVal nCmdShow As Long) As Long
'延时函数
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Public Const GW_OWNER = 4
Public Const SW_HIDE = 0

Sub Main()
    Dim rc As Long
    PicForm.Show    '显示开始画面
    DoEvents        '转让控制权，以便让操作系统处理其它的事件
    rc = ShowWindow(GetWindow(MainForm.hwnd, GW_OWNER), SW_HIDE)  '从任务管理器列表中移除
    If App.PrevInstance Then End    '为了防止重复执行本游戏软件
    SysForm.my_Delay = 500  '默认时间间隔--500毫秒
    MainForm.Show   '显示游戏界面
End Sub