重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
使用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”控件将会出现在工具箱上。将它拖动到窗体上来生产一个AxWindowsMediaPlayer1对象,并为URL属性指定音频或者视频文件。
AxWindowsMediaPlayer1.URL = "D:\VideoOrAudio.wmv"
Media Player控件默认将会自动播放文件。
首先要确定播放的视频格式是什么格式,如果是windows media player支持的格式,直接使用该控件就行了,如果是单个视频的话,比如命名为myPlayer,则:
myPlayer.url="视频文件完整路径"
“工具箱”中单击右键,选择“选择项”菜单,打开“选择工具箱项”窗口,选择“COM组件”标签,在列表中找到并勾选“Windows Media Player”组件,单击“确定”按钮。将该组件添加到指定的工具箱选项卡中,然后在工具箱里面找 Windows Media Player 控件,拉到form里面,拉出来的控件就是AxWindowsMediaPlayer
最简单的方法就是使用WindowsMediaPlayer控件。。。在工程----部件中找到WindowsMediaPlayer,然后打上勾,确定,接着将WindowsMediaPlayer控件添加到窗体上,最后在代码中这样:
private
sub
form_load()
WindowsMediaPlayer1.URL
=
"E:\FavoriteVideo\123.MP4"
end
sub
这样,当程序运行时,会自动播放这个视频。当然也可以把视频文件放到本程序相同的文件夹下:
把路径改为
app.path
"\123.mp4"