COMBO
Como fazer para que quando estiver sendo digitado os dados em um combo seja completado.
Ex: No Combo tem a palavra Frase, então quando digitar F ele complete o restante.
Valews
Ex: No Combo tem a palavra Frase, então quando digitar F ele complete o restante.
Valews
tente com este exemplo...
http://www.vbmania.com.br/vbmdetail.php?varID=2847
http://www.vbmania.com.br/vbmdetail.php?varID=2847
Coloque este código em um módulo:
Carregue a combo usando o o ADDITEM.
Coloque este código do KEYPRESS da Combo:
e pronto!!!
Sub AutoProcura(cbo As ComboBox, KeyAscii As Integer)
Dim sBuffer As String
Dim lRetVal As Long
sBuffer = Left(cbo.Text, cbo.SelStart) & Chr(KeyAscii)
lRetVal = SendMessage((cbo.hWnd), CB_FINDSTRING, -1, ByVal sBuffer)
If lRetVal <> CB_ERR Then
cbo.ListIndex = lRetVal
cbo.Text = cbo.List(lRetVal)
cbo.SelStart = Len(sBuffer)
cbo.SelLength = Len(cbo.Text)
KeyAscii = 0
End If
End Sub
Carregue a combo usando o o ADDITEM.
Combo1.AddItem "Teste1"
Combo1.AddItem "Teste2"
Combo1.AddItem "Teste3"
Coloque este código do KEYPRESS da Combo:
AutoProcura Combo1, KeyAscii
e pronto!!!
Coloque este código em um módulo:
Carregue a combo usando o o ADDITEM.
Coloque este código do KEYPRESS da Combo:
e pronto!!!
Sub AutoProcura(cbo As ComboBox, KeyAscii As Integer)
Dim sBuffer As String
Dim lRetVal As Long
sBuffer = Left(cbo.Text, cbo.SelStart) & Chr(KeyAscii)
lRetVal = SendMessage((cbo.hWnd), CB_FINDSTRING, -1, ByVal sBuffer)
If lRetVal <> CB_ERR Then
cbo.ListIndex = lRetVal
cbo.Text = cbo.List(lRetVal)
cbo.SelStart = Len(sBuffer)
cbo.SelLength = Len(cbo.Text)
KeyAscii = 0
End If
End Sub
Carregue a combo usando o o ADDITEM.
Combo1.AddItem "Teste1"
Combo1.AddItem "Teste2"
Combo1.AddItem "Teste3"
Coloque este código do KEYPRESS da Combo:
AutoProcura Combo1, KeyAscii
e pronto!!!
seu problema foi resolvido?
Tópico encerrado , respostas não são mais permitidas