怎样在VB做一个简单的音乐播放器啊？？？？

2025-03-03 06:11:22

推荐回答（3个）

回答1：

大哥，这个可以直接拖个控件，基本的播放功能就实现了

回答2：

从网上搜一个DIrectX SDK 8 . 里边有VB写的播放器。

回答3：

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

Private Sub File1_DblClick()
Dim tmpF As String
tmpF = File1.Path
If Right(tmpF, 1) <> "\" Then tmpF = tmpF & "\"
tmpF = tmpF & File1.List(File1.ListIndex)
WMP1.URL = tmpF
WMP1.Controls.play
Label1 = tmpF
End Sub

Private Sub Form_Load()
File1.Pattern = "*.mp3;*.wav"
End Sub