突然想用vb做一個播放器界面,先從最簡單的入手吧。
打開一個標準的exe程序界面,然後添加部件:MMCcontrol。
拖出控件MMControl來,然後拖出一個picture框來界定播放的範圍;
code區:
Option Explicit
Private Sub Form_Load()
MMControl1.DeviceType = "avivideo" //定義播放文件的類型
MMControl1.FileName = "f:\vb\avi\a.avi" //定義播放文件存放的位置和名字
MMControl1.hWndDisplay = Picture1.hWnd ' //此句用來使視頻在picture框中播放,如果此句註釋掉的話就會自動彈出一個播放窗口來。
MMControl1.Command = "open" //打開文件進行播放
End Sub
**************************************
在debug過程中出現找不到xvid的問題,原因可能是電腦沒有安裝相關視頻格式的解碼器,下載相關解碼器安裝即可解決此類問題。
此例子已在vb6。0上驗證通過。