給你點(diǎn)代碼參考一下,不是完整的,具體的代碼你自己研究
成都創(chuàng)新互聯(lián)公司專注于企業(yè)營銷型網(wǎng)站建設(shè)、網(wǎng)站重做改版、揚(yáng)州網(wǎng)站定制設(shè)計(jì)、自適應(yīng)品牌網(wǎng)站建設(shè)、H5網(wǎng)站設(shè)計(jì)、商城開發(fā)、集團(tuán)公司官網(wǎng)建設(shè)、外貿(mào)營銷網(wǎng)站建設(shè)、高端網(wǎng)站制作、響應(yīng)式網(wǎng)頁設(shè)計(jì)等建站業(yè)務(wù),價(jià)格優(yōu)惠性價(jià)比高,為揚(yáng)州等各大城市提供網(wǎng)站開發(fā)制作服務(wù)。
Dim _Doc As New XmlDocument
_Doc.LoadXml(_strXml)
Dim xParent As XmlNode
Dim xNode As XmlNode
xParent = _Doc.SelectNodes("rss")(0)
Dim xList As XmlNodeList
xList = xParent.SelectNodes("media")
xNode = xList(0)
'在下面判斷屬性為url的,取出其值即可
For I = 0 To xNode.Attributes.Count - 1
MsgBox(xNode.Attributes(I).Name)
MsgBox(xNode.Attributes(I).Value)
Next
打開格式轉(zhuǎn)換
進(jìn)入軟件,然后打開視頻格式轉(zhuǎn)換功能。
2/3
導(dǎo)入視頻
進(jìn)入轉(zhuǎn)換功能后,選擇一段視頻,然后點(diǎn)擊下一步。
完美動(dòng)力怎么剪輯視頻-CG行業(yè)全能人才孵化基地
值得一看的視頻相關(guān)信息推薦
完美動(dòng)力廣告
3/3
設(shè)置編碼格式
視頻導(dǎo)入成功后,首先設(shè)置目標(biāo)編碼格式,然后點(diǎn)擊開始轉(zhuǎn)換即可。
'動(dòng)態(tài)數(shù)組在使用前必須明確其大小
ReDim?filepath(i)?As?String
基本上這高分懸賞的問題,都是騙回答的。
openfiledialog1.Filter = "多媒體文件(*.ogg;*.MP3;*.MP4;*.wma)|*.ogg;*.MP3;*.MP4;*.wma|所有文件(*.*)|*.*"
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a As String = "c:\windows\system"
For Each ws In My.Computer.FileSystem.GetFiles(a)
Dim kzm As String = ws.Substring(InStrRev(ws, "."), ws.Length - InStrRev(ws, ".")) '定義擴(kuò)展名變量
If kzm = "mp4" Or kzm = "avi" Or kzm = "flv" Then '這里一定要注意擴(kuò)展名的大小寫,如aviAVI的
Me.ListBox1.Items.Add(ws)
End If
Next
End Sub
使用Microsoft.DirectX.AudioVideoPlayback組件。
首先,需要安裝DirectX SDK.
DirectX 9.0c Redistributable
DirectX 9.0 SDK Update
然后將對(duì)Microsoft.DirectX.AudioVideoPlayback.dll的引用添加到你的項(xiàng)目。
使用這段代碼在Panel控件上放置一個(gè)視頻文件:
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控件也能播放視頻。
右擊工具箱-選項(xiàng)- COM組件-定位并添加“Windows Media Player” ActiveX控件
然后“Windows Media Player”控件將會(huì)出現(xiàn)在工具箱上。將它拖動(dòng)到窗體上來生產(chǎn)一個(gè)AxWindowsMediaPlayer1對(duì)象,并為URL屬性指定音頻或者視頻文件。
AxWindowsMediaPlayer1.URL = "D:\VideoOrAudio.wmv"
Media Player控件默認(rèn)將會(huì)自動(dòng)播放文件。