Win7的半透明化效果看起來非常炫酷，并且可以自由調(diào)節(jié)窗口的透明度?，F(xiàn)在，我們可以使用易語言來制作一個(gè)工具來調(diào)節(jié)Win7任務(wù)欄的透明程度。 1. 創(chuàng)建易語言窗口程序 首先，新建一個(gè)易語言的Wind

Win7的半透明化效果看起來非常炫酷，并且可以自由調(diào)節(jié)窗口的透明度?，F(xiàn)在，我們可以使用易語言來制作一個(gè)工具來調(diào)節(jié)Win7任務(wù)欄的透明程度。

1. 創(chuàng)建易語言窗口程序

首先，新建一個(gè)易語言的Windows窗口程序。然后，在dll命令下插入以下幾個(gè)dll命令：FindWindowA、SetWindowLongA和SetLayeredWindowAttributes。如果對(duì)這些API不熟悉，可以查閱相關(guān)資料。

2. 添加組件

在窗口中添加滑塊條、按鍵、時(shí)鐘、兩個(gè)標(biāo)簽和一個(gè)圖片框等組件。其中，圖片框是為了美化界面，可以選擇性地添加。

3. 調(diào)整組件參數(shù)

適當(dāng)調(diào)整各組件的參數(shù)。特別是滑塊條的參數(shù)，可以根據(jù)下圖所示進(jìn)行設(shè)置。時(shí)鐘的周期設(shè)置為500毫秒，這樣界面就基本完成了。

4. 添加程序集變量

添加兩個(gè)程序集變量，一個(gè)是滑塊的位置，另一個(gè)是窗口的句柄?；瑝K位置定義為整數(shù)型。

5. 滑塊位置改變事件

在滑塊位置改變的事件中，添加一下代碼：

SetWindowLongA(句柄, -20, GetWindowLongA(句柄, -20) or $80000)
SetLayeredWindowAttributes(句柄, 0, 滑塊位置 * 255 div 100, 2)

6. 時(shí)鐘周期事件

在時(shí)鐘周期事件中，添加以下代碼：

if 滑塊位置 gt; 0 then
    SetLayeredWindowAttributes(句柄, 0, 滑塊位置 * 255 div 100, 2)

7. 按鍵被按下事件

在按鍵被按下事件中，添加以下代碼：

if 滑塊位置 gt; 0 then
    SetWindowLongA(句柄, -20, GetWindowLongA(句柄, -20) and not $80000)

8. 查看效果

現(xiàn)在，你可以運(yùn)行程序并調(diào)節(jié)滑塊的位置來實(shí)時(shí)查看任務(wù)欄的透明效果。

補(bǔ)充初始值

因?yàn)槌跏蓟瘯r(shí)滑塊位置的值為零，所以一開始運(yùn)行程序，任務(wù)欄會(huì)完全透明化。為了避免這個(gè)問題，可以在窗口初始化時(shí)添加一個(gè)滑塊位置的初始值。