none
¿Podría alguien explicarme como puedo hacer para que en un textbox tenga por ejemplo, "Buscar". Pero, que lo tenga de fondo? RRS feed

  • Pregunta

  • Es decir, que al momento de dar click sobre el textbox no perjudique la lo que voy a ingresar por el teclado, como si se borrara al instante. les agradecería mucho.
    lunes, 10 de septiembre de 2018 1:19

Respuestas

  • Hola Jose, lo que veo es que necesitas algo similar a esto, para ello lo que necesitas inicialmente es colocar en la propiedad Text "Buscar" y en la propiedad ForeColor seleccionar InaptiveCaptionText luego pega este codigo en el form...

    Public Class Form1
    
        Private Sub TextBox1_Enter(sender As Object, e As EventArgs) Handles TextBox1.Enter
            If TextBox1.Text = "Nombre" Then
                TextBox1.Text = ""
                TextBox1.ForeColor = Color.Black
            End If
        End Sub
    
        Private Sub TextBox1_Leave(sender As Object, e As EventArgs) Handles TextBox1.Leave
            If TextBox1.Text = "" Then
                TextBox1.Text = "Nombre"
                TextBox1.ForeColor = Color.Silver
            End If
        End Sub
    
        Private Sub TextBox2_Enter(sender As Object, e As EventArgs) Handles TextBox2.Enter
            If TextBox2.Text = "Apellido" Then
                TextBox2.Text = ""
                TextBox2.ForeColor = Color.Black
            End If
        End Sub
    
        Private Sub TextBox2_Leave(sender As Object, e As EventArgs) Handles TextBox2.Leave
            If TextBox2.Text = "" Then
                TextBox2.Text = "Apellido"
                TextBox2.ForeColor = Color.Silver
            End If
        End Sub
    
    End Class

    Por favor recuerda "Marcar como respuesta" si te ha servido...



    • Editado Andrés10 lunes, 10 de septiembre de 2018 3:39
    • Marcado como respuesta Jose_Alberto lunes, 10 de septiembre de 2018 15:39
    lunes, 10 de septiembre de 2018 2:34

Todas las respuestas

  • Hola Jose, lo que veo es que necesitas algo similar a esto, para ello lo que necesitas inicialmente es colocar en la propiedad Text "Buscar" y en la propiedad ForeColor seleccionar InaptiveCaptionText luego pega este codigo en el form...

    Public Class Form1
    
        Private Sub TextBox1_Enter(sender As Object, e As EventArgs) Handles TextBox1.Enter
            If TextBox1.Text = "Nombre" Then
                TextBox1.Text = ""
                TextBox1.ForeColor = Color.Black
            End If
        End Sub
    
        Private Sub TextBox1_Leave(sender As Object, e As EventArgs) Handles TextBox1.Leave
            If TextBox1.Text = "" Then
                TextBox1.Text = "Nombre"
                TextBox1.ForeColor = Color.Silver
            End If
        End Sub
    
        Private Sub TextBox2_Enter(sender As Object, e As EventArgs) Handles TextBox2.Enter
            If TextBox2.Text = "Apellido" Then
                TextBox2.Text = ""
                TextBox2.ForeColor = Color.Black
            End If
        End Sub
    
        Private Sub TextBox2_Leave(sender As Object, e As EventArgs) Handles TextBox2.Leave
            If TextBox2.Text = "" Then
                TextBox2.Text = "Apellido"
                TextBox2.ForeColor = Color.Silver
            End If
        End Sub
    
    End Class

    Por favor recuerda "Marcar como respuesta" si te ha servido...



    • Editado Andrés10 lunes, 10 de septiembre de 2018 3:39
    • Marcado como respuesta Jose_Alberto lunes, 10 de septiembre de 2018 15:39
    lunes, 10 de septiembre de 2018 2:34
  • Muchas gracias.

    lunes, 10 de septiembre de 2018 15:40