打造自己的媒体播放器补遗

Author: Spring Date: 2001年 40期

?牐犜谝郧暗摹氨喑汤衷啊崩铮颐墙塘舜蠹胰绾沃谱饕桓黾虻サ牟シ牌鳎皇悄歉龀绦蚬诩虻ァD阆M约旱某绦蚣饶懿シ臡PEG,又能播放MP3吗?你希望自己制作一个“超级解霸”吗?你是否也是一个软件DIYer?Follow me!mediaplayer控件可以很好地完成这一切!
  ?牐犗绕舳疺B 6.0,添加一个新窗体到工程中,将mediaplayer控件添加到工具箱中。此时,在工具箱中将可以看到新增加了一个彩色收音机图标,这就是mediaplayer控件(为Windws Media Player所用)。单击该控件将它添加到窗体中,名称不变,属性autosize设为true,autostart设为false。
  ?牐犎缓螅诖疤逯刑砑印安シ拧泵畎磁ィ涿莆猙tn_command1,属性Caption为“播放”,在其Click事件中填写以下代码:
  ?牐燩rivate Sub btn_command1_Click()
  ?牐燤ediaPlayer1.FileName = "f:\vcd\同学聚会.mpg" '指定所要播放MP3文件所在的位置,可自行指定
  ?牐燤ediaPlayer1.Play
  ?牐燛nd Sub
  ?牐犜诖疤逯刑砑印巴V埂泵畎磁ィ涿莆猙tn_command2,属性Caption为“停止”,在其Click事件中填写以下代码:
  ?牐燩rivate Sub btn_command2_Click()
  ?牐燤ediaPlayer1.Stop
  ?牐燤ediaPlayer1.Stop
  ?牐燛nd Sub
  ?牐犞葱懈贸绦颍セ鳌安シ拧卑磁ィシ拍阒付ǖ亩嗝教逦募H粢V梗セ鳌巴V埂卑磁ゼ纯伞?
  ?牐犗旅姘裮ediaplayer控件的常用的属性和方法介绍一下:
  ?牐燼llowchangesize  是否允许改变播放画面大小,如果为false,则不能用MediaPlayer1
  ?牐燚isplaySize=mpFullScreen 全屏幕播放
  ?牐?           =Autosize自动调节大小
  ?牐?           =Autostart是否自动开始播放
  ?牐燗llowscan 是否允许浏览
  ?牐燚isplaysize 播放屏幕的尺寸,有7种值
  ?牐燜ilename 要播放的文件名
  ?牐燤ute 控制声音的打开或者关闭
  ?牐燩laycount 播放次数
  ?牐燫ate 播放的快慢
  ?牐燩lay 播放
  ?牐燩ause 暂停
  ?牐燬top 停止
  ?牐燨pen 打开文件,文件名为参数
  ?牐犛纱丝杉琺ediaplayer控件是很直观,很方便的一个控件,当然,这里只是能播放,如果要提高播放的质量,还是需要下一番功夫的。