在特定时间播放声音-Winmm.dll-VB.Net



我开始使用winmm.dll来播放声音(它提供了一次播放多个声音并设置音频参数的可能性(,但我找不到该库所有函数的有效列表。

我有一个包含更多音乐的Wav文件,所以我必须单独启动它们。

我有这个代码:

Imports System.Text
Imports System.Runtime.InteropServices
Public class SoundPlayer
<DllImport("winmm.dll")> Private Shared Function mciSendString(ByVal command As String, ByVal buffer As StringBuilder, ByVal bufferSize As Integer, ByVal hwndCallback As IntPtr) As Integer
End Function
Public sub PlayMusicWithTime(SelectedTime as String)
mciSendString("open " & Chr(34) & Application.StartupPath & "ResourcesSounds" & soundFileName & Chr(34) & " type waveaudio alias MediaSound", Nothing, 0, IntPtr.Zero)
mciSendString("setaudio MediaSound volume to 1000", Nothing, 0, IntPtr.Zero)
' There should be a function here that make the sound start at the input value
mciSendString("play MediaSound", Nothing, 0, IntPtr.Zero)
End Sub
End Class

那么,Winmm.dll中是否有一个函数可以在特定时间开始播放声音?

最后我找到了一个解决方案:

要在特定时间播放声音,我必须使用以下代码:

mciSendString("播放来自13000的MediaSound,Nothing,0,IntPtr.Zero(

在这种情况下,我在13秒开始玩

----->----->->->/em>-------------------em>---------->----->->->->

完整代码:

Imports System.Text
Imports System.Runtime.InteropServices
Public class SoundPlayer
<DllImport("winmm.dll")> Private Shared Function mciSendString(ByVal command As String, ByVal buffer As StringBuilder, ByVal bufferSize As Integer, ByVal hwndCallback As IntPtr) As Integer
End Function
Public sub PlayMusicWithTime(SelectedTime as Integer)
mciSendString("open Sound1.wav type waveaudio alias MediaSound", Nothing, 0, IntPtr.Zero)
mciSendString("setaudio MediaSound volume to 1000", Nothing, 0, IntPtr.Zero)
mciSendString("play MediaSound from " & SelectedTime.toString, Nothing, 0, IntPtr.Zero)
End Sub
End Class

相关内容

  • 没有找到相关文章

最新更新