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

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

private

sub

form_load()

WindowsMediaPlayer1.URL

=

"E:\FavoriteVideo\123.MP4"

end

sub

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

把路径改为

app.path

&

"\123.mp4"

工程→控件→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

---