Necesito que al precionar la tecla retroceso en un RichTextBox no me haga nada dependiendo de una condicion.
Si el ultimo caracter es un espacio en blanco no hara nada, caso contrario se aplicara la tecla precionada.
Lo unico que me falta es como cancelar la tecla precionada cuando se cumpla la condicion?
Código:
Dim Retroceso As Boolean
Private Const vbKeyBack = 8
Private Sub RichTextBox2_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyBack Then Retroceso = True
If Retroceso Then
If Right(RichTextBox2.Text, 1) = " " Then
'no retrocedo #Aqui deberia cancelar dicha tecla#
MsgBox "no puede regresar"
Else
'retrocedo asi que no hago nada
End If
Form_KeyUp 0, 0
End If
End Sub
Private Sub RichTextBox2_KeyUp(KeyCode As Integer, Shift As Integer)
Retroceso = False
End Sub