| 网站首页 | 业界新闻 | 群组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 编程论坛
共有 572 人关注过本帖
标题:求filelistbox控件读取到的视频列表 鼠标点击后就可以播放!
只看楼主 加入收藏
事业男儿
Rank: 2
等 级:论坛游民
帖 子:271
专家分:14
注 册:2007-4-25
结帖率:81.97%
  已结贴   问题点数:20  回复次数:7   
求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
2017-11-26 22:28
xiangyue0510
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:86
帖 子:909
专家分:5237
注 册:2015-8-10
  得分:7 
1.“工程”——“部件”,添加WindowsMediaPlayer
2. 窗体中添加WindowsMediaPlayer控件
3. 播放视频或者音频,示例代码
WindowsMediaPlayer1.URL = App.Path & "\1.wma"
WindowsMediaPlayer1.Controls.play
WindowsMediaPlayer1.Controls.pause
2017-11-26 23:23
事业男儿
Rank: 2
等 级:论坛游民
帖 子:271
专家分:14
注 册:2007-4-25
  得分:0 
谢谢2楼的老师  我想要实现的是用鼠标点击File1.Pattern读取的列表文件  然后就播放!继续等老师解答!
2017-11-26 23:40
suzhanpeng
Rank: 3Rank: 3
等 级:论坛游侠
威 望:4
帖 子:51
专家分:180
注 册:2016-9-28
  得分:7 
我觉得双击事件比较好,单击不太好用吧!
Private Sub File1_DblClick()
MsgBox File1.Path & "\" & File1.FileName
End Sub

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

2017-11-27 15:59
xiangyue0510
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:86
帖 子:909
专家分:5237
注 册:2015-8-10
  得分:0 
回复 3楼 事业男儿
没有明白,你说的这个控件我没有用过。但是,应该有dbclick、click事件吧
把下面的代码修改一下放在对应的事件中就可以了啊。什么地方还有问题呢?
WindowsMediaPlayer1.URL = App.Path & "\1.wma"
WindowsMediaPlayer1.Controls.play
WindowsMediaPlayer1.Controls.pause
2017-11-27 22:58
Artless
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:103
帖 子:4211
专家分:28888
注 册:2009-4-8
  得分:7 
WindowsMediaPlayer1.URL = file1.filename    `#4说的
WindowsMediaPlayer1.Controls.play
WindowsMediaPlayer1.Controls.pause

无知
2017-11-28 01:13
事业男儿
Rank: 2
等 级:论坛游民
帖 子:271
专家分:14
注 册:2007-4-25
  得分:0 
请问楼上得几位老师为什么再播放的文件夹里面 必须要有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
2017-11-28 20:23
suzhanpeng
Rank: 3Rank: 3
等 级:论坛游侠
威 望:4
帖 子:51
专家分:180
注 册:2016-9-28
  得分:0 
Private Sub File1_Click()
WindowsMediaPlayer1.URL = File1.Path & "\" & File1.FileName
WindowsMediaPlayer1.Controls.play
WindowsMediaPlayer1.Controls.pause
End Sub
2017-11-29 08:16







关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.024960 second(s), 8 queries.
Copyright©2004-2018, BCCN.NET, All Rights Reserved