视频播放在一些工作当中不可避免地会遇到,如何利用工作表把视频播放出来呢,也许是个不小的挑战,实际上也没多么复杂,但是要有一定的基础知识来进行学习。
本节介绍在VBA中插入WindowsMediaPlay的一些基本内容。
如下图所示,可能播放一些视频在窗体上显示,如果是一些视频记录就显得十分有用了,不仅可以看数据,而且可以看到一些视频内容。
接下来,有一些可能陌生的代码,但不会太难理解。
首先要打开VBE编辑器(在Excel中按Alt+F11),新建一个窗体,然后在附加控件里选择Windows Media Plaer控件。
如果没有,就不能添加播放器。
完成上述操作,接下来就可以随心所欲编辑控件属性了。
和创建其它控件一下,拖一个WindowsMediaPlay到窗体上,调整适合大小。
这里主要有一些属性要参考一下:
窗体代码:
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 '随机
更多设置可以参考上面属性表,视频播放是一个很有用的功能,如加以利用,可以使用制作的应用更加生动地体现数据内容。
不过,真得做到这一点,是十分困难的,希望对你有帮助。
联系客服