确定当前视频模式 Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long Pubilic Const SM_CXSCREEN=0 Pubilic Const SM_CYSCREEN=1 sub abc() vidwidth=GetSystemMetrics(SM_CXSCREEN) vidHeight=GetSystemMetrics(SM_CYSCREEN) end sub 给程序添加声音（WAV） Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long Consr SND_SYNC=&h0  '同执行播放命令 Consr SND_ASYNC=&h1  '异步执行播放命令 Consr SND_FILENAME=&h20000 Sub PlayWav()   WavFile="abc.wav"   Call PlaySound(WavFile,0&,SND_ASYNC Or SND_FILENAME) end Sub 播放MIDI private Declare Function mciExecute Lib "winmm.dll" (Byval lpstrCommand As string) As Long mciExcute("Play" & MIDIFILE)    '播放 mciExcute("Stop" & MIDIFILE)    '停止播放

评论