|
一、彩色按鈕的設(shè)計 Visual FoxPro擁有強大的ActiveX控件類庫,但由于控件類的封裝比較嚴密,因而也損失了一些靈活性,即標準控制對象的組件不能被單獨修改。如果要設(shè)計一些形狀各異,豐富多彩的命令按鈕,就要另辟蹊徑。好在VFP提供了很強的擴展功能,這些問題不難解決。以下給出了利用可視化編程技術(shù)設(shè)計的橢圓形可變色命令按鈕的步驟,供大家參考。 1創(chuàng)建主表單Form1。 2在Form1中創(chuàng)建兩個疊加在一起的形狀控件Shape1和Shape2。將Shape1的BackColor屬性設(shè)為0,0,0(黑色),并將其向右下方稍稍移動一點,作為Shape2的陰影。 3將Shape1和Shape2的Carvature(曲率)屬性設(shè)為90,控件便成為橢圓形狀。 4將Shape2和BackColor屬性設(shè)為0,128,255(藍色)。 5在Shape2的MouseMove Event方法中輸入: thisBackColor=RGB(255,0,255) 即當鼠標移到Shape2上時,Shape2的顏色將變?yōu)樽霞t色。 6再在Form1中創(chuàng)建一個標簽控件Label1,并將Label移至Shape2上,作為按鈕上的標題。 7將Label1的屬性作如下設(shè)置: BackStyle為“透明”; Caption為按鈕上的文字; ForeColor為255,255,255(白色); FontName為揩體; FontSize為14; 說明:以上設(shè)置僅供參考,讀者可根據(jù)自己的需要和喜愛來確定按鈕的字體、大小、顏色等。 8在Label1的Click方法中按鈕被按下時要執(zhí)行的程序。 9最后,打開主表單Form1的屬性表,在MouseMove Freat方法中語句: thisShape2BackColor=RGB(0,128,255) 目的是當離開按鈕時,按鈕能恢復(fù)成藍色。 然后來運行一下這個彩色按鈕,感覺不錯吧。 二、為表單添加背景音樂 MP3播放器現(xiàn)在非常流行,它可以播放MP3類型的聲音文件,我們可以用OLE方式將其加入到表單中,當打開表單時就可聽到優(yōu)美的音樂或歌曲,使得操作界面顯得更加活潑友好。 具體步驟簡述如下: 1首先將準備播放的MP3文件以及WINMPLAY3應(yīng)用程序集中放在某個子目錄中,例如名為VFPMUS的子目錄。
2選擇一首當表單打開時自動播放的音樂,假設(shè)為Music0mp3。雙擊Music0mp3,將彈出Win95的“打開方式”窗口,在“選擇要使
用的程序”中選擇VFPMUS目錄下的WINMPLAY3exe,同時還要設(shè)定“始終用此程序打開此文件”,這樣,只要雙擊Music0mp3,就會
彈出MP3,并自動開始播放Music0。 3在主表單Form1中創(chuàng)建OLE容器對象olecontrol1,隨后將彈出OLE對象窗口,在左邊的單選項中選“從文件中插入”,單擊“瀏覽”,選擇“C:VFPMUSMusic0mp3”,同時,設(shè)定為“鏈接方式”。最后,單擊“確定”退出。 4用右鍵單擊olecontrol1對象,選擇“編輯包”對OLE對象的圖標進行修改,可從VFPSamplesGraphicsIcons中選一個合適的圖標,選好圖標后,單擊“外觀”,選擇編輯菜單中的標識符項,“音樂”二字,最后關(guān)閉窗口。 5打開主表單Form1的屬性窗口,在Init Event方法中: thisolecontrol1DoVerb(-2) 使得運行Form1時就能自動播放背景音樂。
這樣,音樂就可以使用了。運行Form1,在表單上便可看到正在播放音樂的MP3,可以將其最小化,或移到合適的位置,以免MP3遮擋表單上的內(nèi)容。若
要停止播放,可關(guān)閉MP3窗口,若想再進行播放,可雙擊“音樂”圖標。如果想換一首曲子,可單擊MP3的File菜單項,打開其他MP3文件。也可以選定
MP3的Repeat項,以進行不間斷的重復(fù)播放。
|