Question

如何用vb制作视频播放器？

Answer 1

1、首先我们开始就要右击工具面板并在部件添加窗口里选择“WindowsMediaPlayer”来添加这个控件，同时还要添加“CommonDialog”控件。
2.在窗口设计器中创建一个MediaPlayer控件、五个CommandButton控件和一个CommonDialog控件。
3、将Form1的Caption属性更改为“小叮当的媒体播放器”。
4、分别将五个CommandButton控件的Caption属性分别命名为“暂停”、“播放”、“停止”、“选择”和“退出”，然后把它们按照一定的位置放好。

5、选中CommonDialog控件之后，在右边属性的“Filter”对话框中输入“WAV（*.wav）|*.wav|MIDI（*.mid）|*.mid|MPEG（*.mpeg）|*.mpeg|DAT（*.dat）|*.dat|AVI（*.avi）|*.avi|MP3（*.mp3）|*.mp3”的文件过滤选项，这样就可以支持各种常见的媒体影像文件了。

用Windowsmediaplayer控件。

1，有一个ListBOX控件，上面有多个AVI视频文件或者音乐文件

2，通过上下移动按钮，切换视频文件，如何实现视频文件的预览？

'将ListBOX控件的MultiSelect属性设置为单选(运行时不能设置，只能在设计时设置好)

'事先在ListBOX控件中选中一个文件并开始播放

privatesubList1_click()

WindowsMediaPlayer1.URL=List1.List(List1.ListIndex)

WindowsMediaPlayer1.controls.play'播放当前选择的文件

endsub

privatesubUpPlay_click()'单击向上按钮

WindowsMediaPlayer1.controls.pause

WindowsMediaPlayer1.controls.stop

List1.Selected(List1.ListIndex-1)=true

WindowsMediaPlayer1.URL=List1.List(List1.ListIndex)

WindowsMediaPlayer1.controls.play'播放上一个文件

endsub

privatesubDownPlay_click()'单击向下按钮

WindowsMediaPlayer1.controls.pause

WindowsMediaPlayer1.controls.stop

List1.Selected(List1.ListIndex+1)=true

WindowsMediaPlayer1.URL=List1.List(List1.ListIndex)

WindowsMediaPlayer1.controls.play'播放下一个文件

endsub

***********************************************************************************

1.如何加载WindowsMediaPlayer，控件：

在VB6.0D的菜单栏找到“工程”——“部件”，在弹出的菜单中，拉动滚动条找到WindowsMediaPlayer，将其前面的复选框选中，点击“应用”“确定”即可，然后你就会在你的的控件栏中看到WindowsMediaPlayer控件了。

2.如何播放音乐文件

只需要将WindowsMediaPlayer1.URL赋相应的值即可。

例如要在窗体加载时播放music.mp3这个文件，只要这样写代码。

PrivateSubForm_Load()

WindowsMediaPlayer1.URL=VB.App.Path&\"music.mp3\"

EndSub

注意：其中的music.mp3是一个相对路径表示当前目录下的文件，即你的工程所保存的位置。

3.如何暂停播放

在command按钮中加入如下代码，即可实现。

PrivateSubCommand4_Click()

WindowsMediaPlayer1.Controls.pause

EndSub

4.如何在暂停播放之后继续播放

在command按钮中加入如下代码，即可实现。

PrivateSubCommand3_Click()

WindowsMediaPlayer1.Controls.play

EndSub

如果想实现音乐从头播放，只需要将第二条中播放音乐中代码再写一遍即可。

PrivateSubCommand5_Click()

WindowsMediaPlayer1.URL=VB.App.Path&\"music.mp3\"

EndSub

5.停止播放的音乐（关闭播放器）

在command按钮中加入如下代码，即可实现。

PrivateSubCommand1_Click()

WindowsMediaPlayer1.Close

EndSub

需要特别强调的是WindowsMediaPlayer控件是调用你本机的WindowsMediaPlayer播放器，而WindowsMediaPlayer的默认支持的播放格式为WMA和asf，所以为了你编写的程序的通用性，最好音乐文件的格式选择WMA的或者ASF的。

windowsmediaplayer控件的常用属性及方法

属性/方法说明

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.duration:double;媒体总长度

currentMedia.durationString:string;媒体总长度，字符串格式。如“03:24”

currentMedia.getItemInfo(conststring);取当前媒体信息\"Title\"=媒体标题，\"Author\"=艺术家，\"Copyright\"=版权信息，\"Description\"=媒体内容描述，\"Duration\"=持续时间（秒），\"FileSize\"=文件大小，\"FileType\"=文件类型，\"sourceURL\"=原始地址

currentMedia.setItemInfo(conststring);通过属性名设置媒体信息

currentMedia.name:string;同currentMedia.getItemInfo(\"Title\")

[currentPlaylist]wmp.currentPlaylist//当前播放列表属性

currentPlaylist.count:integer;当前播放列表所包含媒体数

currentPlaylist.Item[integer];获取或设置指定项目媒体信息，其子属性同wmp.currentMedia