用vb制作简单的播放器

前端之家收集整理的这篇文章主要介绍了用vb制作简单的播放器前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。

看了这篇文章标题,你是不是想拥有一个自己制作的播放器呢?那就继续向下看吧。

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”的文件过滤选项,这样就可以支持各种常见的媒体影像文件了。

 下面是代码的编写过程:

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

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

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

Private Sub Command1_Click()
Command1.Enabled = False ' 暂停按键失效
WindowsMediaPlayer1.Controls.pause '暂停播放
playposition = WindowsMediaPlayer1.Controls.currentPosition ' 当前的播放位置
End Sub

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

Private Sub Command2_Click()
Command1.Enabled = True ' 暂停按键有效
Command3.Enabled = True ' 停止按键有效
WindowsMediaPlayer1.URL = playfilename ' 播放媒体文件名称
WindowsMediaPlayer1.Controls.currentPosition = playposition ' 当前播放的位置
WindowsMediaPlayer1.Controls.play '播放媒体文件
End Sub 

4、双击“停止”按键并输入下列代码

Private Sub Command3_Click()
playposition = 0 ' 停止播放
Command3.Enabled = False ' 停止按键无效
Command1.Enabled = False ' 暂停按键无效
Command2.Enabled = True ' 播放按键有效
WindowsMediaPlayer1.Controls.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格式文件,这样将程序复制到其他机器上就可以使用了。”

原文链接:https://www.f2er.com/vb/257046.html

猜你在找的VB相关文章