none
como pasar datos de un textbox a un label

Respuestas

  • Hola Jhon Douglas,

    Tendrías que hacer uso del evento KeyPress de tu TextBox.

      Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
            If e.KeyChar = Convert.ToChar(Keys.Enter) Then
                Label1.Text = TextBox1.Text
            End If
        End Sub

    Saludos.


    JC NaupaCrispín
    Lima - Perú

    La magia no existe, la programación SI

    lunes, 12 de septiembre de 2016 23:29

Todas las respuestas

  • Hola Jhon Douglas,

    Tendrías que hacer uso del evento KeyPress de tu TextBox.

      Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
            If e.KeyChar = Convert.ToChar(Keys.Enter) Then
                Label1.Text = TextBox1.Text
            End If
        End Sub

    Saludos.


    JC NaupaCrispín
    Lima - Perú

    La magia no existe, la programación SI

    lunes, 12 de septiembre de 2016 23:29
  • Muchas Gracias por tu respuesta funciona a la perfeccion
    lunes, 12 de septiembre de 2016 23:45
  • Hola Jhon Douglas,

    También pudiste usar :

     Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
            Dim txt As TextBox = DirectCast(sender, TextBox)
            'Valido si hay texto en el TextBox
            If txt.Text.Trim() <> String.Empty Then
                If Asc(e.KeyChar) = 13 Then
                    Label1.Text = txt.Text
                End If
            End If
        End Sub

    Dónde 13 representa el valor del Enter y <> significa "no es".

    Si el TextBox está vacío, presionar enter pero no sucede nada, ya que validas que tenga por lo menos un dato para recién cambiar de texto al label, eso queda a decisión tuya.

    Saludos.


    JC NaupaCrispín
    Lima - Perú

    La magia no existe, la programación SI

    lunes, 12 de septiembre de 2016 23:52