 |
VFP 愛用者社區
本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
| 上一篇主題 :: 下一篇主題 |
| 發表人 |
內容 |
Ruey
註冊時間: 2003-03-12
文章: 1698
來自: tunglo
第 1 樓
|
 發表於: 星期三 十二月 03, 2003 5:41 pm 文章主題: 在Visual FoxPro中設計豪華封面(轉貼) |
 |
|
在Visual FoxPro中設計豪華封面
http://www.ithome-cn.net/technology/fox/fox49.htm
廣東肇慶加美海外學校 張鏡明 劉 傑
當你歷盡千辛萬苦寫完一個應用程式後，肯定是希望它倍受歡迎；一個既有美感又有動感的漂亮封面定會令你的軟體魅力倍增。設計封面的一般做法是借助3DS、PowerPoint、3DCool等工具製作一個可執行檔，然後掛接在你的程式中。這樣做固然好，但也有不少缺點，比如會使你的軟體變得臃腫，連接有痕跡，效果不夠理想靈活等。下面介紹的是筆者在Visual FoxPro下設計封面的一些心得，主要探討的是如何通過編程的手段來實現動畫效果，原理很簡單，實現也比較容易，相信對各位同行會有一定的啟發作用。
在Visual FoxPro中有個叫計時器（計時器）的控制項（Timer控制），它能按一定的時間間隔規則地執行代碼，是實現動畫效果的“法寶”。 Timer控制有個屬性Interval用來指定計時器控制的 Timer 事件之間的時間間隔毫秒數，一般將這個屬性值設為10，也就是說每隔10毫秒，將會觸發一次計時器的Timer 事件；在Timer 事件中寫上有條件地改變某個控制項的Height、Width、Top、Left、Visible等等屬性的代碼，就能讓這個控制項按我們的要求動起來。
我們借助PowerPoint的一些術語來具體看看各種效果的實現方法：
一、 緩慢移入和飛入：
這是最容易實現的一種，只需要編程改變控制項的Top或Left屬性即可。例如，現有一個名為Form1的表單裏，已經建立了一個名為Image1的圖像控制，此控制項的Picture屬性已設好，想讓這幅圖片從底部緩慢移入螢幕，要做那些工作呢？首先，將Image1的Top屬性設為450（或根據你螢幕設置改為別的數位），也就是說，讓圖片的頂部剛好位於螢幕的下邊界；然後，建立一個名為Timer1的計時器，並將Timer1的Interval屬性設為10；接著，在Timer1的Timer事件中，寫上幾行這樣的代碼：
stayposition=100
speed=3
If Thisform.Image1.top< stayposition then
Thisform.Timer1.enabled=.F.
Else
Thisform.Image1.top=Thisform.Image1.top-speed
Endif
其中，變數stayposition用於控制圖片最後停留的位置，變數speed用於控制圖片的移動速度。運行這個表單，將會看到一幅圖片以你需要的速度，從螢幕底部出發，一直移動到你所需要的位置，然後停下來。如果你想程式運行時，要有一定的動作（例如單擊螢幕），圖片才開始移動，我們可以先把Timer1的Enabled屬性設為.F.，然後在Fomr1的Click事件上寫上代碼：Thisform.Timer1.enabled=.T.即可。
當你真正理解底部緩慢移入的原理和實現方法時，所謂的底部飛入、從右下角緩慢移入、從頂部飛入、從右側飛入等等效果就輕而易舉了，這裏簡單地說一下：飛入，將speed的值改大即可；從頂部移入，稍為複雜一點，要將語句If Thisform.Image1.top< stayposition then中的“< ”改為“ >”，並將語句Thisform.Image1.top=Thisform.Image1.top-speed中的“-”改為“+”，還要修改圖片初始的top屬性，讓圖片開始時是處於螢幕的頂部；從右側移入，需要修改圖片的初始left屬性，並將上面程式中的所有top改為left；而從左上角、右下角等處斜斜移入，則在程式中需要同時改變圖片的top和left屬性。不過，所有這些的道理都是一樣的。
二、 切入：
以右側切入為例。這種效果看起來是從右到左將圖片拉來出來。實現的方法是：先將圖片的width屬性設為0；建立並設好計時器控制項；在計時器的timer事件中寫上如下代碼：
stopwidth=170
speed=12
If Thisform.Image1.width >stopwidth then
Thisform.Timer1.enabled=.F.
Else
Thisform.Image1.width=Thisform.Image1.width+speed
Thisform.Image1.left=Thisform.Image1.left-speed
Endif
這裏，變數stopwidth的值等於圖片的原始寬度。同理，上側切入的效果只需將上述代碼中的width改為height，將left改為top，並將圖片的height屬性設為0即可。但由於VFP的一些限制，左側切入和下側切入的效果比較難於實現。
三、 擦除：
向右擦除的效果與從右側切入非常相象，只是向右擦除看起來是將圖片從左往右攤開，而從右側切入看起來是將圖片從右往左拉出來。它們的實現方法也幾乎一樣，僅將語句Thisform.Image1.left=Thisform.Image1.left-speed去掉就行了。同樣，向上擦除也是類似的，但向左、向下擦除的效果不易實現。
四、 伸展：
伸展跟切入的效果的區別在於：伸展過程中，整幅圖片都能看見，不過是變了形的；而切入的過程中，只能看見圖片的一部分。伸展與切入的實現也幾乎完全相同，唯一的改動是將圖片的stretch屬性設為2（等比填充）。同樣，其他方向的伸展也是類似的。
五、 閃爍：
這個效果很容易實現。建立計時器，根據你所需要的閃爍速度設好它的Interval屬性，一般可設成500。在計時器的timer事件中寫上如下代碼：
if thisform. Image1.visible=.f. then
thisform. Image1.visible=.t.
else
thisform. Image1.visible=.f.
endif
圖片Image1就能按你的需要閃爍起來，想停止閃爍，將計時器的enabled屬性設為.f.即可。
六、 百葉窗：
這個效果要實現比較複雜，我們先看水準百葉窗。首先，在圖片上面建幾個白色的空白橫條標籤，剛好能將圖片蓋住，這些標籤的名字分別取成“label1”、“label2”……；然後建立並設好計時器控制項，並在計時器的timer事件中寫上如下代碼：
speed=3
number=5
if thisform.label1.height >=speed then
for i=1 to number
j=str(i,int((int(i/10)+9)/10)+1)
thisform.label&j..height=
thisform.label&j..height-speed
next i
endif
其中，變數speed用於控制圖片出現的速度，number表示標籤的個數。一般來說標籤的height屬性要設成speed的倍數，而語句j=str(i,int((int(i/10)+9)/10)+1)，是用於根據i的值來確定字元j的長度，避免出錯。至於垂直百葉窗效果，將水準百葉窗效果中的橫條標籤變成豎條標籤，再將代碼中的所有height改為width即可。
七、 棋盤式：
棋盤式的實現方法幾乎和百葉窗一樣，只是空白標籤蓋在圖片上面的方式不同。在棋盤式中，要先建立許多個標籤，但這些標籤並不完全把圖片遮住，而是設計成國際象棋的棋盤那樣，一個格上放標籤，另外一個格露出圖片，標籤依然取名為“label1”、“label2”……代碼則和百葉窗中的完全相同。
八、 迴旋： 表面看來，迴旋這種
效果是圖片在繞著一根軸在旋轉，但實際我們可以通過改變圖片的width屬性來實現這種效果。這時最好建立兩個計時器，分別命名為timer1、timer2；timer2用於控制減少圖片的寬度，其timer事件的代碼為：
speed=4
if thisform.image1.width< =speed then
thisform.timer1.enabled=.t.
thisform.timer2.enabled=.f.
else
thisform.image1.left=thisform.image1.left+speed/2
thisform.image1.width=thisform.image1.width-speed
endif
timer1用於控制增加圖片的寬度，其timer事件的代碼為：
imagewidth=200
speed=4
if thisform.image1.width >=imagewidth then
thisform.timer1.enabled=.f.
thisform.timer2.enabled=.t.
else
thisform.image1.left=thisform.image1.left-speed/2
thisform.image1.width=thisform.image1.width+speed
endif
其中，變數speed控制迴旋的快慢，值要求是偶數， imagewidth代表圖片的原始寬度，圖片的strecth屬性要設成2-變比填充。想停止迴旋，將timer1和timer2的enabled屬性都設為.f.即可。
九、 放大縮小：
這種效果雖然看起來與迴旋相差甚遠，但實現方法卻與迴旋幾乎一樣，只需要把圖片的strecth屬性改為1-等比填充即可，代碼不必做任何改動。
十、 變色：
變色效果一般只應用於文字。變色有許許多多的方式，這裏介紹的是隨機方式。建立標籤物件label1，設好其caption屬性；建立計時器，其Interval屬性根據需要而設，一般可設為500，在timer事件中寫上代碼：
i=int(rand()*255)
j=int(rand()*255)
k=int(rand()*255)
thisform.label1.forecolor=rgb(i,j,k)
以上是本人在使用VFP3.0編程中所積累的一點粗淺經驗，使用上述方法所設計出來的軟體封面的確堪稱豪華。其實，只要懂得了原理，我們可以盡情發揮想像力，設計出各種各樣的漂亮效果。而且這個道理還可以應用於VB編程。最後，需要補充的一點是，如果想為你的效果增添一點聲音，請加上代碼：
SET BELL TO '你需要的聲音.WAV', 0
?? CHR(7)
_________________
#############################
快樂媽咪系列幸福宅配,喝十全雞湯~原來幸福那麼簡單!!
學會VFP使用者社區的搜尋,Code才會更有趣~
############################# |
|
| 回頂端 |
|
 |
|
|
您 無法 在這個版面發表文章
您 無法 在這個版面回覆文章
您 無法 在這個版面編輯文章
您 無法 在這個版面刪除文章
您 無法 在這個版面進行投票
您 無法 在這個版面附加檔案
您 無法 在這個版面下載檔案
|
|
常見問題
搜尋
會員列表
會員群組
會員註冊
個人資料
登入檢查您的私人訊息
登入
