Da Gambas-it.org - Wikipedia.
|
|
| (4 versioni intermedie di uno stesso utente non sono mostrate) |
| 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.
| + | #REDIRECT [[Inserire più linguette ed oggetti via codice in una TabStrip]] |
| − | <BR>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
| |
| − |
| |
| − | <FONT color=#006400>' ''Inseriamo quattro linguette:''</font>
| |
| − | TabStrip.Count = 4
| |
| − |
| |
| − | For j = 0 To 3
| |
| − |
| |
| − | <FONT color=#006400>' ''Intestiamo ciascuna linguetta:''</font>
| |
| − | TabStrip1[j].Text = CStr(j)
| |
| − | <FONT color=#006400>' ''Prendiamo in considerazione la linguetta n. j :''</font>
| |
| − | TabStrip1.Index = j
| |
| − | <FONT color=#006400>' ''Inseriamo un "Button" nella linguetta in considerazione:''</font>
| |
| − | 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
| |
| − |
| |
| − | <FONT color=#006400>' ''Infine, mostriamo in primo piano la prima linguetta:''</font>
| |
| − | TabStrip1.Index = 0
| |
| − |
| |
| − | '''End'''
| |
| − |
| |
| − |
| |
| − | '''Public Sub tasto_Click()
| |
| − |
| |
| − | Print "Premuto tasto n. " & tasto.Tag
| |
| − |
| |
| − | '''End'''
| |
Versione attuale delle 06:05, 26 ago 2022
