Da Gambas-it.org - Wikipedia.
|
|
| Riga 1: |
Riga 1: |
| − | Il caso è quello in cui si intende inserire - <SPAN style="text-decoration:underline">in un momento successivo</span> a nostro piacimento - uno o più oggetti via codice <SPAN style="text-decoration:underline">in una</span> linguetta della ''TabStrp''.
| + | #REDIRECT [[Aggiungere oggetti in una determinata linguetta in una TabStrip]] |
| − | | |
| − | | |
| − | Facciamo l'esempio in cui abbiamo una ''TabStrip'', formata da tre linguette. Intendiamo inserire, cliccando su un tasto, un ''Button'' all'interno della seconda linguetta:
| |
| − | '''Public''' Sub Form_Open()
| |
| − |
| |
| − | Dim j As Byte
| |
| − |
| |
| − | With TabStrip1
| |
| − | <FONT color=#006400>' ''Inseriamo tre linguette:''</font>
| |
| − | .Count = 3
| |
| − | <FONT color=#006400>' ''Mostriamo in primo piano la prima linguetta:''</font>
| |
| − | .Index = 0
| |
| − | End With
| |
| − |
| |
| − | <FONT color=#006400>' ''Instestiamo ciascuna linguetta:''</font>
| |
| − | For j = 0 To 2
| |
| − | TabStrip1[j].Text = CStr(j)
| |
| − | Next
| |
| − |
| |
| − | '''End'''
| |
| − |
| |
| − |
| |
| − | '''Public''' Sub Button1_Click()
| |
| − |
| |
| − | Dim bt As Button
| |
| − |
| |
| − | <FONT color=#006400>' ''Individuiamo la seconda linguetta:''</font>
| |
| − | TabStrip1.Index = 1
| |
| − |
| |
| − | <FONT color=#006400>' ''Inseriamo il "Button" nella linguetta individuata:''</font>
| |
| − | With bt = New Button(TabStrip1) As "tasto"
| |
| − | .X = 40
| |
| − | .Y = 100
| |
| − | .W = 100
| |
| − | .H = 50
| |
| − | .Text = "Nuovo tasto"
| |
| − | .Tag = "seconda"
| |
| − | End With
| |
| − |
| |
| − | '''End'''
| |
| − |
| |
| − |
| |
| − | '''Public''' Sub tasto_Click() <FONT color=#006400>' ''Proviamo il funzionamento del "Button" inserito:''</font>
| |
| − |
| |
| − | Print "Premuto il tasto della " & Last.Tag & " linguetta !"
| |
| − |
| |
| − | '''End'''
| |
Versione attuale delle 06:03, 26 ago 2022
