Foro de elhacker.net

Buenas

Bueno, resulta que cuando NO tengo ni la menor idea como crearle un evento a un control creado por code...
me explico mejor, tengo esto:

public sub newControl(nomctrl as string)
   dim control as panel= new panel
   panel.name=nomctrl
   panel.left=0
   panel.text=nomctrl
  me.control.add(panel)
 

bueno algo asi tengo para crear con una funcion varios controles en tiempo de ejecucion, per lo que no no se es como crearle un evento como:

control_click(byval sender .... bla bla)

si alguien sabe como hacerle eventos a controles hechos en por code le agrezco el aporte... gracias.

Dim Contador As integer
Dim bcolor As New Random()
 
Public Sub newControl(ByVal nomctrl As String)
   Dim pan As Panel= new Panel
   pan.name=nomctrl
   pan.left= Contador * 60 ' Para que no se pongan uno encima de otro
   Contador += 1
   pan.BackColor = Color.FromArgb(bcolor.Next(0, Int32.MaxValue)) ' Color Aleatorio para diferenciarlo
   pan.text=nomctrl
   Me.control.add(pan)
 
  ' Esta linea es la que agrega el evento, debes tomar en cuenta que hay eventos especiales
  ' ejemplo: OnPaint tiene como clase PaintEventHandler, eso debes averiguarlo por ti mismo ;-)
   AddHandler pan.Click, New EventHandler(AddressOf panel_Click) 
End Sub
 
'' Form_Load
newControl("panel1")
newControl("panel2")
' ...........
 
Public Sub panel_Click(sender as object, e as EventArgs) 
    Dim p as panel = Ctype(sender, TypeOf(panel))
    Select Case p.Name
          Case "panel1": MsgBox("Hiciste click en el panel 1")
          Case "panel2": MsgBox("Hiciste click en el panel 2")
     End Select
End Sub
 

Hay tenes como agregarlo, y si agregas mas de uno por el mismo codigo, en el "panel_Click" tenes como identificarlos

Muchas gracias por el code es de mucha ayuda...
gracias....