想在以下代码读取到指定文件夹内的视频后 用鼠标点击某个视频名字后就可以在WindowsMediaPlayer1中播放，求鼠标点击事件代码！
Private Sub Form_Load()
File1.Path = "d:\360" '设置路径
File1.Pattern = "*.mp4" '匹配 mp4 文件
 
For i = 0 To File1.ListCount
    '处理文件 File1.list(i) 为文件名
Next
End Sub

1.“工程”——“部件”，添加WindowsMediaPlayer
2. 窗体中添加WindowsMediaPlayer控件
3. 播放视频或者音频，示例代码

WindowsMediaPlayer1.URL = App.Path & "\1.wma"
WindowsMediaPlayer1.Controls.play
WindowsMediaPlayer1.Controls.pause

谢谢2楼的老师  我想要实现的是用鼠标点击File1.Pattern读取的列表文件  然后就播放！继续等老师解答！

我觉得双击事件比较好，单击不太好用吧！
Private Sub File1_DblClick()
MsgBox File1.Path & "\" & File1.FileName
End Sub

[此贴子已经被作者于2017-11-27 16:02编辑过]

没有明白，你说的这个控件我没有用过。但是，应该有dbclick、click事件吧
把下面的代码修改一下放在对应的事件中就可以了啊。什么地方还有问题呢？

WindowsMediaPlayer1.URL = App.Path & "\1.wma"
WindowsMediaPlayer1.Controls.play
WindowsMediaPlayer1.Controls.pause

WindowsMediaPlayer1.URL = file1.filename    `#4说的
WindowsMediaPlayer1.Controls.play
WindowsMediaPlayer1.Controls.pause

请问楼上得几位老师为什么再播放的文件夹里面 必须要有1个 1.wmv文件  否则其它的wmv文件无法播放呢？
Private Sub File1_Click()
WindowsMediaPlayer1.URL = "360/1.wmv" 'File1.FileName
WindowsMediaPlayer1.Controls.play
WindowsMediaPlayer1.Controls.pause
End Sub

Private Sub Form_Load()
File1.Path = "360" '设置路径
File1.Pattern = "*.wmv" '匹配 wmv 文件

For i = 0 To File1.ListCount
    '处理文件 File1.list(i) 为文件名
Next
End Sub

Private Sub File1_Click()
WindowsMediaPlayer1.URL = File1.Path & "\" & File1.FileName
WindowsMediaPlayer1.Controls.play
WindowsMediaPlayer1.Controls.pause
End Sub