Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Icons auf dem Desktop transparent
Autor: sico
Datum: 11.04.05 17:29
Hallo Leute. ich habe eine Code der es mir ermöglicht die Icons auf dem Desktop Transparent zu machen. Das geht nur unter Win98 und ME- Nun meine Frage wie kann ich die Iconschrift verändern. Sie wird standardmäßig auf weiß gesetzt. Ich möchte die Iconfarbe aber lieber in schwarz haben. Kann mir da jemand weiter helfen Option Explicit 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 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 Private Declare Function InvalidateRect Lib "user32" (ByVal hwnd As Long, lpRect As Any, ByVal bErase As Long) As Long Private Declare Function UpdateWindow Lib "user32" (ByVal hwnd As Long) As Long Private Const COLOR_BACKGROUND = 1 Private Const LVM_FIRST = &H1000 ' ListView messages Private Const LVM_GETTEXTBKCOLOR = (LVM_FIRST + 37) Private Const LVM_SETTEXTBKCOLOR = (LVM_FIRST + 38) Private Const CLR_NONE = &HFFFFFFFF Private Sub Command1_Click() Dim bRet As Boolean Dim Progman As Long Dim SHELLDLLDefView As Long Dim SysListView32 As Long bRet = False Progman = FindWindow("Progman", "Program Manager") If Progman <> 0 Then SHELLDLLDefView = FindWindowEx(Progman, 0&, "SHELLDLL_DefView", vbNullString) If SHELLDLLDefView <> 0 Then SysListView32 = FindWindowEx(SHELLDLLDefView, 0&, "SysListView32", vbNullString) If SysListView32 <> 0 Then If (ListView_GetTextBkColor(SysListView32) <> CLR_NONE) Then bRet = ListView_SetTextBkColor(SysListView32, CLR_NONE) Else Call ListView_SetTextBkColor(SysListView32, GetSysColor(COLOR_BACKGROUND)) End If Call InvalidateRect(SysListView32, ByVal 0&, True) Call UpdateWindow(SysListView32) If bRet Then Command1.Caption = "Make Coloured" Else Command1.Caption = "Make Transparent" End If End If End If End If End Sub Private Function ListView_SetTextBkColor(hwnd As Long, clrTextBk As Long) As Boolean Dim lRet As Long lRet = SendMessage((hwnd), LVM_SETTEXTBKCOLOR, 0&, clrTextBk) If lRet = 0 Then ListView_SetTextBkColor = False Else ListView_SetTextBkColor = True End If End Function Private Function ListView_GetTextBkColor(hwnd As Long) As Long ListView_GetTextBkColor = SendMessage((hwnd), LVM_GETTEXTBKCOLOR, 0, 0) End Function

Icons auf dem Desktop transparent

837

sico

11.04.05 17:29

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen