Inserire tabelle ed oggetti all'interno di una TabPanel

Vediamo di seguito un possibile codice per inserire via codice in una TabPanel due o più tabelle comprensive di uno o più oggetti al loro interno.

Poniamo il caso di voler inserire quattro tabelle, ed in ciascuna di queste un Button:

Public Sub Form_Open()

 Dim b As Byte
 Dim bt As Button

' Inserisce quattro tabelle nella "TabPanel":
 TabPanel1.Count = 4

 For b = 0 To 3
' Intesta ciascuna tabella:     
   TabPanel1[b].Text = CStr(b)   '[nota 1]
' Prende in considerazione la tabella n. b :
   TabPanel1.Index = b
' Inserisce un "Button" nella tabella in considerazione:
   With bt = New Button(TabPanel1) As "tasto"
     .X = 40
     .Y = 100
     .W = 100
     .H = 50
     .Text = "Tasto " & CStr(b)
     .Name = .Text
   End With
 Next

' Infine mostra in primo piano la prima tabella:
 TabPanel1.Index = 0

End


Public Sub tasto_Click()  ' Facciamo la prova del funzionamento dei "Button" inseriti:

  Print "Premuto: " & Last.Name

End

Note

[1] Per poter colorare i caratteri dell'intestazione delle tabelle, è necessario utilizzare la Proprietà ".RichText" ed i tag HTML.
Esempio:

TabPanel1[index].RichText = <FONT color=red>testo</font>