1、VB简单播放器代码
之前在某度知道上看到的一个问题 回答了一下。代码如下:
用WindowsMediaPlayer1控件和Drive dir file做了一个简单的播放器。你可以美化界面和优化代码,添加功能。运行效果看附件。
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub File1_Click()
WindowsMediaPlayer1.URL = File1.Path & "\" & File1.FileName
End Sub