Inserire più linguette ed oggetti via codice: differenze tra le versioni
Vai alla navigazione
Vai alla ricerca
(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...) |
Nessun oggetto della modifica |
||
| 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 05: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