Acceder a eventos desde código. - VB .NET

[emma93]

Hola, quería ver si me podrían ayudar en el siguiente problema:

' Tengo un proyecto hecho en Vb .net, donde creo un Textbox mediante código, y lo aplico al formulario '

Iniciado por Código

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim textbox1 As New TextBox
textbox1.Height = 100
textbox1.Width = 100
textbox1.Top = 50
textbox1.Left = 50
Me.Controls.Add(textbox1)
End Sub

Por ejemplo, si yo quiero poner una acción, que cuando en el Textbox se haga un click salte un Msgbox() Como hago?

Yo puedo hacerlo a esto, cuando el control se inserta en el formulario manualmente. Pero el control lo quiero insertar por código, y no se como acceder a sus eventos.

Espero que me puedan ayudar.

Saludos.-

[Dradi7]

Para esto debes crear el evento del propio control
Ejm:

AddHandler TextBox1.Click, AddressOf Txt_Click

y luego creas un proc asociado al AddressOf

Sub Txt_Click(ByVal Sender As Object, ByVal e As System.EventArgs)

' Aqui codigo a desarrollar

End Sub

[emma93]

Me impresionó tu respuesta. Rapidisima!!

Tengo un error, al querer hacer esto, me tira el siguiente error:

Error 1 El operando de 'AddressOf' debe ser el nombre de un método (sin paréntesis).

Espero que tengas solución, un abrazo :)

[David]

Probablemente no le estás pasando un método válido a AddressOf. Muéstranos cómo lo estás intentando.

[emma93]

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim textbox1 As New TextBox
textbox1.Height = 100
textbox1.Width = 100
textbox1.Top = 50
textbox1.Left = 50
Me.Controls.Add(textbox1)
AddHandler textbox1.Click, AddressOf txt_click
End Sub

No está bien asi?

[David]

La función txt_click, ¿está definida?

[emma93]

No puedo creer haber sido tan olvidadizo.

Jajaja, mil disculpas, y gracias por todo a los dos! :)

Por si alguien quiere les dejo un ejemplo por si alguna vez tienen la misma duda:

Private Sub btn_Click(ByVal sender As Object, ByVal e As EventArgs)
MessageBox.Show("btn_Click method", "Events Demonstration")
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim btn As Button
btn = New Button()
btn.Location = New Point(50, 50)
btn.Text = "Test"

Controls.Add(btn)
AddHandler btn.Click, AddressOf btn_Click
End Sub