VB中播放器控件WindowsMediaPlayer在哪儿

首先，必须你的windows操作系统里安装了 windows media player 应用程序，这样在VB6里通过菜单【引用】--【部件】，可以引用。

1、因为我们需要使用到MediaPlayer控件，所以刚开始就要右击工具面板并在部件添加窗口里选择“Windows MediaPlayer”来添加这个控件，同时还要添加“CommonDialog”控件。

　　2、在窗口设计器中创建一个MediaPlayer控件、五个Command Button控件和一个CommonDialog控件。

　　3、将Form1的Caption属性更改为“小叮当的媒体播放器”。

　　4、分别将五个Command Button控件的Caption属性分别命名为“暂停”、“播放”、“停止”、“选择”和“退出”，然后把它们按照一定的位置放好。



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



　　小蘑菇：看起来和真正的MediaPlayer差不多呀，还蛮有专业水准的呢。

　　小叮当：是呀，这全要归功于MediaPlayer控件，下面就是代码编写部分内容了：

　　1、首先要双击Form1窗口，并选择“通用”对象，输入下面的通用代码：

　　　　Option Explicit
　　　　Dim playfilename As String　　/定义播放文件的名称
　　　　Dim playposition As Double　　/定义当前播放的位置

　　2、双击“暂停”按键并输入下列代码：

　　Private Sub Command1_Click()
　　　　Command1.Enabled = False　　/暂停按键失效
　　　　MediaPlayer1.Pause　　/暂停播放
　　　　playposition = MediaPlayer1.CurrentPosition　　/当前的播放位置
　　End Sub

　　3、双击“播放”按键并输入下列代码：

　　Private Sub Command2_Click()
　　　　Command1.Enabled = True　　　　/暂停按键有效
　　　　Command3.Enabled = True　　　　/停止按键有效
　　　　MediaPlayer1.filename = playfilename　　/播放媒体文件名称
　　　　MediaPlayer1.SelectionStart = playposition　　/当前播放的位置
　　　　MediaPlayer1.Play　　/播放媒体文件
　　End Sub 　　4、双击“停止”按键并输入下列代码：

　　Private Sub Command3_Click()
　　　　playposition = 0　　/停止播放
　　　　Command3.Enabled = False　　/停止按键无效
　　　　Command1.Enabled = False　　/暂停按键无效
　　　　Command2.Enabled = True　　　　/播放按键有效
　　　　MediaPlayer1.Stop　　/停止播放
　　End Sub

　　5、双击“选择”按键并输入下列代码：

　　Private Sub Command4_Click()
　　　　CommonDialog1.showopen　　　　/打开文件对话框
　　　　playfilename = CommonDialog1.filename　　　　/记录播放文件名
　　　　playposition = 0　　/第一次打开文件时候，播放位置为0
　　End Sub

　　6、双击“退出”按键并输入下列代码：

　　Private Sub Command5_Click（）
　　　　Unload Me　　/卸载窗口
　　　　End　　/结束程序
　　End Sub

　　代码全部输入完毕之后，运行程序后按下“选择”按键，此时会弹出打开文件对话框供你选择需要播放的文件。




　　选中相应的文件之后，就可以进行欣赏了。如果需要在别的计算机上使用这个程序的话，还可以选择“工具”菜单下的“生成.exe文件”选项来制作一个可以直接运行的exe格式文件，这样将程序复制到其他机器上就可以使用了。”

13565771949：PPT幻灯片中利用Windows media player控件播放视频?
充戴钟 ：答：1、启动幻灯片，找到需要插入视频的页面。2、执行视图-工具栏-控件工具箱命令，然后点击确定，调出控件工具箱。3、在控件工具箱里选择其他控件，弹出下列菜单选择Windows media player选项。4、在编辑区域按住鼠标左键进行拖拽，就会出现一个播放器的界面。根据实际需要调节其大小。5、在播放器界面上单击右...

13565771949：VB中使用WindowsMediaPlayer控件时怎么使歌曲循环播放?
充戴钟 ：答：'如果是用的Windows MediaPlayer 就可以在里面加这样一段代码 '当播放器的播放状态改变是 Private Sub MediaPlayer1_PlayStateChange(ByVal NewState As Long)If NewState = 1 Then'1为停止(一曲播完)MediaPlayer1.Controls.play'再播放 End If End Sub ...

13565771949：vb 中怎么获取WindowsMediaPlayer控件播放视频的当前播放时间(进度)_百...
充戴钟 ：答：WindowsMediaPlayer.controls.currentPositionString string类型，显示当前进度，字符串格式。如“00:23”label1.caption=WindowsMediaPlayer.controls.currentPositionString 不过要把这个代码放到timer控件里才能实时显示时间 要显示毫秒的用这个，写到Timer里面，但是Timer的Interval属性值要小一点，不然没什么效果 ...

13565771949：VB 中WindowsMediaPlaye控件
充戴钟 ：答：uiMode:String; 播放器界面模式，可为Full, Mini, None, Invisible playState:integer; 播放状态，1=停止，2=暂停，3=播放，6=正在缓冲，9=正在连接，10=准备就绪 enableContextMenu:Boolean; 启用/禁用右键菜单 fullScreen:boolean; 是否全屏显示 controls.play; 播放 controls.pause; 暂停 controls.s...

13565771949：请教VB高手关于WindowsMediaPlayer控件
充戴钟 ：答：1、因为我们需要使用到MediaPlayer控件，所以刚开始就要右击工具面板并在部件添加窗口里选择“Windows MediaPlayer”来添加这个控件，同时还要添加“CommonDialog”控件。2、在窗口设计器中创建一个MediaPlayer控件、五个Command Button控件和一个CommonDialog控件。3、将Form1的Caption属性更改为“小叮当的媒体...

13565771949：vb中,如何让Windows Media Player控件播放音乐文件?
充戴钟 ：答：先添加引用Quartz.dll(系统文件 window\system32\quartz.dll)，在添加Interop.QuartzTypelib.dll(在项目obj文件夹下)Ctlcontrols.fastForward; 快进 Ctlcontrols.fastReverse; 快退 Ctlcontrols.next; 下一曲 Ctlcontrols.previous; 上一曲 [settings]播放器基本设置 settings.volume:integer; 音量，0-100 set...

13565771949：谁能给我介绍一下vb中Windows Media Player控件的事件。
充戴钟 ：答：ReadyState：控件是否准备就绪 StreamCount：帧的数量（长整型）Volume：音量（长整型）MediaPlayer的方法，有大约10几个，主要的方法：AbouBox：媒体播放器的版本信息 Cancel：取消打开播放器的操作 GetMediaInfoString：媒体文件类型 Open：打开媒体播放器 Pause：暂停 Play：播放文件 Stop：停止 [基本属性]U...

13565771949：vb6 windows media player控件使用方法
充戴钟 ：答：WindowsMediaPlayer1.URL = App.Path & "\music.wma"End Sub5.停止播放的音乐（关闭播放器）在command按钮中加入如下代码，即可实现。Private Sub Command1_Click()WindowsMediaPlayer1.Close End Sub需要特别强调的是WindowsMediaPlayer控件是调用你本机的WindowsMediaPlayer播放器，而WindowsMediaPlayer...

13565771949：vb中添加mediaplayer控件并播放视频,当这个空间上方有其他控件如何才能...
充戴钟 ：答：选择 WMP 控件 -> 右键 -> 移至底层（或下移一层直至达到需要的效果）。一般来讲 WMP 控件是不会覆盖住你想要的控件的。如图。嗯，确实是。WMP 使用了 Overlay 的渲染技术，在视频的播放区直接刷新屏幕，就会把视频区的控件覆盖掉。如果使用 GDI+，只会更改控件内容。要 GDI+ 的渲染器（网络视频...

13565771949：windowsmediaplayer是什么意思windowsme
充戴钟 ：答：它包括相关的小改进，如Internet Explorer 5.5。最重要的改进是Windows Media Player 7，用于与流行的媒体播放软件RealPlayer竞争。3、但是Internet Explorer 5.5和Windows Media Player 7可以在网上免费下载。Movie Maker是该系统中的一个新组件。这个程序提供了编辑和设计视频的基本功能...