VisualBasic兩行代碼寫播放器
|
《電腦報》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下測試通過,獨立程序也能在別的機器上正常運行。