Autocompletar

Isso é para uma ComboBox:

crie essa função:

Sub CompletaCombo(Cb As ComboBox, KeyAscii As Integer)

Dim ComTexto As String

Dim Texto As String

If KeyAscii = 34 Or KeyAscii = 13 Or KeyAscii = 39 Or KeyAscii = 96 Or KeyAscii = 126 Then

KeyAscii = 0

Exit Sub

End If

ComTexto = Left(Cb.Text, Cb.SelStart) & Chr(KeyAscii)

For c = 0 To Cb.ListCount

If Format(Left(Cb.List©, Str(Len(ComTexto))), ">") = Format(ComTexto, ">") Then

Cb.Text = Cb.List©

Cb.SelStart = Len(ComTexto)

Cb.SelLength = Len(Cb.Text)

Exit For

End If

Next c

KeyAscii = 0

End Sub

daí você chama ela assim no evento keypress do combo:

CompletaCombo nome_combo, KeyAscii

espero que te ajude!! http://forum.imasters.com.br/public/style_emoticons/default/ninja.gif

ah... saiu errado:

obs:

Cb.List© na verdade é Cb.List( c )

beleza? http://forum.imasters.com.br/public/style_emoticons/default/ninja.gif