視頻播放在一些工作當中不可避免地會遇到，如何利用工作表把視頻播放出來呢，也許是個不小的挑戰，實際上也沒多麼複雜，但是要有一定的基礎知識來進行學習。
本節介紹在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
重點屬性：
更多設置可以參考上面屬性表，視頻播放是一個很有用的功能，如加以利用，可以使用制作的應用更加生動地體現數據内容。
不過，真得做到這一點，是十分困難的，希望對你有幫助。
歡迎關注、收藏
---END---
,更多精彩资讯请关注tft每日頭條，我们将持续为您更新最新资讯!
zpostcode 
Recruit 
weather 
mreligion 
Yellowpages 
sport 
constellation 
shopping 
name 
game 
directory 
literature 
Word 
tour 
furnish 
Lottery 
tftnews 
lyrics 
News 
digital 
car 
dir 
Edu 
Finance 
