none
Segundo click en control RRS feed

  • Pregunta

  • Buenas tardes.

    Cuando mi caja de texto recibe el enfoque (mediante tab, click, focus, etc.), hago que su texto se seleccione; pero cuando hago click por segunda vez sobre el (ya estando seleccionado), ya no deseo que se re-seleccione, si no lo contrario....existe alguna forma de controlarlo?

        Private Sub TxtBusca_Seleccionar(sender As Object, e As EventArgs) Handles TxtBusca.Click, TxtBusca.GotFocus
            Me.TxtBusca.SelectAll()
        End Sub

    Saludos.


    martes, 8 de enero de 2019 18:51

Respuestas

  • Dim contador as integer = 0 Private Sub TxtBusca_Seleccionar(sender As Object, e As EventArgs) Handles TxtBusca.Click, TxtBusca.GotFocus constador += 1 if contador = 1 then Me.TxtBusca.SelectAll() else if contador = 2 then Me.TxtBusca.DeselectAll

    contador = 0 end if End Sub

    mira a ver si te funciona saludos y buenos dias
    • Propuesto como respuesta gasgdl2 jueves, 10 de enero de 2019 19:04
    • Marcado como respuesta Edwin Delgado jueves, 10 de enero de 2019 21:18
    jueves, 10 de enero de 2019 18:44

Todas las respuestas

  • Ahora pon un if:

    If Me.TxtBusca.SelectAll = True then 

       '***AQUI LO QUE SE HACE CUANDO ESTA YA SELECCIOANDO

    else

       '***AQUI LO QUE SE HACE CUANDO NO ESTA SELECCIONADO

    endif

    Saludos

    martes, 8 de enero de 2019 19:22
  • Gracias por responder gasgdl2; pero vb me marca un error : La expresion no genera un valor.

    Parece que SelectAll no retorna ningun valor, ni booleano, ni de ningun otro tipo.

    Saludos.

    martes, 8 de enero de 2019 19:33
  • ooops, tienes razon, y si usas el MouseDown? y luego validas si ya hay caracteres en el textBox?

       Private Sub TextBox1_MouseDown(sender As Object, e As MouseEventArgs) Handles TextBox1.MouseDown
                 If TextBox1.Text.Length > 0 Then  'puedes definir cuantos caracteres mínimo debe de haber en el textBox
                    '*** aqui lo que vas a hacer si ya tienes texto en el TextBox1
                Else
                     '*** aqui lo que vas a hacer si NO tienes texto en el TextBox1
                End If
        End Sub

    Saludos

    jueves, 10 de enero de 2019 15:53
  • Dim contador as integer = 0 Private Sub TxtBusca_Seleccionar(sender As Object, e As EventArgs) Handles TxtBusca.Click, TxtBusca.GotFocus constador += 1 if contador = 1 then Me.TxtBusca.SelectAll() else if contador = 2 then Me.TxtBusca.DeselectAll

    contador = 0 end if End Sub

    mira a ver si te funciona saludos y buenos dias
    • Propuesto como respuesta gasgdl2 jueves, 10 de enero de 2019 19:04
    • Marcado como respuesta Edwin Delgado jueves, 10 de enero de 2019 21:18
    jueves, 10 de enero de 2019 18:44
  • Gracias gasgdl2, probé lo ultimo, funciono, gracias.
    jueves, 10 de enero de 2019 21:19