请vb高手帮帮我!
来源:百度知道 编辑:UC知道 时间:2024/05/19 22:43:26
刚做了个用winmm.dll播放MP3的
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrRetumString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Dim mp3playtime As Long, mp3alltime As Long
Dim mfn As String
Private Sub Command1_Click()
On Error Resume Next
Dim t As Long
Dim ret As String * 128
Dim mp3file As String, k As Integer
k = Int((10 * Rnd))
mp3file = Format(k, "00")
mfn = App.Path & "\mp3\" & mp3file & ".mp3"
t = mciSendString("open " + mfn, 0&, 0, 0)
t = mciSendString("status " + mfn + " length", ret, 128, 0)
t = mciSendString("play " + mfn, 0&, 0, 0)
mp3alltime = Val(ret)
Label1.Caption = mp3alltime
提示:
在VB中调用Windows Media Player控件来播放MP3,然后在窗体上放一个TIMER控件来控制时间,到不同的时间播放不同的音乐。VB可能也有V