Simular Sobreescritura en un TextBox

Simula la sobreescritura en un TextBox. Esto lo puedes acompañar con el estado del botón Insertar utilizando el OCX KeyStat…

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii >= 32 Then
        If Text1.SelLength = 0 Then
            If Text1.SelStart < Len(Text1) Then
                Text1.SelLength = 1
            End If
        End If
    End If
End Sub
Anuncios

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión /  Cambiar )

Google photo

Estás comentando usando tu cuenta de Google. Cerrar sesión /  Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión /  Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión /  Cambiar )

Conectando a %s