Inserire più schede e Controlli in una TabStrip nel momento della sua creazione
Da Gambas-it.org - Wikipedia.
Versione del 30 nov 2023 alle 16:10 di Vuott (Discussione | contributi) (Creata pagina con "Nel seguente esempio viene mostrato come inserire via codice in una ''TabStrip'' due o più schede comprensive di uno o più Controlli al loro interno. <BR>In particolare poni...")
Nel seguente esempio viene mostrato come inserire via codice in una TabStrip due o più schede comprensive di uno o più Controlli al loro interno.
In particolare poniamo il caso di voler inserire quattro schede, e inserire in ciascuna di queste un "Button":
Public Sub Form_Open() Dim b As Byte Dim bt As Button ' Inserisce quattro linguette: TabStrip1.Count = 4 For b = 0 To 3 ' Intesta ciascuna scheda: TabStrip1[b].Text = CStr(b) ' Prende in considerazione la scheda corrente: TabStrip1.Index = b ' Inserisce un "Button" nella linguetta in considerazione: With bt = New Button(TabStrip1) As "tasto" .X = 40 .Y = 100 .W = 100 .H = 50 .Text = "Nuovo tasto " & CStr(b) .Tag = b End With Next ' Infine, mostra in primo piano la prima scheda: TabStrip1.Index = 0 End Public Sub tasto_Click() ' Prova il funzionamento dei "Button" inseriti: Print "Premuto tasto n. " & Last.Tag End