如何在VB中添加音乐

来源：百度知道 编辑：UC知道 时间：2024/06/05 14:40:19
想在VB中添加一个像Windows Media Player一样的操作界面，播放一首网上的音乐（随便社么路径），请高手给方法和代码，谢谢！！！

其实不难。呃，建议原创一个界面。
先用XMLHTTP下载一首歌，然后用下面这段代码播放。
至于控制按钮，完全可以参考网上已有的代码。
譬如有个叫“土人MP3”的播放器不错。

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 Form_Load()
mciSendString "open C:\birthday.mid alias mc", 0, 0, 0
mciSendString "play mc", 0, 0, 0
End Sub

在控件箱里添加“Microsoft Media Player”这个控件。
在system32\wmp.dll