« Risposta #1 il: 27 Aprile 2021, 18:54:11 »
E non dimentichiamoci di
LastPrivate 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
Registrato
nuoto in attesa del bacio di una principessa che mi trasformi in un gambero azzurro