大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
首先要确定播放的视频格式是什么格式,如果是windows media player支持的格式,直接使用该控件就行了,如果是单个视频的话,比如命名为myPlayer,则:
成都创新互联公司专注为客户提供全方位的互联网综合服务,包含不限于做网站、网站建设、改则网络推广、微信小程序定制开发、改则网络营销、改则企业策划、改则品牌公关、搜索引擎seo、人物专访、企业宣传片、企业代运营等,从售前售中售后,我们都将竭诚为您服务,您的肯定,是我们最大的嘉奖;成都创新互联公司为所有大学生创业者提供改则建站搭建服务,24小时服务热线:18982081108,官方网址:www.cdcxhl.com
myPlayer.url="视频文件完整路径"
“工具箱”中单击右键,选择“选择项”菜单,打开“选择工具箱项”窗口,选择“COM组件”标签,在列表中找到并勾选“Windows Media Player”组件,单击“确定”按钮。将该组件添加到指定的工具箱选项卡中,然后在工具箱里面找 Windows Media Player 控件,拉到form里面,拉出来的控件就是AxWindowsMediaPlayer
使用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控件默认将会自动播放文件。
用VB播放FLASH动画
Flash是一种矢量格式的动画文件, 可以包含动画,声音,超文本链接,而文件的体积却很小。在网页上使用Flash可以作出很漂亮的全屏动画和动态菜单条。
你想在VB程序里作出类似的效果吗?在VB中使用Flash4自带的Swflash.ocx控件就可以了。方法如下:
首先,打开VB5,新建一个工程, 在工具箱上单击右键,选择部件,在部件窗口的控件列表中选择Shockwave flash,然后确定,Flash控件就被加到工具箱上。
然后将Flash控件放到窗体上,并调整至适当的大小,然后在属性窗口里设置movie属性为Flash动画文件的路径(如:c:\demo.swf),设置scale model属性为2,quality 属性为 1。(参见附表)
双击窗体,在form_load( )过程里加入:
shockwaveflash1.playing=true
按F5就可以看到播放的Flash动画了。(注意:编译以后的可执行文件不包含动画文件)如果动画里加上动态按钮,配合鼠标位置判断,就可以作成动态工具条或动态菜单了。