易語言自定義外形按鈕實現(xiàn)過程

更新時間：2019年01月03日 16:43:19 投稿：laozhang

在本篇內容里小編給大家分享的是關于易語言自定義外形按鈕的制作方法，有興趣的朋友們可以學習下。

不少軟件作者肯定因為易語言沒有內置自定義外形按鈕而煩惱，不過你卻可以用其他組件來實現(xiàn)——用畫板制作自定義外形按鈕

1、新建一個“易語言”窗口程序

2、添加組件——一個畫板到窗口內

為了方便定位按鈕的位置

你可以把畫板的寬度設置為：80，高度也設置為：80

為了清楚畫板在哪里，可以把底色設置成你喜歡的顏色

3、然后就可以輸入代碼了

先輸入變量代碼，代碼如下：

.版本 2

.程序集 窗口程序集_啟動窗口

.程序集變量 鼠標停留在畫板內, 邏輯型

.程序集變量 鼠標移動在畫板內, 邏輯型

.程序集變量 橫坐標, 整數(shù)型

.程序集變量 縱坐標, 整數(shù)型

.程序集變量 半徑, 整數(shù)型

.程序集變量 x, 雙精度小數(shù)型

.程序集變量 y, 雙精度小數(shù)型

.子程序 __啟動窗口_創(chuàng)建完畢

橫坐標 ＝ 50 ' 設置變量數(shù)值

縱坐標 ＝ 50 ' 設置變量數(shù)值

半徑 ＝ 25 ' 設置變量數(shù)值

1、添加畫板焦點顏色

先繪畫畫板外形

代碼如下：

.版本 2

.子程序 _畫板1_繪畫

.參數(shù) 重畫區(qū)左邊, 整數(shù)型

.參數(shù) 重畫區(qū)上邊, 整數(shù)型

.參數(shù) 重畫區(qū)右邊, 整數(shù)型

.參數(shù) 重畫區(qū)下邊, 整數(shù)型

畫板1.畫橢圓 (橫坐標 － 半徑, 縱坐標 － 半徑, 橫坐標 ＋ 半徑, 縱坐標 ＋ 半徑) ' 畫板1.畫橢圓 你可以替換成 畫板1.畫矩形 等其他形狀

2、添加畫板焦點圖片

代碼如下：

.版本 2

.子程序 _畫板1_鼠標位置被移動, 邏輯型

.參數(shù) 橫向位置, 整數(shù)型, , 鼠標指針橫向位置

.參數(shù) 縱向位置, 整數(shù)型, , 鼠標指針縱向位置

.參數(shù) 功能鍵狀態(tài), 整數(shù)型

x ＝ 橫向位置 － 橫坐標

y ＝ 縱向位置 － 縱坐標

.如果 (x × x ＋ y × y ＜ 半徑 × 半徑) ' 檢測鼠標指針位置是否在畫板內

  .如果 (鼠標停留在畫板內)

  .否則

    畫板1.刷子顏色 ＝ #淺灰

  .如果結束

  .如果真 (取反 (鼠標移動在畫板內))

    畫板1.重畫 () ' 重畫——畫板1.刷子顏色 ＝ #淺灰

  .如果真結束

  鼠標移動在畫板內 ＝ 真 ' 等于真則返回假——鼠標離開畫板后畫板顏色改變，等于假則返回真——鼠標離開畫板后畫板顏色不變

.否則

  畫板1.刷子顏色 ＝ #白色

  .如果真 (鼠標移動在畫板內)

    畫板1.重畫 () ' 重畫——畫板1.刷子顏色 ＝ #白色

  .如果真結束

  鼠標移動在畫板內 ＝ 假 ' 等于真則返回假——鼠標離開畫板后畫板顏色改變，等于假則返回真——鼠標離開畫板后畫板顏色不變

3、按F5運行看看

當鼠標停留在畫板內，畫板顏色就會變成灰色

當鼠標離開在畫板內，畫板顏色就會變成白色

1、添加畫板按鈕效果

命令及變量我已經(jīng)解釋過了，就不多解釋了

直接輸入代碼，代碼如下：

.版本 2

.子程序 _畫板1_鼠標左鍵被按下, 邏輯型

.參數(shù) 橫向位置, 整數(shù)型

.參數(shù) 縱向位置, 整數(shù)型

.參數(shù) 功能鍵狀態(tài), 整數(shù)型

x ＝ 橫向位置 － 橫坐標

y ＝ 縱向位置 － 縱坐標

.如果真 (x × x ＋ y × y ＜ 半徑 × 半徑)

  鼠標停留在畫板內 ＝ 真

  畫板1.刷子顏色 ＝ #灰色

.如果真結束

畫板1.重畫 ()

.子程序 _畫板1_鼠標左鍵被放開, 邏輯型

.參數(shù) 橫向位置, 整數(shù)型

.參數(shù) 縱向位置, 整數(shù)型

.參數(shù) 功能鍵狀態(tài), 整數(shù)型

鼠標停留在畫板內 ＝ 假

x ＝ 橫向位置 － 橫坐標

y ＝ 縱向位置 － 縱坐標

.如果真 (x × x ＋ y × y ＜ 半徑 × 半徑)

  信息框 (“按鈕被按下”, 0, )

  畫板1.重畫 ()

.如果真結束