vb视频播放

㈠ VB播放视频文件代码

需要特别强调的是WindowsMediaPlayer控件是调用你本机的WindowsMediaPlayer播放器，而WindowsMediaPlayer的默认支持的播放格式为wma、mp3、asf。还有WindowsMediaPlayer1.Controls = play不能用的 吧 这控件都没有Controls这个属性，所以不能用的吧 我直接这样是可以的Private Sub Form_Load()
WindowsMediaPlayer1.URL = "E:\music\beyond\Beyond.Live.1991_C.mp3"End Sub

㈡ 怎样使用vb建立一个视频播放器，

最简单的是添加一个media player的控件，然后设置他的url，这样就能播放mediapalyer支持的视频了
medaplayer控件你要在默认的程序面板上没显示的，你要在控件栏，右键-部件去找
比如说添加了默认的名称为WindowsMediaPlayer1的控件，然后设置WindowsMediaPlayer1.URL =要播放的文件路径
这样就可以了。

㈢ vb 打开视频

左边工具箱的最后一条好像就是添加组件，点进去试试，太久没用，记不清楚了

㈣ 怎么在VB中插入视频

CTRL
+
T
选择WindowsMediaPlayer控件
这个播放mp3
AVI等格式
Real后面的单词不写
,这个是播放Rm
Rmvb等视频
把这个两个附选框版选
钩
确定会权在你的工具箱上显示
他们的事件方法属性很多你可以到网上查阅
我就不说了

㈤ VB制作本地视频播放器

你是初学者，那么不妨直接使用WindowsMediaPlayer控件，视频音频的播放全都交给它来完成。你版自己只需写权一些用来控制这个控件的代码即可。
添加这个控件的方法：
在控件工具栏的空白处点右键，选择部件，在里面找到Windows Media Player，打上勾，点确定。
在窗体上画出这个控件。想要设置这个控件，就在你画出的这个控件上点右键，点属性。最后运行一下，你就会明白不少东西，在这里我就不多说了…，现在差的就是如何让自己画的控件(如Command1按钮)来控制这个WindowsMediaPlayer控件，这里我举些简单的例子，比如画三个按扭，分别是播放、暂停、停止。
那么播放按钮中的代码是
WindowsMediaPlayer1.controls.play
暂停中的是
WindowsMediaPlayer1.controls.pause
停止中的是
WindowsMediaPlayer1.controls.stop
怎么样，很好理解吧，想知道更多的方法，在网络文库里搜一下“WindowsMediaPlayer控件用法”即可，这里打不下了，不懂可以追问，希望能帮到你。

㈥ 用VB按钮怎么控制视频播放呢

你用windows media player控件播放
一下是windows media player的基本属性
属性/方法 说明
URL:String; 指定媒体位置，本机或网络地址
uiMode:String; 播放器界面模式，可为Full, Mini, None, Invisible
playState:integer; 播放状态，1=停止，2=暂停，3=播放，6=正在缓冲，9=正在连接，10= 准备就绪
enableContextMenu:Boolean; 启用/禁用右键菜单
fullScreen:boolean; 是否全屏显示
[controls] wmp.controls 播放器基本控制
controls.play; 播放
controls.pause; 暂停
controls.stop; 停止
controls.currentPosition:double; 当前进度
controls.currentPositionString:string; 当前进度，字符串格式。如“00:23”
controls.fastForward; 快进
controls.fastReverse; 快退
controls.next; 下一曲
controls.previous; 上一曲
[settings] wmp.settings 播放器基本设置
settings.volume:integer; 音量，0-100
settings.autoStart:Boolean; 是否自动播放
settings.mute:Boolean; 是否静音
settings.playCount:integer; 播放次数
[currentMedia] wmp.currentMedia 当前媒体属性
currentMedia.ration:double; 媒体总长度
currentMedia.rationString:string; 媒体总长度，字符串格式。如“03:24”
currentMedia.getItemInfo(const string); 取当前媒体信息"Title"=媒体标题，"Author"=艺术家，"Copyright"=版权信息，"Description"=媒体内容描述，"Duration"=持续时间（秒），"FileSize"=文件大小，"FileType"=文件类型，"sourceURL"=原始地址
currentMedia.setItemInfo(const string); 通过属性名设置媒体信息
currentMedia.name:string; 同 currentMedia.getItemInfo("Title")
[currentPlaylist] wmp.currentPlaylist //当前播放列表属性
currentPlaylist.count:integer; 当前播放列表所包含媒体数
currentPlaylist.Item[integer]; 获取或设置指定项目媒体信息，其子属性同wmp.currentMedia

㈦ 怎样用VB做一个视频播放器

视频：添加一个WindowsMediaPlayer控件，语法：WindowsMediaPlayer1.URL="视频文件路径"
flash：添加一个内shodkwaveflash控件，语法：
ShockwaveFlash1.Movie="flash文件路径"
可以用容commondialog打开本地文件(commondialog.showopen)：
文件路径用commondialog.filename

㈧ vb6.0 播放视频

首先。。先给你解决循环播放问题

Private Sub WindowsMediaPlayer1_PlayStateChange(ByVal NewState As Long)
If NewState = 1 Then '1为停止(一曲播完)
WindowsMediaPlayer1.Controls.play '再播放
End If
End Sub

这就哦了

如果想播放多格式很简单。。安装万能解码，那个控件能播放的视频就是windows系统自带的media player可以支持的视频。

但是WindowsMediaPlayer控件真正的问题是其存在诸多缺陷，如果我不告诉你你马上就会遇到了。
触发条件是
拉上来WindowsMediaPlayer这个控件，把你的form弄成全屏，设置
WindowsMediaPlayer控件的全屏属性fullscreen属性为真。
在播放完一遍视频循环播放时（就用上面的方法循环放）控件会自动跳回到没有全屏的状态，而且先前设置的播放器进度条隐藏都会不起作用。
其次，该控件的visible属性设置以后无效。
为了解决这个问题有个权益之计，就是把窗口拉得比屏幕的全屏还大。让循环的时候跳不回去。

我现在已经不用这个控件了。。。用“引用”中的activemovie

对于依次播放列表问题，最简单方法采用个filelistbox控件
file1.path="d:\aaa\"
然后那个里面就显示这些文件了
可以
for i= 1 to File1.ListCount

file1.list(i)
这样来锁定每个文件
next i

把邮箱给我，我有个例子可以给你看，使用activemovie的

㈨ 怎样才能在VB中播放视频文件

原因是你地址路径写错了。如果文件和你自身文件在一个目录WindowsMediaPlayer1.URL = "\1.mp3"或者回WindowsMediaPlayer1.URL = app.path &"\1.mp3"如果。文件例如在答c盘。WindowsMediaPlayer1.URL = "c:\1.mp3"这样只。如果你是rmvb格式的那当然放不了。windows没那控件。