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
<vb>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</vb>
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
<vb>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</vb>
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
<vb>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</vb>
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
<vb>Debug.Print SendMessageLong(List1.hWnd, _
ListBoxMessageEnum.LB_GETCOUNT, _ 0, ByVal &H0)</vb>
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
<vb>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</vb>
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
<vb>Call SendMessageLong(List1.hWnd, _
ListBoxMessageEnum.LB_RESETCONTENT, _ 0, ByVal &H0)</vb>