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 j As Byte
 Dim bt As Button

' Inseriamo quattro tabelle-Panel:
  TabPanel1.Count = 4

  For j = 0 To 3

' Intestiamo ciascuna tabella:     
    TabPanel1[j].Text = CStr(j)   '[Nota 1]
' Prendiamo in considerazione la tabella n. j :
    TabPanel1.Index = j
' Inseriamo un "Button" nella tabella in considerazione:
    With bt = New Button(TabPanel1) As "tasto"
      .X = 40
      .Y = 100
      .W = 100
      .H = 50
      .Text = "Nuovo tasto " & CStr(j)
      .Tag = j
    End With
 
  Next

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

End


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

  Print "Premuto tasto n. " & Last.Tag

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>