VB-Homepage Tipp 072

Desktopicons linksbündig anordnen

Ein Tipp der Kategorie "Im Moment weiß ich nicht wozu das gut sein soll"
gibt es hier wieder.
Und zwar lassen sich unter Windows95 damit alle Desktopicons linksbündig anordnen. Da es sich hierbei wirklich nicht um viel Quellcode handelt, verzichte ich auf das Bereitstellen der ganzen Formdefinierung.
Öffnen Sie einfach ein neues VB4-Projekt und fügen Sie unter

Allgemein/Deklarationen folgenden Code ein.

Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Const GW_CHILD = 5
Private Const LVA_ALIGNLEFT = &H1
Private Const LVM_ARRANGE = &H1016

Fügen Sie als nächstes einen Commandbutton ein und geben diesem unter der Aktion
Command1_Click diese Anweisungen auf den Weg.
Dim hWnd1 As Long
Dim hWnd2 As Long
Dim Ret As Long

hWnd1 = FindWindow("Progman", vbNullString)
hWnd2 = GetWindow(hWnd1, GW_CHILD)
hWnd1 = GetWindow(hWnd2, GW_CHILD)
Ret = SendMessage(hWnd1, LVM_ARRANGE, LVA_ALIGNLEFT, 12)

Das wars es schon, viel Spaß mit dem Aufräumen der Icons


Tipp-Download

Quelle :

Zurück zur Übersichtsseite