高分急求怎么在VB里插入視頻

最簡單的方法就是使用WindowsMediaPlayer控件。。。在工程----部件中找到WindowsMediaPlayer，然后打上勾，確定，接著將WindowsMediaPlayer控件添加到窗體上，最后在代碼中這樣：

創(chuàng)新互聯(lián)為客戶提供專業(yè)的做網(wǎng)站、成都做網(wǎng)站、程序、域名、空間一條龍服務，提供基于WEB的系統(tǒng)開發(fā). 服務項目涵蓋了網(wǎng)頁設(shè)計、網(wǎng)站程序開發(fā)、WEB系統(tǒng)開發(fā)、微信二次開發(fā)、手機網(wǎng)站制作設(shè)計等網(wǎng)站方面業(yè)務。

private

sub

form_load()

WindowsMediaPlayer1.URL

=

"E:\FavoriteVideo\123.MP4"

end

sub

這樣，當程序運行時，會自動播放這個視頻。當然也可以把視頻文件放到本程序相同的文件夾下:

把路徑改為

app.path

"\123.mp4"

怎么在VB中插入視頻

工程→控件→windowsmediaplayer

引用后左邊控件列表中會多出一個東西，點它，在屏幕上畫個框，mediaplayer就到屏幕上啦

接下來，制作文件打開工具

放置

drive1

dir1

file1

三個控件。把file1的pattern屬性設(shè)為*.wma

然后寫入如下代碼

private

sub

dir1_change()

file1.path

=

dir1.path

end

sub

private

sub

drive1_change()

dir1.path

=

drive1.drive

end

sub

private

sub

file1_click()

windowsmediaplayer1.url

=

file1.path

"\"

file1.filename

end

sub

url是文件的路徑，你也可以拋棄那三個控件，直接指定一個文件

至于視頻嘛，也一樣，可以放一個command1

caption屬性設(shè)為"視頻"

private

sub

command1_click()

file1.pattern="*.avi"

end

sub

為了能改回來，放一個command2

caption屬性設(shè)為"音頻"

private

sub

command2_click()

file1.pattern="*.wma"

end

sub

附加：全屏法：

放一個command3

caption屬性設(shè)為"全屏"

private

sub

command3_click()

windowsmediaplayer1.fullscreen

end

sub

vb.net內(nèi)嵌的視頻怎么用media player控件播放啊？

“工具箱”中單擊右鍵，選擇“選擇項”菜單，打開“選擇工具箱項”窗口，選擇“COM組件”標簽，在列表中找到并勾選“Windows Media Player”組件，單擊“確定”按鈕。將該組件添加到指定的工具箱選項卡中，然后在工具箱里面找 Windows Media Player 控件，拉到form里面，拉出來的控件就是AxWindowsMediaPlayer

vb.ney可以把視頻什么的放到窗體中來嗎？

用VB播放FLASH動畫

Flash是一種矢量格式的動畫文件， 可以包含動畫，聲音，超文本鏈接，而文件的體積卻很小。在網(wǎng)頁上使用Flash可以作出很漂亮的全屏動畫和動態(tài)菜單條。

你想在VB程序里作出類似的效果嗎?在VB中使用Flash4自帶的Swflash.ocx控件就可以了。方法如下：

首先，打開VB5，新建一個工程， 在工具箱上單擊右鍵，選擇部件，在部件窗口的控件列表中選擇Shockwave flash，然后確定，F(xiàn)lash控件就被加到工具箱上。

然后將Flash控件放到窗體上，并調(diào)整至適當?shù)拇笮。缓笤趯傩源翱诶镌O(shè)置movie屬性為Flash動畫文件的路徑(如:c:\demo.swf)，設(shè)置scale model屬性為2，quality 屬性為 1。(參見附表)

雙擊窗體，在form_load( )過程里加入：

shockwaveflash1.playing=true

按F5就可以看到播放的Flash動畫了。(注意:編譯以后的可執(zhí)行文件不包含動畫文件)如果動畫里加上動態(tài)按鈕，配合鼠標位置判斷，就可以作成動態(tài)工具條或動態(tài)菜單了。

怎么在VB中插入視頻播放文件？

Ctrl T

在彈出的對話框中

控件——選中“Windows Media Player”項 應用

在工具欄新出現(xiàn)一個控件圖標

新建此控件

使用如下：

＝＝＝＝＝＝＝＝＝＝WindowsMediaPlayer的常用屬性和方法＝＝＝＝＝＝＝＝＝＝＝

[基本屬性]

URL:string 可以指定媒體位置

enableContextMenu:Boolean 顯示/不顯示播放位置的右鍵菜單

fullScreen:boolean 全屏顯示

stretchToFit:boolean 非全屏狀態(tài)時是否伸展到最佳大小

uMode:string 播放器的模式，full：有下面的控制條; none：只有播放部份沒有控制條

playState:integer 當前控件狀態(tài)，下面是三種基本狀態(tài)：

3：正在播放

2：暫停

1：已停止

狀態(tài)變化時會觸發(fā)OnStatusChange事件

[controls]

可通過WindowsMediaPlayer.controls對播放器進行控制并取得相關(guān)的一些信息：

controls.play; 播放

controls.stop; 停止

controls.pause; 暫停

controls.currentPosition：Double 當前播放進度

controls.currentPositionString：string 時間格式的字符串 "0:32"

[currentMedia]

可以通過WindowsMediaPlayer.currentMedia取得當前媒體的信息

currentMedia.duration Double 總長度

currentMedia.durationString 時間格式的字符串 "4:34"

[settings]

可以通過WindowsMediaPlayer.settings對播放器進行設(shè)置，包括音量和聲道等。

settings.volume:integer 音量 （0-100）

settings.balance:integer 聲道，通過它應該可以進行立體聲、左聲道、右聲道的控制。

vb.net中怎么調(diào)用DirectX來播放視頻

使用Microsoft.DirectX.AudioVideoPlayback組件。

首先，需要安裝DirectX SDK.

DirectX 9.0c Redistributable

DirectX 9.0 SDK Update

然后將對Microsoft.DirectX.AudioVideoPlayback.dll的引用添加到你的項目。

使用這段代碼在Panel控件上放置一個視頻文件：

ImportsMicrosoft.DirectX.AudioVideoPlayback

Public Class Form1

Private Sub Form1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs) Handles MyBase.Load

Dim videoFile As Audio =New Audio("D:\Video1.avi")

videoFile.Owner = Panel1

videoFile.Play()

EndSub

EndClass

'以前收集的資料，沒用過,你自己整整

2)使用Windows Media Player控件也能播放視頻。

右擊工具箱-選項- COM組件-定位并添加“Windows Media Player” ActiveX控件

然后“Windows Media Player”控件將會出現(xiàn)在工具箱上。將它拖動到窗體上來生產(chǎn)一個AxWindowsMediaPlayer1對象,并為URL屬性指定音頻或者視頻文件。

AxWindowsMediaPlayer1.URL = "D:\VideoOrAudio.wmv"

Media Player控件默認將會自動播放文件。

網(wǎng)站標題：vb.net里插入視頻的簡單介紹
URL分享：http://chinadenli.net/article11/dsiiidd.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站制作、Google、動態(tài)網(wǎng)站、域名注冊、服務器托管、網(wǎng)站建設(shè)

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)