Aggiungere oggetti in una determinata linguetta: differenze tra le versioni

Da Gambas-it.org - Wikipedia.
Vai alla navigazione Vai alla ricerca
Nessun oggetto della modifica
 
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 07:03, 26 ago 2022

Reindirizza a:

Estratto da "https://www.gambas-it.org/wiki/index.php?title=Aggiungere_oggetti_in_una_determinata_linguetta&oldid=31483"