不少軟件作者肯定因為易語言沒有內置自定義外形按鈕而煩惱，不過你卻可以用其他組件來實現——用畫板制作自定義外形按鈕
1、新建一個“易語言”窗口程序
2、添加組件——一個畫板到窗口內
為了方便定位按鈕的位置
你可以把畫板的寬度設置為：80，高度也設置為：80
為了清楚畫板在哪里，可以把底色設置成你喜歡的顏色
3、然后就可以輸入代碼了
先輸入變量代碼，代碼如下：
.版本 2.程序集 窗口程序集_啟動窗口.程序集變量 鼠標停留在畫板內, 邏輯型.程序集變量 鼠標移動在畫板內, 邏輯型.程序集變量 橫坐標, 整數型.程序集變量 縱坐標, 整數型.程序集變量 半徑, 整數型.程序集變量 x, 雙精度小數型.程序集變量 y, 雙精度小數型.子程序 __啟動窗口_創建完畢橫坐標 ＝ 50 ' 設置變量數值縱坐標 ＝ 50 ' 設置變量數值半徑 ＝ 25 ' 設置變量數值
1、添加畫板焦點顏色
先繪畫畫板外形
代碼如下：
.版本 2.子程序 _畫板1_繪畫.參數 重畫區左邊, 整數型.參數 重畫區上邊, 整數型.參數 重畫區右邊, 整數型.參數 重畫區下邊, 整數型畫板1.畫橢圓 (橫坐標 － 半徑, 縱坐標 － 半徑, 橫坐標 ＋ 半徑, 縱坐標 ＋ 半徑) ' 畫板1.畫橢圓 你可以替換成 畫板1.畫矩形 等其他形狀
2、添加畫板焦點圖片
代碼如下：
.版本 2.子程序 _畫板1_鼠標位置被移動, 邏輯型.參數 橫向位置, 整數型, , 鼠標指針橫向位置.參數 縱向位置, 整數型, , 鼠標指針縱向位置.參數 功能鍵狀態, 整數型x ＝ 橫向位置 － 橫坐標y ＝ 縱向位置 － 縱坐標.如果 (x × x ＋ y × y ＜ 半徑 × 半徑) ' 檢測鼠標指針位置是否在畫板內 .如果 (鼠標停留在畫板內) .否則 畫板1.刷子顏色 ＝ #淺灰 .如果結束 .如果真 (取反 (鼠標移動在畫板內)) 畫板1.重畫 () ' 重畫——畫板1.刷子顏色 ＝ #淺灰 .如果真結束 鼠標移動在畫板內 ＝ 真 ' 等于真則返回假——鼠標離開畫板后畫板顏色改變，等于假則返回真——鼠標離開畫板后畫板顏色不變.否則 畫板1.刷子顏色 ＝ #白色 .如果真 (鼠標移動在畫板內) 畫板1.重畫 () ' 重畫——畫板1.刷子顏色 ＝ #白色 .如果真結束 鼠標移動在畫板內 ＝ 假 ' 等于真則返回假——鼠標離開畫板后畫板顏色改變，等于假則返回真——鼠標離開畫板后畫板顏色不變
3、按F5運行看看
當鼠標停留在畫板內，畫板顏色就會變成灰色
當鼠標離開在畫板內，畫板顏色就會變成白色
1、添加畫板按鈕效果
命令及變量我已經解釋過了，就不多解釋了
直接輸入代碼，代碼如下：
.版本 2.子程序 _畫板1_鼠標左鍵被按下, 邏輯型.參數 橫向位置, 整數型.參數 縱向位置, 整數型.參數 功能鍵狀態, 整數型x ＝ 橫向位置 － 橫坐標y ＝ 縱向位置 － 縱坐標.如果真 (x × x ＋ y × y ＜ 半徑 × 半徑) 鼠標停留在畫板內 ＝ 真 畫板1.刷子顏色 ＝ #灰色.如果真結束畫板1.重畫 ().子程序 _畫板1_鼠標左鍵被放開, 邏輯型.參數 橫向位置, 整數型.參數 縱向位置, 整數型.參數 功能鍵狀態, 整數型鼠標停留在畫板內 ＝ 假x ＝ 橫向位置 － 橫坐標y ＝ 縱向位置 － 縱坐標.如果真 (x × x ＋ y × y ＜ 半徑 × 半徑) 信息框 (“按鈕被按下”, 0, ) 畫板1.重畫 ().如果真結束
2、這樣基本畫板按鈕就完成了
按F5運行看看效果
這樣就可以實現自定義外形按鈕了
新聞熱點
疑難解答
