Differenze tra le versioni di "Inserire più linguette ed oggetti via codice"

Da Gambas-it.org - Wikipedia.
(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 06: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"