Aggiungere oggetti in una determinata linguetta

Da Gambas-it.org - Wikipedia.

Il caso è quello in cui si intende inserire - in un momento successivo a nostro piacimento - uno o più oggetti via codice in una linguetta della TabStrp.


Facciamo l'esempio in cui abbiamo una TabStrip, formata da tre linguette. Intendiamo inserire, cliccando su un tasto, un Button all'interno della seconda linguetta:

Public Sub Form_Open()

 Dim j As Byte

  With TabStrip1
' Inseriamo tre linguette:
    .Count = 3
' Mostriamo in primo piano la prima linguetta:
    .Index = 0
  End With

' Instestiamo ciascuna linguetta:
  For j = 0 To 2
    TabStrip1[j].Text = CStr(j)
  Next

End


Public Sub Button1_Click()

 Dim bt As Button

' Individuiamo la seconda linguetta:
  TabStrip1.Index = 1
   
' Inseriamo il "Button" nella linguetta individuata:
   With bt = New Button(TabStrip1) As "tasto"
     .X = 40
     .Y = 100
     .W = 100
     .H = 50
     .Text = "Nuovo tasto"
     .Tag = "1"
   End With
 
End


Public Sub tasto_Click()

  Print "Premuto tasto n. " & Last.Tag

End