Inserire più linguette ed oggetti via codice: differenze tra le versioni
Vai alla navigazione
Vai alla ricerca
Nessun oggetto della modifica |
Nessun oggetto della modifica |
||
| Riga 1: | Riga 1: | ||
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. | 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 voler inserire quattro linguette, ed in ciascuna di queste un "''Button''": | <BR>Poniamo il caso di voler inserire quattro linguette, ed in ciascuna di queste un "''Button''": | ||
'''Public''' Sub Form_Open() | '''Public''' Sub Form_Open() | ||
Dim j As Byte | Dim j As Byte | ||
Dim bt As Button | |||
<FONT color=#006400>' ''Inseriamo quattro linguette:''</font> | <FONT color=#006400>' ''Inseriamo quattro linguette:''</font> | ||
Versione delle 05:38, 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) 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 linguetta:
TabStrip1.Index = 0
End
Public Sub tasto_Click() ' Facciamo la prova del funzionamento dei "Button" inseriti:
Print "Premuto tasto n. " & Last.Tag
End