Differenze tra le versioni di "Inserire tabelle ed oggetti all'interno di una TabPanel"
Da Gambas-it.org - Wikipedia.
(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...") |
|||
| Riga 13: | Riga 13: | ||
<FONT color=gray>' ''Intestiamo ciascuna tabella:''</font> | <FONT color=gray>' ''Intestiamo ciascuna tabella:''</font> | ||
| − | TabPanel1[j].Text = CStr(j) | + | TabPanel1[j].Text = CStr(j) <SUP><FONT color=gray>'</font>[[[#Note|Nota 1]]]</sup> |
<FONT color=gray>' ''Prendiamo in considerazione la tabella n. j :''</font> | <FONT color=gray>' ''Prendiamo in considerazione la tabella n. j :''</font> | ||
TabPanel1.Index = j | TabPanel1.Index = j | ||
| Riga 39: | Riga 39: | ||
'''End''' | '''End''' | ||
| − | |||
=Note= | =Note= | ||
| − | [1] Per poter colorare i caratteri dell'intestazione delle tabelle, è necessario utilizzare la | + | [1] Per poter colorare i caratteri dell'intestazione delle tabelle, è necessario utilizzare la Proprietà ".RichText" ed i tag HTML. |
<BR>Esempio: | <BR>Esempio: | ||
TabPanel1[''index'']<FONT color=B22222>.RichText = <FONT color=red></font>testo<FONT color=B22222></font></font> | TabPanel1[''index'']<FONT color=B22222>.RichText = <FONT color=red></font>testo<FONT color=B22222></font></font> | ||
Versione attuale delle 16:51, 27 mag 2022
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>
