excel vba编辑链接（Excelvba播放器的一些基本操作方法）
视频播放在一些工作当中不可避免地会遇到，如何利用工作表把视频播放出来呢，也许是个不小的挑战，实际上也没多么复杂，但是要有一定的基础知识来进行学习。
本节介绍在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---
,免责声明：本文仅代表文章作者的个人观点，与本站无关。其原创性、真实性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容文字的真实性、完整性和原创性本站不作任何保证或承诺，请读者仅作参考，并自行核实相关内容。文章投诉邮箱：anhduc.ph@yahoo.com
