none
Manejar controles en tiempo de ejecucion RRS feed

  • Pregunta

  • Hola amigos, por aquí de nuevo para que me saquéis de un pequeño atasco.

    Para hacerlo lo mas simple posible, si me decís como hacer lo siguiente yo ya lo adaptare a mis necesidades.

    El siguiente código crea un botón y un textbox en tiempo de ejecución.

     Dim boton As New Button, cajaTexto As New TextBox
            AddHandler boton.Click, AddressOf CambiarTexto
            Me.Controls.Add(boton)
            Me.Controls.Add(cajaTexto)
            cajaTexto.Location = New Point(100, 0)

    Lo que busco hacer es que al pulsar sobre el botón, en el manejador de evento (botón_click) cambie el texto del textbox.

    Gracias y saludos a todos.

    miércoles, 20 de enero de 2016 18:48

Respuestas

  • Deberías declarar la variable cajaTexto a nivel de formulario para que el controlador del evento click del botón pueda acceder a ella:

        Private cajaTexto As TextBox
    
        Private Sub Prueba()
            Dim boton As New Button, cajaTexto = New TextBox
            AddHandler boton.Click, AddressOf CambiarTexto
            Me.Controls.Add(boton)
            Me.Controls.Add(cajaTexto)
            cajaTexto.Location = New Point(100, 0)
        End Sub
    
        Private Sub CambiarTexto(sender As Object, e As EventArgs)
            cajaTexto.Text = "Texto cambiado"
        End Sub
    


    Píldoras .NET
    Artículos, tutoriales y ejemplos de código .NET

    Píldoras JS
    Artículos, tutoriales y ejemplos de código JavaScript, HTML5, CSS3, ...

    • Marcado como respuesta DiegC miércoles, 20 de enero de 2016 20:27
    miércoles, 20 de enero de 2016 19:40

Todas las respuestas

  • Deberías declarar la variable cajaTexto a nivel de formulario para que el controlador del evento click del botón pueda acceder a ella:

        Private cajaTexto As TextBox
    
        Private Sub Prueba()
            Dim boton As New Button, cajaTexto = New TextBox
            AddHandler boton.Click, AddressOf CambiarTexto
            Me.Controls.Add(boton)
            Me.Controls.Add(cajaTexto)
            cajaTexto.Location = New Point(100, 0)
        End Sub
    
        Private Sub CambiarTexto(sender As Object, e As EventArgs)
            cajaTexto.Text = "Texto cambiado"
        End Sub
    


    Píldoras .NET
    Artículos, tutoriales y ejemplos de código .NET

    Píldoras JS
    Artículos, tutoriales y ejemplos de código JavaScript, HTML5, CSS3, ...

    • Marcado como respuesta DiegC miércoles, 20 de enero de 2016 20:27
    miércoles, 20 de enero de 2016 19:40
  • Gracias Asier.

    miércoles, 20 de enero de 2016 20:28