大家好，又见面了，我是你们的朋友全栈君。
首先，需要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 Right(tmpF, 1) <> “\” Then tmpF = tmpF & “\”
tmpF = tmpF & File1.List(File1.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″中的后缀名。无法拨放音频。
亲测可用。
发布者：全栈程序员-用户IM，转载请注明出处：https://javaforall.cn/153195.html原文链接：https://javaforall.cn
【正版授权，激活自己账号】： Jetbrains全家桶Ide使用，1年售后保障，每天仅需1毛
【官方授权 正版激活】： 官方授权 正版激活 支持Jetbrains家族下所有IDE 使用个人JB账号...
