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

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


 

 1楼: 2008-3-26 17:48:40
游客
 删除  留言  好友

没用
 

 2楼: 2008-4-5 1:39:37
游客
 删除  留言  好友

有错误  晕哦
 

 3楼: 2008-4-9 21:34:15
游客
 删除  留言  好友

不好意思了,你的两行代码有错误了,呵呵....
不要高兴的太早了.
自己去试一试了.


 


回复帖子 RE: Visual Basic两行代码写播放器

 1、第1个回帖者得3分,第2个回帖者得2分,其余得1个积分!

 2、如是求助帖,前10位有效回帖用户每人再各加10分!

 3、如果乱回求助帖,让原帖作者很不满意,他有权收回积分,系统也同时对您惩罚,扣除10个积分

帐号:
用户名 密码 (不填为游客)  注册新用户
内容:


撤消 恢复 粗体 斜体 下划线 左对齐 居中 右对齐 超级链接 取消超级链接 插入网上图片,支持格式为:gif、jpg、png、bmp 使用帮助 上传图片
表情符号:


附加码:
(附加码: 1698 )