低调做人高调做事感悟:请vb高手帮帮我!
来源:百度文库 编辑:中科新闻网 时间:2024/05/02 14:53:31
刚做了个用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可能也有VB自己的播放音乐的控件,不过我不常用。
Windows Media Player控件可以在上面菜单中的“工程”--》“控件”中(或者按CTRL+T)添加。
注意:如果你编写程序的机器上的Windows Media Player装的是9.0版,那么运行的机器上也要装9.0版或以上版本的。总之版本要同步。