| 网站首页 | 业界新闻 | 群组 | 人才 | 技术文章 | 下载频道 | 博客 | 代码贴 | 编程论坛
绝地游戏外挂辅助教学千里之行 始于足下
共有 172 人关注过本帖
标题:求filelistbox控件读取到的视频列表 鼠标点击后就可以播放!
只看楼主 收藏
事业男儿
Rank: 2
等 级:论坛游民
帖 子:236
专家分:14
注 册:2007-4-25
结帖率:81.48%
  已结贴   问题点数: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: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:79
帖 子:826
专家分:4857
注 册: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
等 级:论坛游民
帖 子:236
专家分:14
注 册:2007-4-25
  得分:0 
谢谢2楼的老师  我想要实现的是用鼠标点击File1.Pattern读取的列表文件  然后就播放!继续等老师解答!
2017-11-26 23:40
suzhanpeng
Rank: 2
等 级:论坛游民
帖 子:14
专家分:37
注 册: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: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:79
帖 子:826
专家分:4857
注 册: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
等 级:贵宾
威 望:88
帖 子:4112
专家分:28162
注 册:2009-4-8
  得分:7 
WindowsMediaPlayer1.URL = file1.filename    `#4说的
WindowsMediaPlayer1.Controls.play
WindowsMediaPlayer1.Controls.pause

无知
2017-11-28 01:13
事业男儿
Rank: 2
等 级:论坛游民
帖 子:236
专家分: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: 2
等 级:论坛游民
帖 子:14
专家分:37
注 册: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.086404 second(s), 8 queries.
Copyright©2004-2017, BCCN.NET, All Rights Reserved