ListBoxMessageEnum
Die Mitglieder der Enumeration ListBoxMessageEnum sind Nachrichten, die an Listenfelder gesandt werden, um das Verhalten zu steuern und Daten zu setzen oder zu ermitteln.
Deklaration
Const LB_BASE As Long = &H180
Enum ListBoxMessageEnum
LB_ADDSTRING = LB_BASE + &H0
LB_INSERTSTRING = LB_BASE + &H1
LB_DELETESTRING = LB_BASE + &H2
LB_SELITEMRANGEEX = LB_BASE + &H3
LB_RESETCONTENT = LB_BASE + &H4
LB_SETSEL = LB_BASE + &H5
LB_SETCURSEL = LB_BASE + &H6
LB_GETSEL = LB_BASE + &H7
LB_GETCURSEL = LB_BASE + &H8
LB_GETTEXT = LB_BASE + &H9
LB_GETTEXTLEN = LB_BASE + &HA
LB_GETCOUNT = LB_BASE + &HB
LB_SELECTSTRING = LB_BASE + &HC
LB_DIR = LB_BASE + &HD
LB_GETTOPINDEX = LB_BASE + &HE
LB_FINDSTRING = LB_BASE + &HF
LB_GETSELCOUNT = LB_BASE + &H10
LB_GETSELITEMS = LB_BASE + &H11
LB_SETTABSTOPS = LB_BASE + &H12
LB_GETHORIZONTALEXTENT = LB_BASE + &H13
LB_SETHORIZONTALEXTENT = LB_BASE + &H14
LB_SETCOLUMNWIDTH = LB_BASE + &H15
LB_ADDFILE = LB_BASE + &H16
LB_SETTOPINDEX = LB_BASE + &H17
LB_GETITEMRECT = LB_BASE + &H18
LB_GETITEMDATA = LB_BASE + &H19
LB_SETITEMDATA = LB_BASE + &H1A
LB_SELITEMRANGE = LB_BASE + &H1B
LB_SETANCHORINDEX = LB_BASE + &H1C
LB_GETANCHORINDEX = LB_BASE + &H1D
LB_SETCARETINDEX = LB_BASE + &H1E
LB_GETCARETINDEX = LB_BASE + &H1F
LB_SETITEMHEIGHT = LB_BASE + &H20
LB_GETITEMHEIGHT = LB_BASE + &H21
LB_FINDSTRINGEXACT = LB_BASE + &H22&
LB_SETLOCALE = LB_BASE + &H25
LB_GETLOCALE = LB_BASE + &H26
LB_SETCOUNT = LB_BASE + &H27
LB_INITSTORAGE = LB_BASE + &H28
LB_ITEMFROMPOINT = LB_BASE + &H29
LB_MSGMAX = LB_BASE + &H30
End Enum
Die Nachrichten können mit SendMessage oder PostMessage versandt werden.
Beschreibung
LB_ADDSTRING
Wert (hex/dez): &H180 = 384
Mit dieser Nachricht wird ein neues Element in die Liste eingefügt. Das neue Element wird an das Ende der Liste gestellt.
wParam wird nicht benötigt und muß den Wert 0 haben. lParam ist ein Zeiger auf das einzufügende Element, welches mit einem Nullbyte abgeschlossen werden muß.
Ist bei einer Listbox das Style-Flag LBS_SORT, aber nicht das Style-Flag LBS_HASSTRINGS gesetzt, empfängt der Eigentümer der Liste mindestens einmal die Nachricht WM_COMPAREITEM, um die korrekte Sortierreihenfolge zu gewährleisten.
Ist der Aufruf erfolgreich, wird der Index des hinzugefügten Elementes zurückgegeben. Tritt ein Fehler auf, wird LB_ERR zurückgegeben, der Fehler kann dann mit Err.LastDLLError abgefragt werden. Falls die ListBox nicht mehr genügend Speicher hat, wird LB_ERRSPACE zurückgegeben.
Beispiel
Dim lngResult As Long
Dim strText As String
lngResult = SendMessageLong(List1.hWnd, _
ListBoxMessageEnum.LB_GETCOUNT, _
0, ByVal 0&)
If lngResult <> ListBoxResultEnum.LB_ERR Then
strText = "Eintrag " & CStr(lngResult + 1)
lngResult = SendMessageString(List1.hWnd, _
ListBoxMessageEnum.LB_ADDSTRING, _
0, strText)
End If
LB_DELETESTRING
Wert (hex/dez): &H182 = 386
Dise Nachricht wird an eine ListBox gesandt, um ein Element aus der Liste zu entfernen.
wParam benennt das zu entfernende Element, lParam wird nicht benötigt und muß den Wert 0 haben.
Ist das Style-Flag LBS_HASSTRINGS der ListBox gesetzt, empfängt der Eigentümer der ListBox die Nachricht WM_DELETEITEM, um das Element und zugehörige Daten zu entfernen.
Zurückgegeben wird die Anzahl der verbleibenden Elemente in der Liste. Tritt ein Fehler auf, wird LB_ERR zurückgegeben, der Fehler kann dann mit Err.LastDLLError abgefragt werden.
Beispiel
Dim lngResult As Long
lngResult = SendMessageLong(List1.hWnd, _
ListBoxMessageEnum.LB_GETCOUNT, _
0, ByVal 0&)
If (lngResult <> ListBoxResultEnum.LB_ERR) Then
If lngResult <> 0 Then
lngResult = SendMessageLong(List1.hWnd, _
ListBoxMessageEnum.LB_DELETESTRING, _
lngResult - 1, ByVal 0&)
End If
End If
LB_GETCOUNT
Wert (hex/dez): &H18B = 395
Um die Anzahl der Einträge in einer ListBox zu ermitteln, wird diese Nachricht an die ListBox gesandt.
wParam und lParam werden nicht benötigt und müssen den Wert 0 haben.
Zurückgegeben wird die Anzahl der enthaltenen Einträge. Falls ein Fehler aufgetreten ist, wird stattdessen LB_ERR zurückgegeben, der Fehler kann dann mit Err.LastDLLError abgefragt werden.
Beispiel
Debug.Print SendMessageLong(List1.hWnd, _
ListBoxMessageEnum.LB_GETCOUNT, _
0, ByVal &H0)
LB_INSERTSTRING
Wert (hex/dez): &H181 = 385
Diese Nachricht stellt das Element an die in benannte Position.
wParam enthält die Position, an der das Element eingetragen werden soll. lParam ist ein Zeiger auf das einzufügende Element, welches mit einem Nullbyte abgeschlossen werden muß.
Im Gegensatz zu LB_ADDSTRING wird bei Listen, bei denen das Style-Flag LBS_SORT gesetzt ist, die Sortierung ignoriert und das Element an die benannte Position gesetzt.
Ist der Aufruf erfolgreich, wird der Index des hinzugefügten Elementes zurückgegeben. Tritt ein Fehler auf, wird LB_ERR zurückgegeben, der Fehler kann dann mit Err.LastDLLError abgefragt werden. Falls die ListBox nicht mehr genügend Speicher hat, wird LB_ERRSPACE zurückgegeben.
Beispiel
Dim lngResult As Long
Dim strText As String
lngResult = SendMessageLong(List1.hWnd, _
ListBoxMessageEnum.LB_GETCOUNT, _
0, ByVal 0&)
If lngResult <> ListBoxResultEnum.LB_ERR Then
strText = "Eintrag " & CStr(lngResult + 1)
lngResult = SendMessageString(List1.hWnd, _
ListBoxMessageEnum.LB_INSERTSTRING, _
0, strText)
End If
LB_RESETCONTENT
Wert (hex/dez): &H184 = 388
Entfernt alle Elemente aus der Liste der Listbox.
wParam und lParam werden nicht benötigt und müssen den Wert 0 haben.
Hat die Combobox den Stil LBS_HASSTRINGS, empfängt der Eigentümer der Combobox für jedes Element die Nachricht WM_DELETEITEM.
Beispiel
Call SendMessageLong(List1.hWnd, _
ListBoxMessageEnum.LB_RESETCONTENT, _
0, ByVal &H0)