Buon Giorno a tutti quanti....
Avrei un favore da chiedervi sto facendo un lavoro con visual studio 2008 e il problema che mi si pone è quanto segue
ho 13 label rinominate lb1, lb2, lb3,.....lb13...
le ho inserite tutte e 13 dentro un groupbox (per fare in modo che non debba scrivere tanto codice) c'è una soluzione che quando passo sopra con il mouse backcolor da green diventa blu.... e quando mi sposto torna green??
Grazie a Tutti...

Ciao,
quando si scatena l'evento al passaggio del mouse puoi eseguire un ciclo all'interno della collections dei controlli presenti nella groupbox. Se identifichi una label poi le cambi il colore.

Andrea

con il mouse backcolor da green diventa blu.... e quando mi sposto torna green??

Ho fatto prima a scriverti un progettino con l'esempio...
HTH
Alberto.

Ho fatto prima a scriverti un progettino con l'esempio

Benissimo ma al Capitano Archer non piacciono gli esempi completi

Andrea

Benissimo ma al Capitano Archer non piacciono gli esempi completi

Allora digli che lo passi a Kirk...

a me si però :-)) siete stati più rapidi di non so cosa:-)) lavorate a cottimo?? :-))
grazie Ragazzi.....
posso chiederVi ancora una cosa?? :-(
e siccome mi servirà anche più avanti che quando ci clicco sopra mi cambia il forecolor.... io nella mia ignoranza e seguendo quello che mi Hai postato Tu ho aggiunto
AddHandler ctr.MouseEnter, AddressOf lb_Enter
AddHandler ctr.MouseLeave, AddressOf lb_MouseLeave
AddHandler ctr.Click, AddressOf Lb_Click----- questo
poi Private Sub Lb_Click--------qui devo mettere:
If lb.ForeColor = Color.Silver Then
lb.ForeColor = Color.Red????
xche non mi va mi segna come errore LB... ma anche se metto Label uguale....
Grazie Ragazzi anche della velocità :-))

xche non mi va mi segna come errore LB... ma anche se metto Label uguale....

sostituisci il codice che ti ho invito all'interno del form con questo:

Public Class Form1

Private Sub Form1_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
For Each ctr As Control In Me.GroupBox1.Controls
If TypeOf ctr Is Label Then
AddHandler ctr.MouseEnter, AddressOf Label_MouseEnter
AddHandler ctr.MouseLeave, AddressOf Label_MouseLeave
AddHandler ctr.Click, AddressOf Label_Click
ctr.BackColor = Color.Green
ctr.ForeColor = Color.Red
End If
Next
End Sub


Private Sub Label_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs)
DirectCast(sender, Label).BackColor = Color.Blue
End Sub

Private Sub Label_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs)
DirectCast(sender, Label).BackColor = Color.Green
End Sub

Private Sub Label_Click(ByVal sender As Object, ByVal e As System.EventArgs)
If DirectCast(sender, Label).ForeColor <> Color.Silver Then
DirectCast(sender, Label).ForeColor = Color.Silver
Else
DirectCast(sender, Label).ForeColor = Color.Red
End If
End Sub
End Class


HTH
Alberto.

Grazie Mille :-)) a me come Ovvia la cosa non funzionava :-)) scusa un ultima cosa se non Ti disturbo... io facevo cosi
If DirectCast(sender, Label).ForeColor. Color.Silver Then
DirectCast(sender, Label).ForeColor = Color.red
elseif DirectCast(sender, Label).ForeColor. Color.red Then
DirectCast(sender, Label).ForeColor = Color.silver
e non c'era verso di andare...((( anche se diverso e non funzionante dal Tuo all'incisca la cosa non è uguale???

Mille Grazie della Cortesia.... e scusatemi se sono molto inchiappato :-))

che Idiota :-((((
ForeColor. Color.Silver
ForeColor = Color.Silver......
Grazie Ragazzi Scusatemi ancora :-)))