Differenze tra le versioni di "Aggiungere Controlli su una determinata scheda di una TabStrip successivamente alla sua creazione"

Versione attuale delle 15:38, 30 nov 2023

Il caso è quello in cui si intende inserire uno o più Controlli su una scheda di una TabStrp successivamente alla sua creazione.

Facciamo l'esempio in cui abbiamo una TabStrip, formata da tre schede. Intendiamo inserire, cliccando su un tasto, un Button all'interno della seconda linguetta:

Public Sub Form_Open()

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

' Intesta ciascuna linguetta:
 For b As Byte = 0 To 2
   TabStrip1[b].Text = "Scheda n. " & CStr(b)
 Next

End


Public Sub Button1_Click()

 Dim bt As Button

' Individua la seconda linguetta:
 TabStrip1.Index = 1
   
' Inserisce il "Button" nella linguetta individuata:
 With bt = New Button(TabStrip1) As "tasto"
   .W = 100
   .H = 50
   .X = (TabStrip1.W / 2) - (bt.W / 2)
   .Y = (TabStrip1.H / 2) - (bt.H / 2)
   .Text = "Nuovo tasto"
   .Tag = "seconda"
 End With
 
End


Public Sub tasto_Click() ' Prova il funzionamento del "Button" inserito:

 Me.Title = "Premuto il tasto della " & Last.Tag & " scheda !"

End