Evitar seleccionar contenido de un Text1

[T3rryMan]

Iniciado por hunter18

Hola te explico exactamente lo que necesito quiero copiar un modulo de un programa llamado typing master, como veras en la imagen son 2 textbox o richtextbox's el de arriba esta desabilitado pero el de abajo tiene el cursor para poder escribir, este cursor siempre permanece al final de la cadena y nunca se desenfoca siempre permanece ahi, si intentas colocarlo en otra posicion simplemente no hace nada siempre se queda al final.
En pocas palabras ese Richtextbox o Textbox siempre permanece enfocado y al final de la cadena, y no permite que selecciones nada.

Hola hunter

haber me cuentas q te parece esta prueba
simplemente es un formX con un textbox TEXT1 y un timer1 lo incrustas y copiando todo el codigo lo ejecutas

Lo que hize primero deshabilite el text1 y habilite la propiedad KEYPREVIEW que permite capturar cualquier pulsacion en cualquier objeto y primero lo evaluaria el FORM despues habilite el timer con un interval 250 para que haga el efecto de de cursor enfocado.


y procederas a escribir lo q quieras y aparecera el "puntero | " siempre al final si la opcion de seleccionar ni borrar el ultimo caracter.
ya q hace una se bloqueo el KeyPress=8 el retroceso o blackspace

Código vb:

Private Sub Form_Load()
    Form1.KeyPreview = True
    Timer1.Interval = 250
    Text1.Tag = ""
    Text1.Enabled=false
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
    Select Case KeyAscii
        Case 8
        KeyAscii = 0
        Case Else
        Text1.Text = Text1.Tag + Chr(KeyAscii) + Chr(124)
        Text1.Tag = Text1.Tag + Chr(KeyAscii)
    End Select
End Sub
Private Sub Timer1_Timer()
    If Right(Text1.Text, 1) = "|" Then
            Debug.Print "se encontro"
            Text1.Text = Text1.Tag
        Else
            Debug.Print "NO se encontro"
            Text1.Text = Text1.Text + Chr(124)
    End If
End Sub