Bloquear cursor hacia la izquierda

[astrow25]

Hola,

Tengo un textbox con un serie de texto y lo que quiero es que a partir de un momento, no se pueda borrar o escribir, a partir de una posicion hacia la izquierda.

Me Explico, yo tengo un texto

abcd

Y lo que quiero es que a partir de d para la izquierda no se pueda hacer nada, pero para la derecha si.

Espero haberme explicado bien

Gracias

[RootK]

Hola.. puedes jugar un poco con los eventos... (solo copia y pega)

Ejemplo

Dim sText As String 'Declaras una variable que va a ser el texto temporal

Private Sub Text1_Change() 'cuando cambie el texto reasignas el contenido anterior
If Len(Text1.Text) < 4 Then
Dim sText As String
Text1.Text = sText 'asignas lo anterior para no perder el contenido
Text1.SelStart = 4 'dejas el cursor en posicion final de tu texto
End If
End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
sText = Text1.Text 'cachas el texto actual para asignarlo a tu temporal
End Sub

Espero que sea lo que buscas.

Salu2

[Skalitiko]

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
'para que no se pueda borra con Spr

If KeyCode = 46 And Text1.SelStart <= 3 Then

KeyCode = 0

End If

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
'Para que no se pueda borrar con backspace

If KeyAscii = 8 And UCase(Text1) = "ABCD" Then

KeyAscii = 0

End If

End Sub

Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
'Para impedir selección del texto con el mause
If Text1.SelLength > 0 Then Text1.SelLength = 0
End Sub

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
'Para impedir selección de texto con Shift
If Text1.SelLength > 0 Then Text1.SelLength = 0
End Sub