给 sndPlaySound 传什么参数可以让音乐停止播放,继续播放,重复播放?

unhappyless_02 2006-12-15 02:13:08
给 sndPlaySound 传什么参数可以让音乐停止播放,继续播放,重复播放?
...全文
308 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
unhappyless_02 2006-12-18
  • 打赏
  • 举报
回复
up
unhappyless_15 2006-12-16
  • 打赏
  • 举报
回复
up
unhappyless_02 2006-12-15
  • 打赏
  • 举报
回复
Option Explicit

Public Const SND_SYNC = &H0
Public Const SND_ASYNC = &H1
Public Const SND_NODEFAULT = &H2
Public Const SND_MEMORY = &H4
Public Const SND_ALIAS = &H10000
Public Const SND_FILENAME = &H20000
Public Const SND_RESOURCE = &H40004
Public Const SND_ALIAS_ID = &H110000
Public Const SND_ALIAS_START = 0
Public Const SND_LOOP = &H8
Public Const SND_NOSTOP = &H10
Public Const SND_VALID = &H1F
Public Const SND_NOWAIT = &H2000
Public Const SND_VALIDFLAGS = &H17201F
Public Const SND_RESERVED = &HFF000000
Public Const SND_TYPE_MASK = &H170007

Public Declare Function sndPlaySound Lib "winmm.dll" _
Alias "sndPlaySoundA" (ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long




Private Sub Command1_Click()
sndPlaySound App.Path & "\msg.wav", SND_LOOP And SND_ASYNC
End Sub

为什么不能循环播放?
zq972 2006-12-15
  • 打赏
  • 举报
回复
http://www.mf100.com/document/2005-4/424.shtml
cangwu_lee 2006-12-15
  • 打赏
  • 举报
回复
换一个 API : mciSendString

参考
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/multimed/htm/_win32_multimedia_command_strings.asp

1,486

社区成员

发帖
与我相关
我的任务
社区描述
VB API
社区管理员
  • API
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧