发表于:2004-11-26 23:45:00
3楼
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA"
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
在调度里建一事件
Private Sub FixEvent1_OnTrue()
Dim N
N = sndPlaySound("C:\WINNT\Media\Microsoft Sound.wav", 0)
End Sub
有什么问题给我来信
zcl283@163.com