Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

ComboBox statt ListBox !
Autor: Atlan
Datum: 08.01.02 23:35
Folgendes Problem: Ich möchte mit dem txtSuchen.Text statt wie in dem untenstehenden Beispiel das die Suchfunktion in einer List1.ListBox beschreibt, das gleiche in einer Combo1.ListBox. Wie kann ich den Code entsprechend ändern? '<----- CODE! Private Declare Function SendMessageStr Lib "user32" Alias "SendMessageA" _ (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _ ByVal lParam As String) As Long Private Const LB_ERR = (-1) Private Function ListFindText(lstListBox As ListBox, strFindText As String, Optional _ ByVal intFromIndex As Long = -1, Optional ByVal blnSelect As Boolean = True) As Long Dim lngMsg As Long Dim lngIndex As Long Dim blnExact As Boolean Const LB_FINDSTRING = &H18F Const LB_SELECTSTRING = &H18C Const LB_FINDSTRINGEXACT = &H1A2 Select Case blnExact Case False Select Case blnSelect Case True lngMsg = LB_SELECTSTRING Case False lngMsg = LB_FINDSTRING End Select ListFindText = SendMessageStr(lstListBox.hwnd, lngMsg, intFromIndex, strFindText) Case True With lstListBox lngIndex = SendMessageStr(.hwnd, LB_FINDSTRINGEXACT, intFromIndex, strFindText) If blnSelect Then .ListIndex = lngIndex End If End With ListFindText = lngIndex End Select End Function Private Sub txtSuchen_Change() Call ListFindText(List1, txtSuchen.Text, -1, True) End Sub '<----- CODE! gruß Atlan

ComboBox statt ListBox !	47	Atlan	08.01.02 23:35
Re: ComboBox statt ListBox !	297	Dieter	08.01.02 23:43
Re: ComboBox statt ListBox !	28	Atlan	09.01.02 00:02

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen