打造一款自己的专属播放器

同学们，你们用手机、电脑看视频需要什么工具软件呢？没错那就是——播放器。你们在使用一些常见的播放器时是否会因为视频边角上大大的水印感到厌烦呢？是否经常会因各种又多又长广告而恶心呢？是否会因为没VIP发愁呢（有会员的不要抬杠，谢谢）？那么是时候该打造一款属于我们自己专属的视频播放器了！

我已经学了VB一学期多了，这个实用的播放器程序完全改变了过去长时间以来我对VB编程难度大、代码复杂、枯燥的看法。它就是——播放器程序。

现在流行的大部分播放器，如爱奇艺、腾讯视频、QQ影音，他们都有一些共同点：占用存储空间大、广告弹出频繁，你有VIP也解决不了那些遗臭万年的弹出广告，很多时候甚至认为最好的办法就是这些播放器统统删了，一了百了。可是转念一想还要看视频的嘛，只有百般无赖地按下了取消卸载程序的按钮…………

但是，自打学习了VB程序设计以后，忽然变得不一样了，程序世界里面的规则变成了我自己说了算！不想要那些烦人的播放器，自己打造一个播放器软件不就完了吗，不要眨眼，看看咱们自己的专属播放器吧！

播放器程序的编写难度却不是很大，首先打开VB，建立工程，点击左上角菜单栏的的工程部件，再进入添加部件界面。这时候注意了，我们需要的是WindowsMediaPlayer控件，中文意思即Windows媒体播放器。该控件支持的文件格式包括目前流行的多媒体文件格式，如:AVI、RMVB、MPEG、MOV、WMV、MP4等等。将WindowsMediaPlayer控件添加到我们的控件箱中后就可以在工具栏中找到“”这个按钮，双击就可以把它添加到我们的窗口之中了，然后我们调整控件到恰当的位置和大小即可。

随后我们利用菜单编辑器完成下拉菜单及其各个选项的设计，然后再打开“部件“，选择Microsoft Common DialogControl控件，用于添加打开文件对话框以及设置所显示的对应文件类型。通常由一对或多对的“描述符｜过滤符”组成，其中，描述符是用来显示的列表项，过滤符是供系统过滤用的。至此我们的播放器就可以灵活的打开想要播放的各种多媒体文件了。

一个专属于自己的多媒体播放器就这样新鲜出炉了。虽然界面略显简陋，但是的这款播放器是真心不错——体积小巧、功能齐全、个性专属，最重要的是没有弹窗广告，这是是极为舒心的。怎么样心动了吗？一起来学习程序设计吧！

程序核心代码及其注释如下：

Private Sub fopen_Click()

Dim MFile As String                '定义一个用于传递文件名的变量

CommonDialog1.ShowOpen       '弹出"打开"对话框

MFile = CommonDialog1.FileName‘将打开文件对话框中的文件名属性进行记录

WindowsMediaPlayer1.URL = MFile '将选择好的文件名传递给"MediaPlayer"控件WindowsMediaPlayer1.Enabled = True  '让"MediaPlayer"控件自动播放

End Sub

Private Sub Form_Load()

Form1.Height = 4500

Form1.Width = 4800

WindowsMediaPlayer1.Width = Form1.ScaleWidth

WindowsMediaPlayer1.Height = Form1.ScaleHeight

CommonDialog1.Filter = "影像文(*.Avi;*.Mpg;*.Dat)|*.Avi;*MPG;*.DAT;*.mp4"

End Sub

Private Sub Form_Resize()

WindowsMediaPlayer1.Width = Form1.ScaleWidth

WindowsMediaPlayer1.Height = Form1.ScaleHeight

End Sub