Evento clic de un boton creado por codigo

Gracias a todos por sus aportes, me sirvió de mucho. Aunque voy a ver cómo
le hago por ejemplo si presiono el boton 1, que se ejecute el click del
boton 1, si presiono el boton 2 se ejecute el click del boton 2, ya que
necesito enviar parámetros diferentes a otro formulario. Hasta el momento se
ejecuta el click para todos los botones. Gracias nuevamente.


Sta Cruz, Bolivia
"Bernardo Campos" wrote in message
news:

Gracias Carlos por tu sugerencia, pero me sigue sin funcionar por ejemplo,
tengo el siguiente código en el Load del form

' en el Load
dim b as new button
b.name = "Mesa1"
me.controls.add(b)

'y una vez en ejecucion el formulario quiero que se ejecute el evento clic
del boton añadido. he hice como me indicaste:

Private Sub Mesa1_Click(ByVal sender as Object, ByVal e as
System.EventArgs)
msgbox("hola")
End Sub

pero esto ultimo no ejecuta.








Sta Cruz, Bolivia
"Carlos Gómez" wrote in message
news:
> > for i = 1 to 10
> > dim b as new button
> > group.controls.add(b)
> AddHandler b.Click, AddressOf Boton_Click
> > next
>
> Private Sub Boton_Click(ByVal sender as Object, ByVal e as
> System.EventArgs)
>
> End Sub
>
>
> >
> > una vez creados y adicionados a un group, quiero que el usuario al
> > presionar
> > click en un boton creado dinamicamente, se abra otro formulario, pero

no

> > se
> > cómo podria llamar al evento click.gracias de antemano.
> >
> >
> >
> >
> > Sta Cruz, Bolivia
> >
> >
>
>

"Bernardo Campos" wrote in message
news:

Gracias a todos por sus aportes, me sirvió de mucho. Aunque voy a ver cómo
le hago por ejemplo si presiono el boton 1, que se ejecute el click del
boton 1, si presiono el boton 2 se ejecute el click del boton 2, ya que
necesito enviar parámetros diferentes a otro formulario. Hasta el momento

se

ejecuta el click para todos los botones. Gracias nuevamente.

Observa la rutina del evento:

Private Sub Mesa1_Click(ByVal sender as Object, ByVal e as System.EventArgs)

El parámetro "sender" te dice cuál es el botón que ha disparado la rutina.
Puedes sacarlo asi:
Dim b as Button = CType(sender, Button)
If b.Name="Mesa1" Then ...

Era exactamente lo que quería. Te agradezco mucho compañero. Saludos...



Sta Cruz, Bolivia

"A.Poblacion" wrote in
message news:

"Bernardo Campos" wrote in message
news:
> Gracias a todos por sus aportes, me sirvió de mucho. Aunque voy a ver

cómo

> le hago por ejemplo si presiono el boton 1, que se ejecute el click del
> boton 1, si presiono el boton 2 se ejecute el click del boton 2, ya que
> necesito enviar parámetros diferentes a otro formulario. Hasta el

momento

se
> ejecuta el click para todos los botones. Gracias nuevamente.

Observa la rutina del evento:

Private Sub Mesa1_Click(ByVal sender as Object, ByVal e as

System.EventArgs)

El parámetro "sender" te dice cuál es el botón que ha disparado la rutina.
Puedes sacarlo asi:
Dim b as Button = CType(sender, Button)
If b.Name="Mesa1" Then ...