1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28
|
'Déclaration
'-------------
'API declarations
Public 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 LVS_SORTASCENDING = &H10 'pour trier par nom asc
Public Const LVM_SORTITEMS = (LVM_FIRST + 48)
'et d'autres déclarations...
'code ds procedure sub
'-------------------------
Public Sub sortIconsByNameAsc()
h = GetDesktopWindow() 'hwnd for desktop
Call SendMessage(h, LVM_SORTITEMS, LVS_SORTASCENDING, h)
end sub |
Partager