大橙子网站建设,新征程启航

为企业提供网站建设、域名注册、服务器等服务

vb.net里插入视频的简单介绍

高分急求怎么在VB里插入视频

最简单的方法就是使用WindowsMediaPlayer控件。。。在工程----部件中找到WindowsMediaPlayer,然后打上勾,确定,接着将WindowsMediaPlayer控件添加到窗体上,最后在代码中这样:

创新互联为客户提供专业的做网站、成都做网站、程序、域名、空间一条龙服务,提供基于WEB的系统开发. 服务项目涵盖了网页设计、网站程序开发、WEB系统开发、微信二次开发、手机网站制作设计等网站方面业务。

private

sub

form_load()

WindowsMediaPlayer1.URL

=

"E:\FavoriteVideo\123.MP4"

end

sub

这样,当程序运行时,会自动播放这个视频。当然也可以把视频文件放到本程序相同的文件夹下:

把路径改为

app.path

"\123.mp4"

怎么在VB中插入视频

工程→控件→windowsmediaplayer

引用后左边控件列表中会多出一个东西,点它,在屏幕上画个框,mediaplayer就到屏幕上啦

接下来,制作文件打开工具

放置

drive1

dir1

file1

三个控件。把file1的pattern属性设为*.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属性设为"视频"

private

sub

command1_click()

file1.pattern="*.avi"

end

sub

为了能改回来,放一个command2

caption属性设为"音频"

private

sub

command2_click()

file1.pattern="*.wma"

end

sub

附加:全屏法:

放一个command3

caption属性设为"全屏"

private

sub

command3_click()

windowsmediaplayer1.fullscreen

end

sub

vb.net内嵌的视频怎么用media player控件播放啊?

“工具箱”中单击右键,选择“选择项”菜单,打开“选择工具箱项”窗口,选择“COM组件”标签,在列表中找到并勾选“Windows Media Player”组件,单击“确定”按钮。将该组件添加到指定的工具箱选项卡中,然后在工具箱里面找 Windows Media Player 控件,拉到form里面,拉出来的控件就是AxWindowsMediaPlayer

vb.ney可以把视频什么的放到窗体中来吗?

用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动画了。(注意:编译以后的可执行文件不包含动画文件)如果动画里加上动态按钮,配合鼠标位置判断,就可以作成动态工具条或动态菜单了。

怎么在VB中插入视频播放文件?

Ctrl T

在弹出的对话框中

控件——选中“Windows Media Player”项 应用

在工具栏新出现一个控件图标

新建此控件

使用如下:

==========WindowsMediaPlayer的常用属性和方法===========

[基本属性]

URL:string 可以指定媒体位置

enableContextMenu:Boolean 显示/不显示播放位置的右键菜单

fullScreen:boolean 全屏显示

stretchToFit:boolean 非全屏状态时是否伸展到最佳大小

uMode:string 播放器的模式,full:有下面的控制条; none:只有播放部份没有控制条

playState:integer 当前控件状态,下面是三种基本状态:

3:正在播放

2:暂停

1:已停止

状态变化时会触发OnStatusChange事件

[controls]

可通过WindowsMediaPlayer.controls对播放器进行控制并取得相关的一些信息:

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对播放器进行设置,包括音量和声道等。

settings.volume:integer 音量 (0-100)

settings.balance:integer 声道,通过它应该可以进行立体声、左声道、右声道的控制。

vb.net中怎么调用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”控件将会出现在工具箱上。将它拖动到窗体上来生产一个AxWindowsMediaPlayer1对象,并为URL属性指定音频或者视频文件。

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

Media Player控件默认将会自动播放文件。


分享名称:vb.net里插入视频的简单介绍
地址分享:http://dzwzjz.com/article/dsiiidd.html
在线咨询
服务热线
服务热线:028-86922220
TOP