Bloquear selección con dobleclick en TextBox
Cómo puedo deshabilitar la selección de todo el texto de un TextBox cuando se le dá doble click en el TextBox, intenté usar el TextBox1_MouseDown y darle el enfoque a otro control como OptionButton1. SetFocus, pero no me resulta siempre lo hace.
1 Respuesta
Prueba con este evento, valida si le das click y selecciona nada más la última posición del textbox
Private Sub TextBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Button = vbKeyLButton Then
TextBox1.SelStart = Len(TextBox1)
End If
End Sub
También tienes que cambiar la propiedad EnterFieldBehavior = 1 del textbox, ya sea que lo hagas en las propiedades o en el código de esta forma:
Private Sub UserForm_activate()
TextBox1.EnterFieldBehavior = 1
End Sub
