UC知道用VB播放循环音乐，或关断
来源：百度知道 编辑：UC知道 时间：2024/05/30 01:04:11
我抄了一个程序，可用VB播放循环背景音乐，但是按下一个按钮后却无法让音乐停下来。请教老师了。
被充一下：
我的代码是
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
Dim songname$
Private Sub Command1_Click()
songname = "c:\1.mp3"
mciSendString "open " & songname & " type mpegvideo", vbNullString, 0, 0
mciSendString "play " & songname & " repeat", vbNullString, 0, 0
End Sub
希望用command2作为停止按钮。
被充一下：
我的代码是
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
Dim songname$
Private Sub Command1_Click()
songname = "c:\1.mp3"
mciSendString "open " & songname & " type mpegvideo", vbNullString, 0, 0
mciSendString "play " & songname & " repeat", vbNullString, 0, 0
End Sub
希望用command2作为停止按钮。
哈哈，被充一下：
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
Dim songname$
Private Sub Command1_Click()
songname = "c:\1.mp3"
mciSendString "open " & songname & " type mpegvideo alias mysong", vbNullString, 0, 0
mciSendString "play mysong repeat", vbNullString, 0, 0
End Sub
Private Sub Command2_Click()
mciSendString "close mysong", vbNullString, 0, 0
End Sub
没有代码