Inserire più linguette ed oggetti via codice: differenze tra le versioni

Da Gambas-it.org - Wikipedia.
Vai alla navigazione Vai alla ricerca
(Nuova pagina: 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 vole...)
 
 
(6 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
  With TabStrip1
<FONT color=#006400>' ''Inseriamo quattro linguette:''</font>
    .Count = 4
<FONT color=#006400>' ''Mostriamo in primo piano la prima linguetta:''</font>
    .Index = 0
  End With
  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)
      .X = 40
      .Y = 100
      .W = 100
      .H = 50
      .Text = "Nuovo tasto " & CStr(j)
    End With
 
  Next
'''End'''

Versione attuale delle 07:05, 26 ago 2022

Reindirizza a:

Estratto da "https://www.gambas-it.org/wiki/index.php?title=Inserire_più_linguette_ed_oggetti_via_codice&oldid=31486"