确定当前视频模式

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)    '停止播放

评论