Differenze tra le versioni di "Inserire tabelle ed oggetti all'interno di una TabPanel"
Da Gambas-it.org - Wikipedia.
Riga 2: | Riga 2: | ||
Poniamo il caso di voler inserire quattro tabelle, ed in ciascuna di queste un ''Button'': | Poniamo il caso di voler inserire quattro tabelle, ed in ciascuna di queste un ''Button'': | ||
− | + | Public Sub Form_Open() | |
− | Dim | + | Dim b As Byte |
Dim bt As Button | Dim bt As Button | ||
− | <FONT color=gray>' '' | + | <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>[[[#Note|nota 1]]]</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>' '' | + | <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 | |
− | |||
− | |||
Versione attuale delle 12:50, 19 mag 2024
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>