求filelistbox控件读取到的视频列表鼠标点击后就可以播放!

#2

xiangyue05102017-11-26 23:23

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

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

#3

事业男儿2017-11-26 23:40

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

#4

suzhanpeng2017-11-27 15:59

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

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

#5

xiangyue05102017-11-27 22:58

回复 3楼事业男儿

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

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

#6

Artless2017-11-28 01:13

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

#7

事业男儿2017-11-28 20:23

请问楼上得几位老师为什么再播放的文件夹里面必须要有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

#8

suzhanpeng2017-11-29 08:16

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

求filelistbox控件读取到的视频列表 鼠标点击后就可以播放!