Excel vba 视频播放器的一些基本操作方法(屬性媒體播放)
admin
本节介绍在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---
