Differenze tra le versioni di "Inserire più schede e Controlli in una TabStrip nel momento della sua creazione"
Da Gambas-it.org - Wikipedia.
(Creata pagina con "Nel seguente esempio viene mostrato come inserire via codice in una ''TabStrip'' due o più schede comprensive di uno o più Controlli al loro interno. <BR>In particolare poni...") |
|||
| Riga 6: | Riga 6: | ||
Dim bt As Button | Dim bt As Button | ||
| − | <FONT color= | + | <FONT color=gray>' ''Inserisce quattro schede:''</font> |
TabStrip1.Count = 4 | TabStrip1.Count = 4 | ||
For b = 0 To 3 | For b = 0 To 3 | ||
| − | <FONT color= | + | <FONT color=gray>' ''Intesta ciascuna scheda:''</font> |
TabStrip1[b].Text = CStr(b) | TabStrip1[b].Text = CStr(b) | ||
| − | <FONT color= | + | <FONT color=gray>' ''Prende in considerazione la scheda corrente:''</font> |
TabStrip1.Index = b | TabStrip1.Index = b | ||
| − | <FONT color= | + | <FONT color=gray>' ''Inserisce un "Button" nella linguetta in considerazione:''</font> |
With bt = New Button(TabStrip1) As "tasto" | With bt = New Button(TabStrip1) As "tasto" | ||
.X = 40 | .X = 40 | ||
| Riga 26: | Riga 26: | ||
Next | Next | ||
| − | <FONT color= | + | <FONT color=gray>' ''Infine, mostra in primo piano la prima scheda:''</font> |
TabStrip1.Index = 0 | TabStrip1.Index = 0 | ||
| Riga 32: | Riga 32: | ||
| − | Public Sub tasto_Click() <FONT color= | + | Public Sub tasto_Click() <FONT color=gray>' ''Prova il funzionamento dei "Button" inseriti:''</font> |
Print "Premuto tasto n. " & Last.Tag | Print "Premuto tasto n. " & Last.Tag | ||
End | End | ||
Versione attuale delle 16:12, 30 nov 2023
Nel seguente esempio viene mostrato come inserire via codice in una TabStrip due o più schede comprensive di uno o più Controlli al loro interno.
In particolare poniamo il caso di voler inserire quattro schede, e inserire in ciascuna di queste un "Button":
Public Sub Form_Open()
Dim b As Byte
Dim bt As Button
' Inserisce quattro schede:
TabStrip1.Count = 4
For b = 0 To 3
' Intesta ciascuna scheda:
TabStrip1[b].Text = CStr(b)
' Prende in considerazione la scheda corrente:
TabStrip1.Index = b
' Inserisce un "Button" nella linguetta in considerazione:
With bt = New Button(TabStrip1) As "tasto"
.X = 40
.Y = 100
.W = 100
.H = 50
.Text = "Nuovo tasto " & CStr(b)
.Tag = b
End With
Next
' Infine, mostra in primo piano la prima scheda:
TabStrip1.Index = 0
End
Public Sub tasto_Click() ' Prova il funzionamento dei "Button" inseriti:
Print "Premuto tasto n. " & Last.Tag
End
