帮忙补一段代码，关于timer控件控制循环播放音乐的。

来源：百度知道 编辑：UC知道 时间：2024/06/30 22:05:24
帮忙补一段代码，关于timer控件实现循环播放音乐的。

之前我在http://zhidao.baidu.com/question/54566002.html问过了，问题已解决，现在又有了新的问题。

我将mid文件以资源形式导入了vb程序，然后添加以下代码，代码已经实现了背景音乐的播放的了。但是我想让它循环播放，就是用timer控件来实现循环播放，有没有人帮我补写一段，应该很简单吧，因为我太菜。

最好大家的代码已经调试过了能实现循环播放的了，其他不配合以下代码的源码也不要，因为我自己也能找到，谢绝cral+v，谢谢大家。

Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
Private Declare Function WriteFile Lib "kernel32" (ByVal hFile As Long, lpBuffer As Any, ByVal nNumberOfBytesToWrite As Long, lpNumberOfBytesWritten As Long, ByVal lpOverlapped As Any) As Long
Private Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, ByVal lpSecurityAttributes As Long, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes

呵呵: 你自己把其它的补齐吧:

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 Alias As String
Dim song As String
Dim playyn As Boolean

Private Sub Command1_Click()
song = "c:\1.mid" '此处可更换路径
Alias = "midi"
Call playmusic
End Sub

Sub playmusic()
If Dir(song) <> "" Then
mciSendString "open " & song & " type mpegvideo", vbNullString, 0, 0
mciSendString "play " & song & " repeat", vbNullString, 0, 0
playyn = True
End If
End Sub

Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 500
End Sub

Private