7,788
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
zqfleaf 2003-01-12
- 打赏
- 举报
你有没有把文件名改了？？
jsjkhanwei 2003-01-12
- 打赏
- 举报
你的代码好象不对?
我在WIN98系统中?
我在WIN98系统中?
zqfleaf 2003-01-12
- 打赏
- 举报
'Deklarationsteil:
Private Declare Function sndPlaySoundA Lib "winmm.dll" ( _
ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
'Prozedur:
Sub PlaySound(ByVal Path As String)
sndPlaySoundA Path, 1&
End Sub
Private Sub Command1_Click()
PlaySound "C:\WINNT\Media\notify.wav"
End Sub
Private Declare Function sndPlaySoundA Lib "winmm.dll" ( _
ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
'Prozedur:
Sub PlaySound(ByVal Path As String)
sndPlaySoundA Path, 1&
End Sub
Private Sub Command1_Click()
PlaySound "C:\WINNT\Media\notify.wav"
End Sub
微信小程序 - 最新详细实现音乐播放列表，点击播放/暂停、切换音乐、暂停续播、播放结束、进度监听功能，支持本地或在线音频播放地址MP3、WAV、AAC、WMA音频格式或文件流，歌名列表点击播放切换歌曲