Come far scatenare un Evento di un Controllo "creato" da codice ?

[vuott]

https://forum.gambas.one/viewtopic.php?f=15&t=1100

[Gianluigi]

E non dimentichiamoci di Last

Codice: [Seleziona]

Private aButton[20] As Button

Public Sub Form_Open()

  Dim hVbox As VBox
  Dim i As Integer

  Me.Arrangement = Arrange.Horizontal
  Me.Margin = True
  Me.Spacing = True
  hVbox = New VBox(Me)
  hVbox.Expand = True
  hVbox.Spacing = True
  For i = 0 To 9
    aButton[i] = New Button(hVbox) As "Buttongroup"
    aButton[i].Text = "Bottone " & CStr(i + 1)
    aButton[i].Height = 40
  Next
  hVbox = New VBox(Me)
  hVbox.Expand = True
  hVbox.Spacing = True
  For i = 10 To 19
    aButton[i] = New Button(hVbox) As "Buttongroup"
    aButton[i].Text = "Bottone " & CStr(i + 1)
    aButton[i].Height = 40
  Next

End

Public Sub Buttongroup_Click()

  Message.Info("Hai agito sul pulsante " & Last.Text)

End