视频播放在一些工作当中不可避免地会遇到，如何利用工作表把视频播放出来呢，也许是个不小的挑战，实际上也没多么复杂，但是要有一定的基础知识来进行学习。
本节介绍在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 With
End Sub重点属性：
- .URL 视频地址，可以是本地视频，也可以是网络视频
- .settings.autoStart=True 设置自动播放
- .settings.setMode "loop", True '循环播放
- .settings.setMode "shuffle", False '顺序播放
- .settings.setMode "shuffle", True '随机
更多设置可以参考上面属性表，视频播放是一个很有用的功能，如加以利用，可以使用制作的应用更加生动地体现数据内容。
不过，真得做到这一点，是十分困难的，希望对你有帮助。
欢迎关注、收藏
---END---
本文暂时没有评论，来添加一个吧(●'◡'●)