用VB做音乐播放器的问题

来源：百度知道 编辑：UC知道 时间：2024/06/03 20:39:28
各位知道怎么用VB做电脑音乐播放器吗？就是能有一个列表显示添加的音乐的那种，请告诉我详细步骤，最好附图！！！ 谢谢 急！！！

【简易型音乐播放器】2007年07月10日 星期二 10:56'添加 MediaPlayer1 CommonDialog1 Timer1 Command1(0) Command1(1) Command1(2)

'Mediaplayer1 请使用 MSDXM.OCX 那个控件

Dim songname$
Private Sub Form_Load()
Command1(0).Caption = "选歌播放"
Command1(1).Caption = "暂 停"
Command1(2).Caption = "停 止"
Command1(1).Enabled = False
Command1(2).Enabled = False
Timer1.Interval = 100
Timer1.Enabled = False
End Sub

Private Sub Form_Unload(Cancel As Integer)
Call stopmusic

End
End Sub

Private Sub Command1_Click(Index As Integer)
Select Case Index
Case 0
On Error GoTo errchoice
With CommonDialog1
.CancelError = True
.InitDir = App.Path
.Filter = "音乐文件|*.mp3;*.mid;*.wav;*.wma;*.rid"