转一个,桌面图标下文字去底色的方法

直接保存为 透明.BAS 即可,按F5运行桌面图标下的文字就没有底了

 

Option Explicit
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
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
Declare Function InvalidateRect Lib "user32" (ByVal hwnd As Long, ByVal lpRect As Long, ByVal bErase As Long) As Long
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Const LVM_SETTEXTBKCOLOR = &H1000 + 38
Sub Main()
Dim Parent&, Child&, CChild&
Parent = FindWindow(vbNullString, "Program Manager")
If Parent = 0 Then ShowError
Child = FindWindowEx(Parent, 0, "SHELLDLL_DefView", vbNullString)
If Child = 0 Then ShowError
CChild = FindWindowEx(Child, 0, "SysListView32", vbNullString)
If CChild = 0 Then ShowError
SendMessage CChild, LVM_SETTEXTBKCOLOR, 0, ByVal &HFFFFFFFF
InvalidateRect CChild, 0, True
End Sub
Private Sub ShowError()
    MsgBox "不好意思，未知的错误", vbOKOnly + vbInformation
    End
End Sub