首先,需要Drive1、File1、Dir1和WindowsMediaPlayer1。
那么WindowsMediaPlayer在哪里?
1、对左侧工具栏右键,找到部件。
2、在对话框中,下拉,找到WindowsMediaPlayer,如图:
接下来,输入代码:
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 RighttmpF, 1) <> “\” Then tmpF = tmpF & “\”
tmpF = tmpF & File1.ListFile1.ListIndex)
WindowsMediaPlayer1.URL = tmpF
WindowsMediaPlayer1.Controls.play
Label1 = tmpF
End Sub
Private Sub Form_Load)
File1.Pattern = “*.mp4”
End Sub
备注:此代码仅支持MP4文件,如需改变,请在 File1.Pattern = “*.mp4” 中修改 “*.mp4″中的后缀名。无法拨放音频。
亲测可用。