title image


Smiley Re: Automatische Anzeige in ComboBox
Hi,versuch's mal so:Public Declare Function SendMessage Lib "USER32" Alias "SendMessageA" _ (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _ lParam As Any) As LongPublic Const CB_FINDSTRING = &H14CPublic Sub ComboBox_Auffüllen() Dim iStart As Integer Dim sString As String Static iLeftOff As Integer iStart = 1 iStart = frmXYZ.Combo1.SelStart If iLeftOff 0 Then frmXYZ.Combo1.SelStart = iLeftOff iStart = iLeftOff End If sString = CStr(Left(frmXYZ.Combo1.Text, iStart)) frmXYZ.Combo1.ListIndex = SendMessage(frmXYZ.Combo1.hWnd, _ CB_FINDSTRING, -1, ByVal CStr(Left(frmXYZ.Combo1.Text, iStart))) If frmXYZ.Combo1.ListIndex = -1 Then iLeftOff = Len(sString) frmXYZ.Combo1.Text = sString End If frmXYZ.Combo1.SelStart = iStart iLeftOff = 0End Subbis dann Stephan

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: