Differenze tra le versioni di "Inserire più linguette ed oggetti via codice"
Da Gambas-it.org - Wikipedia.
| 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
