Question

请教：一个制作vb音乐播放器的简单程序

我先建立了drivelistbox,dirlistbox,filelistbox,并且输入如下代码
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub 然后又建立了windowsmediaplayer 的控件，我想制作一个小程序，就是双击filelistbox 中的一个音乐文件，然后让windowsmediaplayer播放这个文件！~ 怎么实现呢~？？？？

Answer 1

加这一句就可以了
Private Sub File1_DblClick()
WindowsMediaPlayer1.URL = File1.Path & "\" & File1.List(File1.ListIndex)
End Sub