Differenze tra le versioni di "Aggiungere oggetti in una determinata linguetta"

Da Gambas-it.org - Wikipedia.
Riga 15: Riga 15:
 
   
 
   
 
  <FONT color=#006400>' ''Individuiamo la seconda linguetta:''</font>
 
  <FONT color=#006400>' ''Individuiamo la seconda linguetta:''</font>
   TabStrp1.Index = 2
+
   TabStrip1.Index = 1
 
      
 
      
 
     With bt = New Button(TabStrip1)
 
     With bt = New Button(TabStrip1)

Versione delle 05:00, 12 dic 2012

Il caso è quello in cui si intende inserire uno o più oggetti via codice in una linguetta della TabStrp.


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()

 TabStrip1.Count = 3

End


Public Sub Button1_Click()

 Dim bt As Button

' Individuiamo la seconda linguetta:
  TabStrip1.Index = 1
   
   With bt = New Button(TabStrip1)
     .X = 40
     .Y = 100
     .W = 100
     .H = 50
     .Text = "Nuovo tasto"
   End With
 
End