Visual Basic两行代码写播放器

领测软件测试网

　　 
　　《电脑报》2003年第2期刊发了《9句代码制作音频播放器》一文，详细地介绍了用VB程序制作音频播放器的整个过程，语言简洁晓畅，连笔者这个电脑菜鸟兼编程白痴都看了个明明白白清清楚楚真真切切，而且更可怕的是竟让我对编程一见钟情!不过，

在读了《电脑报》有关程序优化的文章后，经过自己的研究，发现其实只用2句代码，也可以做成一个播放器。不信?Follow me!
　　第一步：添加控件

　　启动VB6，新建一个“标准EXE”工程。在“工程”菜单中选择“部件”，弹出对话框后，分别勾选“Windows Media Player”和“Microsoft Common Dialog Control 6.0”两个复选框，单击“确定”，将上述两个控件添加到工具箱。然后把它们从工具箱中依次拖到窗体中，并调整“Windows Media Play
er”的大小及位置。

　　从工具箱中选择“CommandButton”，拖入窗体中，调整其大小及位置。可将其Caption属性修改为“选择媒体文件”。

　　第二步：输入代码

　　双击“选择媒体文件”（“CommandButton”控件）按钮，在光标提示处输入以下两行代码即可：

CommonDialog1.ShowOpen MediaPlayer1.FileName = CommonDia log1.FileName

　　试一试，怎么样?如果你想把它编成可独立运行的程序，只需选择“文件”菜单中的“生成工程1.EXE”即可轻松搞定。虽然比Windows自带的媒体播放机简单了些，但你想想看，这个能播放MP3、WAV、CD、MIDI、MPEG等10种格式文件的自制播放器，大小才20KB而已，上哪里去寻找这样小巧能干的绿色免费播放器呢!
说明：笔者电脑上的Windows Media Player为6.0版，读者朋友的版本如为9.0，可将最后一句代码改为：“windowsMediaPlayer1.URL = CommonDialog1.FileName”。上述代码在Windows98SE、VB6下测试通过，独立程序也能在别的机器上正常运行。

文章来源于领测软件测试网 https://www.ltesting.net/