vb視頻播放
㈠ VB播放視頻文件代碼
需要特別強調的是WindowsMediaPlayer控制項是調用你本機的WindowsMediaPlayer播放器，而WindowsMediaPlayer的默認支持的播放格式為wma、mp3、asf。還有WindowsMediaPlayer1.Controls = play不能用的 吧 這控制項都沒有Controls這個屬性，所以不能用的吧 我直接這樣是可以的Private Sub Form_Load()
WindowsMediaPlayer1.URL = "E:\music\beyond\Beyond.Live.1991_C.mp3"End Sub
㈡ 怎樣使用vb建立一個視頻播放器，
最簡單的是添加一個media player的控制項，然後設置他的url，這樣就能播放mediapalyer支持的視頻了
medaplayer控制項你要在默認的程序面板上沒顯示的，你要在控制項欄，右鍵-部件去找
比如說添加了默認的名稱為WindowsMediaPlayer1的控制項，然後設置WindowsMediaPlayer1.URL =要播放的文件路徑
這樣就可以了。
㈢ vb 打開視頻
左邊工具箱的最後一條好像就是添加組件，點進去試試，太久沒用，記不清楚了
㈣ 怎麼在VB中插入視頻
CTRL
+
T
選擇WindowsMediaPlayer控制項
這個播放mp3
AVI等格式
Real後面的單詞不寫
,這個是播放Rm
Rmvb等視頻
把這個兩個附選框版選
鉤
確定會權在你的工具箱上顯示
他們的事件方法屬性很多你可以到網上查閱
我就不說了
㈤ VB製作本地視頻播放器
你是初學者，那麼不妨直接使用WindowsMediaPlayer控制項，視頻音頻的播放全都交給它來完成。你版自己只需寫權一些用來控制這個控制項的代碼即可。
添加這個控制項的方法：
在控制項工具欄的空白處點右鍵，選擇部件，在裡面找到Windows Media Player，打上勾，點確定。
在窗體上畫出這個控制項。想要設置這個控制項，就在你畫出的這個控制項上點右鍵，點屬性。最後運行一下，你就會明白不少東西，在這里我就不多說了…，現在差的就是如何讓自己畫的控制項(如Command1按鈕)來控制這個WindowsMediaPlayer控制項，這里我舉些簡單的例子，比如畫三個按扭，分別是播放、暫停、停止。
那麼播放按鈕中的代碼是
WindowsMediaPlayer1.controls.play
暫停中的是
WindowsMediaPlayer1.controls.pause
停止中的是
WindowsMediaPlayer1.controls.stop
怎麼樣，很好理解吧，想知道更多的方法，在網路文庫里搜一下「WindowsMediaPlayer控制項用法」即可，這里打不下了，不懂可以追問，希望能幫到你。
㈥ 用VB按鈕怎麼控制視頻播放呢
你用windows media player控制項播放
一下是windows media player的基本屬性
屬性/方法 說明
URL:String; 指定媒體位置，本機或網路地址
uiMode:String; 播放器界面模式，可為Full, Mini, None, Invisible
playState:integer; 播放狀態，1=停止，2=暫停，3=播放，6=正在緩沖，9=正在連接，10= 准備就緒
enableContextMenu:Boolean; 啟用/禁用右鍵菜單
fullScreen:boolean; 是否全屏顯示
[controls] wmp.controls 播放器基本控制
controls.play; 播放
controls.pause; 暫停
controls.stop; 停止
controls.currentPosition:double; 當前進度
controls.currentPositionString:string; 當前進度，字元串格式。如「00:23」
controls.fastForward; 快進
controls.fastReverse; 快退
controls.next; 下一曲
controls.previous; 上一曲
[settings] wmp.settings 播放器基本設置
settings.volume:integer; 音量，0-100
settings.autoStart:Boolean; 是否自動播放
settings.mute:Boolean; 是否靜音
settings.playCount:integer; 播放次數
[currentMedia] wmp.currentMedia 當前媒體屬性
currentMedia.ration:double; 媒體總長度
currentMedia.rationString:string; 媒體總長度，字元串格式。如「03:24」
currentMedia.getItemInfo(const string); 取當前媒體信息"Title"=媒體標題，"Author"=藝術家，"Copyright"=版權信息，"Description"=媒體內容描述，"Duration"=持續時間（秒），"FileSize"=文件大小，"FileType"=文件類型，"sourceURL"=原始地址
currentMedia.setItemInfo(const string); 通過屬性名設置媒體信息
currentMedia.name:string; 同 currentMedia.getItemInfo("Title")
[currentPlaylist] wmp.currentPlaylist //當前播放列表屬性
currentPlaylist.count:integer; 當前播放列表所包含媒體數
currentPlaylist.Item[integer]; 獲取或設置指定項目媒體信息，其子屬性同wmp.currentMedia
㈦ 怎樣用VB做一個視頻播放器
視頻：添加一個WindowsMediaPlayer控制項，語法：WindowsMediaPlayer1.URL="視頻文件路徑"
flash：添加一個內shodkwaveflash控制項，語法：
ShockwaveFlash1.Movie="flash文件路徑"
可以用容commondialog打開本地文件(commondialog.showopen)：
文件路徑用commondialog.filename
㈧ vb6.0 播放視頻
首先。。先給你解決循環播放問題
Private Sub WindowsMediaPlayer1_PlayStateChange(ByVal NewState As Long)
If NewState = 1 Then '1為停止(一曲播完)
WindowsMediaPlayer1.Controls.play '再播放
End If
End Sub
這就哦了
如果想播放多格式很簡單。。安裝萬能解碼，那個控制項能播放的視頻就是windows系統自帶的media player可以支持的視頻。
但是WindowsMediaPlayer控制項真正的問題是其存在諸多缺陷，如果我不告訴你你馬上就會遇到了。
觸發條件是
拉上來WindowsMediaPlayer這個控制項，把你的form弄成全屏，設置
WindowsMediaPlayer控制項的全屏屬性fullscreen屬性為真。
在播放完一遍視頻循環播放時（就用上面的方法循環放）控制項會自動跳回到沒有全屏的狀態，而且先前設置的播放器進度條隱藏都會不起作用。
其次，該控制項的visible屬性設置以後無效。
為了解決這個問題有個權益之計，就是把窗口拉得比屏幕的全屏還大。讓循環的時候跳不回去。
我現在已經不用這個控制項了。。。用「引用」中的activemovie
對於依次播放列表問題，最簡單方法採用個filelistbox控制項
file1.path="d:\aaa\"
然後那個裡面就顯示這些文件了
可以
for i= 1 to File1.ListCount
file1.list(i)
這樣來鎖定每個文件
next i
把郵箱給我，我有個例子可以給你看，使用activemovie的
㈨ 怎樣才能在VB中播放視頻文件
原因是你地址路徑寫錯了。如果文件和你自身文件在一個目錄WindowsMediaPlayer1.URL = "\1.mp3"或者回WindowsMediaPlayer1.URL = app.path &"\1.mp3"如果。文件例如在答c盤。WindowsMediaPlayer1.URL = "c:\1.mp3"這樣只。如果你是rmvb格式的那當然放不了。windows沒那控制項。