Italian Array di Label

AlpVir

Well-Known Member
Licensed User
Longtime User
Fosse mi perdo in un bicchiere d'acqua. Col VB6 la soluzione sarebbe stata immediata ma qui ...
Ho una serie di Label
Etich(0).text = "Pinco"
Etich(1).text = "Pallino"
Etich(2).text = "Tizio"
posizionate in modo irregolare sullo schermo
Io vorrei "cliccare" su una di queste etichette e mi dovrebbe apparire un MsgBox con scritto il nome dell'individuo scelto.
In VB6 avrei scritto qualcosa del genere
Sub Etich_Click(index as integer)
msgbox Etich(Index)
end sub
Grazie per l'attenzione
 

LordZenzo

Well-Known Member
Licensed User
Longtime User
io uso questa routine in un mio programma e funziona

Sub GGclick_Click
Dim B As Label
B = Sender
GiornoClick(B.tag,1,"g")
End Sub

GiornoClick è una routine che ho creato io per mio comodo perche viene richiamata anche da altre routine
la routine GGclick_Click è l'evento click di tutte le label a cui ho assegnato come nome evento (Event Name) GGclick
 
Top