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.