Visualizza wikitesto di 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
 
 <FONT color=gray>' ''Inserisce quattro tabelle nella "TabPanel":''</font>
  TabPanel1.Count = 4
 
  For b = 0 To 3
 <FONT color=gray>' ''Intesta ciascuna tabella:''</font>     
    TabPanel1[b].Text = CStr(b)   <SUP><FONT color=gray>'</font>&#091;[[#Note|nota 1]]&#093;</sup>
 <FONT color=gray>' ''Prende in considerazione la tabella n. b :''</font>
    TabPanel1.Index = b
 <FONT color=gray>' ''Inserisce un "Button" nella tabella in considerazione:''</font>
    With bt = New Button(TabPanel1) As "tasto"
      .X = 40
      .Y = 100
      .W = 100
      .H = 50
      .Text = "Tasto " & CStr(b)
      .Name = .Text
    End With
  Next
 
 <FONT color=gray>' ''Infine mostra in primo piano la prima tabella:''</font>
  TabPanel1.Index = 0
 
 End
 
 
 Public Sub tasto_Click()  <FONT color=gray>' ''Facciamo la prova del funzionamento dei "Button" inseriti:''</font>
 
   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.
<BR>Esempio:
 TabPanel1[''index'']<FONT color=B22222>.RichText = &lt;FONT color=red></font>testo<FONT color=B22222>&lt;/font></font>