COMBOBOX FILTRAR, MAS NAO PELAS PRIMEIRAS LETRAS

AUSTANDER 22/06/2012 01:32:47
#404669

VER SE TE AJUDA AMIGO..

Private Sub cboProduto_Change()

If lblOs.Caption = [Ô]00000[Ô] Then Exit Sub

Dim lIndex As Long
Dim lTextLen As Long
Dim TmpText1 As String
Dim TmpText2 As String

lIndex = SendMessagem(cboProduto.hwnd, CB_FINDSTRING, -1, ByVal CStr(cboProduto.Text))
If lIndex > -1 And Not PreFalse And Not (cboProduto.SelLength = 0 And cboProduto.SelStart <> Len(cboProduto)) Then
lTextLen = Len(cboProduto.Text)
TmpText1 = cboProduto.Text
cboProduto.Text = cboProduto.List(lIndex)
TmpText2 = cboProduto.Text
Mid(TmpText2, 1, Len(TmpText1)) = TmpText1
cboProduto.Text = TmpText2
cboProduto.SelStart = lTextLen
cboProduto.SelLength = Len(cboProduto.Text) - lTextLen
End If

End Sub