求filelistbox控件读取到的视频列表 鼠标点击后就可以播放!
想在以下代码读取到指定文件夹内的视频后 用鼠标点击某个视频名字后就可以在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