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

Versione delle 05:11, 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 in un momento successivo a nostro piacimento, cliccando su un tasto, un Button all'interno della seconda linguetta:

Public Sub Form_Open()

 Dim j As Byte

  With TabStrip1
' Inseriamo tre linguette:
    .Count = 3
' Mostriamo in primo piano la prima linguetta:
    .Index = 0
  End With

' Instestiamo ciascuna linguetta:
  For j = 0 To 2
    TabStrip1[j].Text = CStr(j)
  Next

End


Public Sub Button1_Click()

 Dim bt As Button

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