|
Hallo zusammen,
ich habe folgendes Problem:
Ich möchte in einem ListView das Symbol für die Sortierung in der entsprechenden Spaltenüberschrift darstellen. Durch ein bißchen Suchen bin ich darauf gestoßen, dass dies nur über die Windows API möglich ist.
Mit SendMessage(lvListView.hwnd, LVM_GETHEADER, 0, 0) bekomme ich das Handle des HeaderControls. Das ist soweit kein Problem.
Aber wenn ich dem HeaderControll die HDM_GETITEM Message schicke, erhalte ich immer 0 als Returncode. Ich bin mir nicht sicher, ob ich bei der Deklaration etwas falsch mache, also hier der aktuelle Stand meiner Bemühungen:
Deklaration:
Public Const HDM_GETITEM As Long = &H120B
Public Const HDM_SETITEM As Long = &H120C
Public Type LVCOLUMN
mask As Long
cxy As Long
pszText As Long
hbm As Long
cchTextMax As Long
fmt As Long
iSubItem As Long
iImage As Long
iOrder As Long
End Type
Declare Function SendMessageLVCOLUMN Lib "user32" _
Alias "SendMessageA" ( _
ByVal hwnd As Long, _
ByVal Msg As Long, _
ByVal wParam As Long, _
ByRef lpLVCOLUMN As LVCOLUMN) As Long
Aufruf:
Dim hHeaderHandle As Long
Dim header As LVCOLUMN
Dim column As Long
hHeaderHandle = SendMessage(lvListView.hwnd, LVM_GETHEADER, 0, 0)
header.mask = HDI_FORMAT
column = 2
Debug.Print SendMessageLVCOLUMN(hHeaderHandle, HDM_GETITEM, column, header)
Hat jemnd eine Idee wo der Fehler liegt? Die Spalte habe ich mal fest mit 2 codiert. Ich habe auch mit HDM_GETITEMCOUNT geprüft, dass der ListViewHeader 8 Saplten hat. Das ist auch der korrekte Wert.
Gruß
Dirk
|