Differenze tra le versioni di "Inserire tabelle ed oggetti all'interno di una TabPanel"

Da Gambas-it.org - Wikipedia.
 
Riga 2: Riga 2:
  
 
Poniamo il caso di voler inserire quattro tabelle, ed in ciascuna di queste un ''Button'':
 
Poniamo il caso di voler inserire quattro tabelle, ed in ciascuna di queste un ''Button'':
−
  '''Public''' Sub Form_Open()
+
  Public Sub Form_Open()
 
   
 
   
−
   Dim j As Byte
+
   Dim b As Byte
 
   Dim bt As Button
 
   Dim bt As Button
 
   
 
   
−
  <FONT color=gray>' ''Inseriamo quattro tabelle-Panel:''</font>
+
  <FONT color=gray>' ''Inserisce quattro tabelle nella "TabPanel":''</font>
−
  TabPanel1.Count = 4
+
  TabPanel1.Count = 4
 
   
 
   
−
  For j = 0 To 3
+
  For b = 0 To 3
 +
<FONT color=gray>' ''Intesta ciascuna tabella:''</font>   
 +
    TabPanel1[b].Text = CStr(b)  <SUP><FONT color=gray>'</font>&#091;[[#Note|nota 1]]&#093;</sup>
 +
<FONT color=gray>' ''Prende in considerazione la tabella n. b :''</font>
 +
    TabPanel1.Index = b
 +
<FONT color=gray>' ''Inserisce un "Button" nella tabella in considerazione:''</font>
 +
    With bt = New Button(TabPanel1) As "tasto"
 +
      .X = 40
 +
      .Y = 100
 +
      .W = 100
 +
      .H = 50
 +
      .Text = "Tasto " & CStr(b)
 +
      .Name = .Text
 +
    End With
 +
  Next
 
   
 
   
−
  <FONT color=gray>' ''Intestiamo ciascuna tabella:''</font>   
+
  <FONT color=gray>' ''Infine mostra in primo piano la prima tabella:''</font>
−
    TabPanel1[j].Text = CStr(j)  <SUP><FONT color=gray>'</font>&#091;[[#Note|Nota 1]]&#093;</sup>
+
  TabPanel1.Index = 0
−
<FONT color=gray>' ''Prendiamo in considerazione la tabella n. j :''</font>
 
−
    TabPanel1.Index = j
 
−
<FONT color=gray>' ''Inseriamo un "Button" nella tabella in considerazione:''</font>
 
−
    With bt = New Button(TabPanel1) As "tasto"
 
−
      .X = 40
 
−
      .Y = 100
 
−
      .W = 100
 
−
      .H = 50
 
−
      .Text = "Nuovo tasto " & CStr(j)
 
−
      .Tag = j
 
−
    End With
 
−
 
 
−
  Next
 
 
   
 
   
−
  <FONT color=gray>' ''Infine, mostriamo in primo piano la prima tabella:''</font>
+
  End
−
  TabPanel1.Index = 0
 
 
   
 
   
−
'''End'''
 
 
   
 
   
 +
Public Sub tasto_Click()  <FONT color=gray>' ''Facciamo la prova del funzionamento dei "Button" inseriti:''</font>
 
   
 
   
−
'''Public''' Sub tasto_Click()  <FONT color=gray>' ''Facciamo la prova del funzionamento dei "Button" inseriti:''</font>
+
  Print "Premuto: " & Last.Name
 
   
 
   
−
  Print "Premuto tasto n. " & Last.Tag
+
  End
−
   
 
−
'''End'''
 
  
  

Versione attuale delle 12:50, 19 mag 2024

Vediamo di seguito un possibile codice per inserire via codice in una TabPanel due o più tabelle comprensive di uno o più oggetti al loro interno.

Poniamo il caso di voler inserire quattro tabelle, ed in ciascuna di queste un Button: 

Public Sub Form_Open()

 Dim b As Byte
 Dim bt As Button

' Inserisce quattro tabelle nella "TabPanel":
 TabPanel1.Count = 4

 For b = 0 To 3
' Intesta ciascuna tabella:     
   TabPanel1[b].Text = CStr(b)   '[nota 1]
' Prende in considerazione la tabella n. b :
   TabPanel1.Index = b
' Inserisce un "Button" nella tabella in considerazione:
   With bt = New Button(TabPanel1) As "tasto"
     .X = 40
     .Y = 100
     .W = 100
     .H = 50
     .Text = "Tasto " & CStr(b)
     .Name = .Text
   End With
 Next

' Infine mostra in primo piano la prima tabella:
 TabPanel1.Index = 0

End


Public Sub tasto_Click()  ' Facciamo la prova del funzionamento dei "Button" inseriti:

  Print "Premuto: " & Last.Name

End


Note

[1] Per poter colorare i caratteri dell'intestazione delle tabelle, è necessario utilizzare la Proprietà ".RichText" ed i tag HTML.
Esempio: 

TabPanel1[index].RichText = <FONT color=red>testo</font>
Estratto da "https://www.gambas-it.org/wiki/index.php?title=Inserire_tabelle_ed_oggetti_all%27interno_di_una_TabPanel&oldid=36544"