当前位置:首页 > 播放器资讯 热门

DJ视频播放器(dj视频播放器哪个好用)

作者:播放器家园 来源:www.bofangqi.org 时间:2022-11-25 点击:0

本文播放器家园分享“DJ视频播放器(dj视频播放器哪个好用)”!

视频播放在一些工作当中不可避免地会遇到,如何利用工作表把视频播放出来呢,也许是个不小的挑战,实际上也没多么复杂,但是要有一定的基础知识来进行学习。

本节介绍在VBA中插入WindowsMediaPlay的一些基本内容。

如下图所示,可能播放一些视频在窗体上显示,如果是一些视频记录就显得十分有用了,不仅可以看数据,而且可以看到一些视频内容。

接下来,有一些可能陌生的代码,但不会太难理解。

首先要打开VBE编辑器(在Excel中按Alt+F11),新建一个窗体,然后在附加控件里选择Windows Media Plaer控件。

如果没有,就不能添加播放器。

完成上述操作,接下来就可以随心所欲编辑控件属性了。

和创建其它控件一下,拖一个WindowsMediaPlay到窗体上,调整适合大小。

这里主要有一些属性要参考一下:

属性/方法名:类型

说明:

URL:String

指定媒体位置,本机或网络地址

uiMode:String

播放器界面模式,可为Full, Mini, None, Invisible

playState:integer

播放状态,1=停止,2=暂停,3=播放,6=正在缓冲,9=正在连接,10=准备就绪

enableContextMenu:Boolean

启用/禁用右键菜单

fullScreen:boolean

是否全屏显示

[controls]

.controls //播放器基本控制

controls.play

播放

controls.pause

暂停

controls.stop

停止

controls.currentPosition:double

当前进度

controls.currentPositionString:string

当前进度,字符串格式。如“00:23”

controls.fastForward

快进

controls.fastReverse

快退

controls.next

下一曲

controls.previous

上一曲

[settings]

.settings //播放器基本设置

settings.volume:integer

音量,0-100

settings.autoStart:Boolean

是否自动播放

settings.mute:Boolean

是否静音

settings.playCount:integer

播放次数

[currentMedia]

.currentMedia //当前媒体属性

currentMedia.duration:double

媒体总长度

currentMedia.durationString:string

媒体总长度,字符串格式。如“05:20”

currentMedia.getItemInfo(const string)

获取当前媒体信息"Title"=媒体标题,"Author"=艺术家,"Copyright"=版权信息,"Description"=媒体内容描述,"Duration"=持续时间(秒),"FileSize"=文件大小,"FileType"=文件类型,"sourceURL"=原始地址

currentMedia.setItemInfo(const string)

通过属性名设置媒体信息

currentMedia.name:string

同 currentMedia.getItemInfo("Title")

[currentPlaylist]

.currentPlaylist //当前播放列表属性

currentPlaylist.count:integer

当前播放列表所包含的媒体数

currentPlaylist.Item[integer]

获取或设置指定项目媒体信息,其子属性同.currentMedia

窗体代码:

Private Sub UserForm_Initialize()With Me.WindowsMediaPlayer1 .Enabled = True .fullScreen = False '全屏显示 .enableContextMenu = True '启用右键 .settings.autoStart = False '关闭自动播放 .URL ="D:\VCD\DJ.Mp4"'视频地址 .Top = 10 .Left = 20 .stretchToFit = True .Width = Me.Width - 50 .Height = Me.Height - 50 .settings.volume = 50 .settings.setMode "loop", True '循环播放 End WithEnd Sub

重点属性:

.URL 视频地址,可以是本地视频,也可以是网络视频.settings.autoStart=True 设置自动播放.settings.setMode "loop", True '循环播放.settings.setMode "shuffle", False '顺序播放.settings.setMode "shuffle", True '随机

更多设置可以参考上面属性表,视频播放是一个很有用的功能,如加以利用,可以使用制作的应用更加生动地体现数据内容。

不过,真得做到这一点,是十分困难的,希望对你有帮助。

欢迎关注、收藏

—END—