【ChinaBeta.Cn 网盟学院】
’声明如下:
’=========================================================
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" _
(ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, _
ByVal lpsz2 As String) As Long
Private Declare Function UpdateWindow Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal _
hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) _
As Long
Private Declare Function GetSysColor Lib "user32" (ByVal nIndex As Long) As Long
Private Declare Function SetSysColors Lib "user32" (ByVal nChanges As Long, _
lpSysColor As Long, lpColorvalues As Long) As Long
Const LVM_FIRST = &H1000
Const LVM_GETITEMCOUNT = LVM_FIRST + 4
Const LVM_SETTEXTCOLOR = LVM_FIRST + 36
Const LVM_REDRAWITEMS = LVM_FIRST + 21
Const LVM_SETTEXTBKCOLOR = LVM_FIRST + 38
Const COLOR_DESKTOP = 1
’=========================================================
’文字透明:
’=========================================================
’========
’先找到放置桌面图表的窗口!!!
hWindow = FindWindow("Progman", "Program Manager")
hWindow = FindWindowEx(hWindow, 0, "SHELLDLL_DefView", "")
hWindow = FindWindowEx(hWindow, 0, "SysListView32", "")
’========
’更改图标文字的背景色!!!!
’当背景色为 &HFFFFFFFF 时代表透明色
SendMessage hWindow, LVM_SETTEXTBKCOLOR, 0, &HFFFFFFFF
’你也可以将它改为其它的颜色(以下为蓝色)
SendMessage hWindow, LVM_SETTEXTBKCOLOR, 0, vbBlue
’========
’你甚至还可以改变文字的颜色!!!
’将文字的颜色改为其它的颜色(以下为蓝色)
SendMessage hWindow, LVM_SETTEXTCOLOR, 0, vbBlue
’========
’最后别忘了刷新一下!!!
’重新绘制所有的图标
lItemCount = SendMessage(hWindow, LVM_GETITEMCOUNT, 0, 0)
SendMessage hWindow, LVM_REDRAWITEMS, 0, lItemCount - 1
’更新窗口
UpdateWindow hWindow
’=========================================================
’恢复系统默认:
’=========================================================
a = GetSysColor(COLOR_DESKTOP)
SetSysColors 1, COLOR_DESKTOP, a
’=========================================================
（责任编辑：hahack）
|
[其它编程程序]代码：VB实现Windows桌面透明图标… (05-06)
