赞
踩
用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
Copyright © 2003-2013 www.wpsshop.cn 版权所有,并保留所有权利。