Differenze tra le versioni di "Inserire più linguette ed oggetti via codice"
Da Gambas-it.org - Wikipedia.
(Nuova pagina: Per inserire via codice in una ''TabStrip'' due o più linguette comprensive di uno o più oggetti al loro interno, possiamo utilizzare il codice che segue. <BR>Poniamo il caso di vole...) |
|||
| Riga 6: | Riga 6: | ||
Dim bt As Button | Dim bt As Button | ||
| − | |||
<FONT color=#006400>' ''Inseriamo quattro linguette:''</font> | <FONT color=#006400>' ''Inseriamo quattro linguette:''</font> | ||
| − | + | TabStrip.Count = 4 | |
| − | |||
| − | |||
| − | |||
For j = 0 To 3 | For j = 0 To 3 | ||
| + | |||
<FONT color=#006400>' ''Intestiamo ciascuna linguetta:''</font> | <FONT color=#006400>' ''Intestiamo ciascuna linguetta:''</font> | ||
TabStrip1[j].Text = CStr(j) | TabStrip1[j].Text = CStr(j) | ||
| Riga 28: | Riga 25: | ||
Next | Next | ||
| + | |||
| + | <FONT color=#006400>' ''Infine, mostriamo in primo piano la prima linguetta:''</font> | ||
| + | TabStrip1.Index = 0 | ||
'''End''' | '''End''' | ||
Versione delle 04:29, 12 dic 2012
Per inserire via codice in una TabStrip due o più linguette comprensive di uno o più oggetti al loro interno, possiamo utilizzare il codice che segue.
Poniamo il caso di voler inserire quattro linguette, ed in ciascuna di queste un "Button":
Public Sub Form_Open()
Dim j As Byte
Dim bt As Button
' Inseriamo quattro linguette:
TabStrip.Count = 4
For j = 0 To 3
' Intestiamo ciascuna linguetta:
TabStrip1[j].Text = CStr(j)
' Prendiamo in considerazione la linguetta n. j :
TabStrip1.Index = j
' Inseriamo un "Button" nella linguetta in considerazione:
With bt = New Button(TabStrip1)
.X = 40
.Y = 100
.W = 100
.H = 50
.Text = "Nuovo tasto " & CStr(j)
End With
Next
' Infine, mostriamo in primo piano la prima linguetta:
TabStrip1.Index = 0
End
