Cita:
Iniciado por ENAT_123 
es perfecto eso era lo que queria, pero tengo un pequeño problema, cuando le doy a la tecla borrar hacia atras, me sale una barra vertical, como puedo ecitar eso
gracias culd
saludos
Código:
Private Sub Combo1_KeyPress(KeyAscii As Integer)
If KeyAscii = 8 Then
Combo1.Text = Left(Combo1.Text, Len(Combo1.Text) - 1)
Else
Combo1.Text = Combo1.Text & Chr(KeyAscii)
End If
KeyAscii = 0
End Sub
Lo que hace es verificar si apretaste backspace, si lo hiciste borra el ultimo caracter, y si no es backspace quiere decir que es un caracter que queres escribir. ;)
Código:
Private Sub Combo1_KeyPress(KeyAscii As Integer)
If KeyAscii <> 8 Then
Combo1.Text = Combo1.Text & Chr(KeyAscii)
KeyAscii = 0
End If
End Sub
La diferencia de este es que te permite borrar desde donde pusiste el cursor, por que el anterior al apretar backspace borraba de atras para adelante. Este podes borrar desde la mitad.