打造一款自己的专属播放器 ————VB程序设计

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

————VB程序设计

2022届15班 马嘉力 指导老师 旷勇

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

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

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

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

播放器图标、名字、标题、logo统统我说了算！功能齐全，主流多媒体格式：*.Avi;*.Mpeg;*.Dat;*.mp3;*.WMV;*MPG;*Mp4的播放都不在话下。而这款播放大小只有20KB，没错，只有20KB！再看看爱奇艺的：421MB，这区别可是非常大的，足足大了两万多倍！

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

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

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

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

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