...usando Last.
Nell'esempio che segue, poniamo su un Form quattro oggetti (un Button, un ToggleButton, un CheckBox ed un RadioButton) e li accomuniamo ad un identico Gruppo di eventi:
Public Sub Form_Open()
Object.Attach(Button1, Me, "gruppo")
Object.Attach(ToggleButton1, Me, "gruppo")
Object.Attach(CheckBox1, Me, "gruppo")
Object.Attach(RadioButton1, Me, "gruppo")
End
Public Sub gruppo_Click()
Print Last.Name
End
Private hButton[4] As Button
Public Sub form_Open()
Dim i As Integer
Me.Center
For i = 1 To 3
hButton[i] = New Button(Me) As "MioBottone"
With hButton[i]
.X = i * 50
.Y = 50
.Width = 40
.Height = 40
.Text = i
End With
Next
End
Public Sub MioBottone_Click()
Print Last.Text
End
come si dovrebbe fare per distinguerli se nel tuo esempio avessimo due oggetti dello stesso tipo?
Non cambia niente sostanzialmente: una proprietà che li distingue è senz'altro il nome, che viene assegnato automaticamente quando gli oggetti vengono posizionati sul Form:
Public Sub Form_Open()
Object.Attach(Button1, Me, "gruppo")
Object.Attach(Button2, Me, "gruppo")
Object.Attach(Button3, Me, "gruppo")
Object.Attach(Button4, Me, "gruppo")
End
Public Sub gruppo_Click()
Print Last.Name
End
Non farci/fateci caso... è il caldo almeno spero. La domanda scema la lascio come monito a me stesso: Prima di parlare e scrivere occorre accendere il cervello
Hai deciso di far fare tutto a me ! :violent:
Il tuo dubbio avresti potuto eliminarlo agevolmente da te facendo le prove.