您的位置：论坛首页 >> 软件论坛论坛

Visual Basic两行代码写播放器

楼主： 2008-3-26 17:48:39

游客

编辑　

删除　

留言　

好友　

置顶　

取消精华

原文：Visual Basic两行代码写播放器

天极IT资讯短信服务 电脑小技巧

资费：包月5元
手机：

介绍：细处着手，巧处用功。高手和菜鸟之间的差别就是：高手什么都知道，菜鸟知道一些。电脑小技巧收集最新奇招高招，让你轻松踏上高手之路。

　　

　　《电脑报》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下测试通过，独立程序也能在别的机器上正常运行。