Inserire tabelle ed oggetti all'interno di una TabPanel
Da Gambas-it.org - Wikipedia.
Versione del 20 mag 2016 alle 01:03 di Vuott (Discussione | contributi) (Creata pagina con "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 vo...")
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) |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>