怎么在易語言中自定義一個外形按鈕

這篇文章給大家介紹怎么在易語言中自定義一個外形按鈕，內容非常詳細，感興趣的小伙伴們可以參考借鑒，希望對大家能有所幫助。

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.重畫 ()

.如果真結束

關于怎么在易語言中自定義一個外形按鈕就分享到這里了，希望以上內容可以對大家有一定的幫助，可以學到更多知識。如果覺得文章不錯，可以把它分享出去讓更多的人看到。