Aggiungere Controlli su una determinata scheda di una TabStrip successivamente alla sua creazione
Da Gambas-it.org - Wikipedia.
Versione del 30 nov 2023 alle 15:36 di Vuott (Discussione | contributi) (Creata pagina con "Il caso è quello in cui si intende inserire - <SPAN style="text-decoration:underline">in un momento successivo</span> a nostro piacimento - uno o più Controlli via codice <S...")
Il caso è quello in cui si intende inserire - in un momento successivo a nostro piacimento - uno o più Controlli via codice su 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() 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