请教VB高手关于WindowsMediaPlayer控件

发布网友 发布时间：2022-05-15 12:55

我来回答

共3个回答

热心网友 时间：2023-10-24 06:54

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格式文件，这样将程序复制到其他机器上就可以使用了。”

热心网友 时间：2023-10-24 06:55

只能自己做进度条，要隐藏只能全部隐藏，用户不能拖动可以实现。

热心网友 时间：2023-10-24 06:55

应该是可以实现的，我去给你试试，你等等