Ver Mensaje Individual
  #1 (permalink)  
Antiguo 05/04/2012, 11:00
Avatar de freddwar
freddwar
 
Fecha de Ingreso: noviembre-2011
Mensajes: 2
Antigüedad: 13 años
Puntos: 1
Asignar subprocedimientos a controles creados en tiempo de ejecución

Hola a todos estoy creando una aplicación donde estoy creando un groupbox por cada registro traido de una base de datos y necesito asignarle muchos eventos a cada uno. Necesito que me expliquen por favor como hacerlo con al menos uno sencillo. Deseo que al pasar el mouse por un grupo éste cambie el color de fondo y al quitar el mouse de encima vuelva a su estado normal. Esto con todos. Esto es lo que llevo:

Código:
    Dim Grupo As GroupBox

    Private Sub CrearFormuluario()

        Dim daCand As New MySqlDataAdapter("SELECT * FROM tbCandidatos where CanYear='2012'", con)
        Dim dtCand As New DataTable

        daCand.Fill(dtCand)

        Dim posx = 10
        Dim posy = 50
        frmVotar = New Form

        For i = 0 To dtCand.Rows.Count - 1

            Grupo = New GroupBox
            Grupo.Name = "MyGrupo" & i
            Grupo.Top = posy
            Grupo.Left = posx
            Grupo.BackColor = Color.AliceBlue

            Dim lbNombreCand As New Label
            lbNombreCand.Top = 50
            lbNombreCand.Left = posx
            lbNombreCand.Text = dtCand.Rows(i).Item("CanNombre") & "  " & dtCand.Rows(i).Item("CanApellido")

            Grupo.Controls.Add(lbNombreCand)

            AddHandler Grupo.MouseMove, AddressOf Grupo_Move
            AddHandler Grupo.MouseLeave, AddressOf Grupo_Out
            AddHandler lbNombreCand.MouseMove, AddressOf Grupo_Move
            AddHandler lbNombreCand.MouseLeave, AddressOf Grupo_Out

            frmVotar.Controls.Add(Grupo)
            posy += 110
        Next

        frmVotar.Show()

    End Sub


    Private Sub Grupo_Move()
        Grupo.BackColor = Color.White
    End Sub

    Private Sub Grupo_Out()
        Grupo.BackColor = Color.AliceBlue
    End Sub
Desde ya muchas gracias por su ayuda, la verdad también necesito que al darle clic se guarde un registro del candidato por el cual votó el usuario, ojalá me puedan echar una manita pues el código que les muestro solo sirve con el último groupbox, y si le paso el mouse a otro gruopbox, igual cambia es el último.