使用mcisendstring重复播放音乐文件

最新推荐文章于 2023-07-25 15:35:53 发布

原创最新推荐文章于 2023-07-25 15:35:53 发布 · 5.4k 阅读

2 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#音乐 #timer #buffer #string #integer

VisualBasic 专栏收录该内容

19 篇文章

订阅专栏

博客介绍了利用TIMER控件实现音乐重复播放的思路与代码。在TIMER控件中检测当前文件播放状态，若为stopped则重复播放。通过mciSendString函数实现关闭、打开和播放MCI设备等操作，避免多音乐文件播放时声音重叠。

思路:在TIMER控件中检测当前文件的播放状态,如果为stopped,那么就重复播放

Option Explicit

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Private Sub Command1_Click()
Timer1.Enabled = True
Timer1.Interval = 100
Call mciSendString("close all", 0, 0, 0) '首先关闭所有的MCI设备,避免播放多个音乐文件时声音会重叠
Call mciSendString("open " + "c:/winnt/media/ringin.wav", 0, 0, 0) '打开MCI设备
Call mciSendString("play " + "c:/winnt/media/ringin.wav", 0, 0, 0) '播放MCI设备
End Sub
Private Sub Timer1_Timer()

Dim buffer As String * 128
Dim pos As Integer
mciSendString "status c:/winnt/media/ringin.wav mode", buffer, 128, 0&

    pos = InStr(buffer, Chr(0))
   If Left(buffer, pos - 1) = "stopped" Then
     Call mciSendString("close all", 0, 0, 0)
Call mciSendString("open " + "c:/winnt/media/ringin.wav", 0, 0, 0)
Call mciSendString("play " + "c:/winnt/media/ringin.wav", 0, 0, 0)
End If
End Sub