 |
VFP 愛用者社區
本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
| 上一篇主題 :: 下一篇主題 |
| 發表人 |
內容 |
Ruey
註冊時間: 2003-03-12
文章: 1698
來自: tunglo
第 1 樓
|
 發表於: 星期一 九月 01, 2003 6:29 pm 文章主題: 彩色按鈕的設計(轉貼) |
 |
|
評語:適用VFP8已經有提供類似功能
彩色按鈕的設計
Visual FoxPro擁有強大的ActiveX控制項類庫，但由於控制項類的封裝比較嚴密，因而也損失了一些靈活性，即標準控制物件的元件不能被單獨修改。如果要設計一些形狀各異，豐富多彩的命令按鈕，就要另闢蹊徑。好在VFP提供了很強的擴展功能，這些問題不難解決。以下給出了利用視覺化編程技術設計的橢圓形可變色命令按鈕的步驟，供大家參考。
1杄創建主表單Form1。
2杄在Form1中創建兩個疊加在一起的形狀控制項Shape1和Shape2。將Shape1的BackColor屬性設為0，0，0（黑色），並將其向右下方稍稍移動一點，作為Shape2的陰影。
3杄將Shape1和Shape2的Carvature（曲率）屬性設為90，控制項便成為橢圓形狀。
4杄將Shape2和BackColor屬性設為0，128，255（藍色）。
5杄在Shape2的MouseMove Event方法中輸入：
this杄BackColor=RGB(255,0,255)
即當滑鼠移到Shape2上時，Shape2的顏色將變為紫紅色。
6杄再在Form1中創建一個標籤控制項Label1,並將Label移至Shape2上，作為按鈕上的標題。
7杄將Label1的屬性作如下設置：
BackStyle為“透明”；
Caption為按鈕上的文字；
ForeColor為255,255,255（白色）；
FontName為揩體；
FontSize為14；
說明：以上設置僅供參考，讀者可根據自己的需要和喜愛來確定按鈕的字體、大小、顏色等。
8杄在Label1的Click方法中輸入按鈕被按下時要執行的程式。
9杄最後，打開主表單Form1的屬性表，在MouseMove Freat方法中輸入語句：
this杄Shape2杄BackColor=RGB(0,128,255)
目的是當滑鼠離開按鈕時，按鈕能恢復成藍色。
然後來運行一下這個彩色按鈕，感覺不錯吧。(江蘇 張浩平)
_________________
#############################
快樂媽咪系列幸福宅配,喝十全雞湯~原來幸福那麼簡單!!
學會VFP使用者社區的搜尋,Code才會更有趣~
############################# |
|
| 回頂端 |
|
 |
mp484
註冊時間: 2006-08-08
文章: 84
第 2 樓
|
| 發表於: 星期日 一月 07, 2007 1:52 am 文章主題: |
|
|
| 不用這麼麻煩!VFP6已有ActiveX控制項設計好的COMMAND |
|
| 回頂端 |
|
|
saint
註冊時間: 2003-07-14
文章: 211
第 3 樓
|
| 發表於: 星期一 一月 08, 2007 12:32 pm 文章主題: |
|
|
| VFP6 就有了哦..請問是那一個呢? |
|
| 回頂端 |
|
|
mp484
註冊時間: 2006-08-08
文章: 84
第 4 樓
|
| 發表於: 星期二 一月 09, 2007 11:16 pm 文章主題: |
|
|
在VFP的控制項中，有一個command button的 ActiveX控制項
可以試試看下列的簡單測試，不用畫得老半天！
*** ActiveX 控制項事件 ***
IF Thisform.Olecmdtest.Backcolor=RGB(255,200,0)
Thisform.Olecmdtest.Backcolor=RGB(200,0,220)
Thisform.Olecmdtest.Fontsize=9
Else
Thisform.Olecmdtest.Backcolor=RGB(255,200,0)
Thisform.Olecmdtest.Fontsize=11
Endif |
|
| 回頂端 |
|
|
chioucy
註冊時間: 2004-05-26
文章: 33
第 5 樓
|
| 發表於: 星期二 一月 09, 2007 11:43 pm 文章主題: |
|
|
請問是VFP 6 中的哪個 ActiveX 控制項
我有看到 Microsoft Forms 2.0 CommandBottom 但並沒有 Backcolor 屬性
但是在 Init 事件中 設定Backcolor 後執行 確實是有顏色 |
|
| 回頂端 |
|
|
|
|
您 無法 在這個版面發表文章
您 無法 在這個版面回覆文章
您 無法 在這個版面編輯文章
您 無法 在這個版面刪除文章
您 無法 在這個版面進行投票
您 無法 在這個版面附加檔案
您 無法 在這個版面下載檔案
|
|
常見問題
搜尋
會員列表
會員群組
會員註冊
個人資料
登入檢查您的私人訊息
登入
