Cómo habilitar un cuadro de texto deshabilitado con el clic del mouse vb.net

textbox disabled-control

Question

¿Simple cómo habilitar un cuadro de texto que está desactivado haciendo clic en él? ¿Cómo se hace esto?

mi código no funciona

Private Sub Textbox1_MouseClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Textbox1.MouseClick
Textbox1.Enabled = True
End Sub

Puede alguien ayudarme.

¿Tengo que recurrir al seguimiento de los clics del mouse y las posiciones X, Y del cuadro de texto con temporizadores, etc. no se disparan los eventos al hacer clic en él?

Answer 1

Cuando su cuadro de texto está enabled = false , no puede hacer clic en él con el mouse.

Answer 2

Lo que funcionó para mí parece ser que la mejor manera de hacerlo es hacer algo como esto.

Private Sub TextBox1_MouseClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.MouseClick
TextBox1.BackColor = Color.Empty
End Sub

y para deshabilitarlo ejecuta este tipo de código

 ''To lose focus from textbox otherwise it will have a blinker
Label1.Focus()
TextBox1.BackColor = TextBox.DefaultBackColor

Pero primero configuré el color como desactivado. Descubrí que usar el color ButtonFace probablemente funciona mejor, parece seguro.

TextBox1.BackColor = SystemColors.ButtonFace

mi intención nunca fue deshabilitarla, sino hacer que el usuario piense que está inhabilitada hasta que haga clic en ella ... cuando hace clic en otra parte, se desactiva

Answer 3

Puedes usar IMessageFilter para atrapar mensajes WM_LBUTTONDOWN y luego verificar si el cursor está dentro del TextBox ... algo así como:

Public Class Form1
Private WithEvents filter As New MyFilter
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
TextBox1.Enabled = False
Application.AddMessageFilter(filter)
End Sub
Private Sub filter_LeftClick() Handles filter.LeftClick
Dim rc As Rectangle = TextBox1.RectangleToScreen(TextBox1.ClientRectangle)
If rc.Contains(Cursor.Position) AndAlso Not TextBox1.Enabled Then
TextBox1.Enabled = True
TextBox1.Focus()
End If
End Sub
Private Class MyFilter
Implements IMessageFilter
Public Event LeftClick()
Private Const WM_LBUTTONDOWN As Integer = &H201
Public Function PreFilterMessage(ByRef m As System.Windows.Forms.Message) As Boolean Implements System.Windows.Forms.IMessageFilter.PreFilterMessage
Select Case m.Msg
Case WM_LBUTTONDOWN
RaiseEvent LeftClick()
End Select
Return False
End Function
End Class
End Class

Answer 4

Como alternativa, puede establecer la propiedad de control ReadOnly en True y la propiedad Text en "" cuando un evento MouseClick llegue a otro control (otro TextBox, por ejemplo).

Eso funciona bien para mí. Mi código es:

Private Sub TxtNameIn_Click(sender As Object, e As EventArgs) Handles TxtNameIn.MouseClick
Me.TxtNameIn.ReadOnly = False
Me.TxtPatternIn.ReadOnly = True
Me.TxtPatternIn.Text = ""
End Sub
Private Sub TxtPatternIn_Click(sender As Object, e As EventArgs) Handles TxtPatternIn.MouseClick
Me.TxtPatternIn.ReadOnly = False
Me.TxtNameIn.ReadOnly = True
Me.TxtNameIn.Text = ""
End Sub