Centrare il testo nell'header di una GridView: differenze tra le versioni

Da Gambas-it.org - Wikipedia.
Vai alla navigazione Vai alla ricerca
Nessun oggetto della modifica
Nessun oggetto della modifica
Riga 3: Riga 3:


Ecco la soluzione:
Ecco la soluzione:
  '''Public''' Sub Form_Open()
  Public Sub Form_Open()
  Dim Gridview1 As GridView
  With Me
    .W = 400
    .H = 400
    .Padding = 5
    .Arrangement = Arrange.Fill
  End With
    
    
   With GridView1
   With GridView1 = New GridView(Me)
     .Columns.Count = 3                      <FONT color=gray>' ''La GridView avrà tre Colonne''</font>
     .Columns.Count = 3                      <FONT color=gray>' ''La GridView avrà tre Colonne''</font>
     .Rows.Count = 3                          <FONT color=gray>' ''La GridView avrà tre Righe''</font>
     .Rows.Count = 3                          <FONT color=gray>' ''La GridView avrà tre Righe''</font>
     .Header = GridView1.Horizontal          <FONT color=gray>' ''Richiama ed imposta l'header orizzontale''</font>
     .Header = GridView1.Horizontal          <FONT color=gray>' ''Richiama ed imposta l'header orizzontale''</font>
     .Columns[0].Alignment = Align.Center    <FONT color=gray>' ''Imposta l'allineamento del testo nell'header in modo "centrato"''</font>
     .Columns[0].Alignment = Align.Center    <FONT color=gray>' ''Imposta l'allineamento del testo nell'header in modo "centrato"''</font>
     .Columns[0].Title = "centro"            <FONT color=gray>' ''Va a posizionarsi nella cella dell'header''</font>
     .Columns[0].Title = "centro"            <FONT color=gray>' ''Va a posizionarsi nella cella dell'header''</font>
     .Columns[1].Alignment = Align.Right      <FONT color=gray>' ''Qui invece imposta il testo a destra''</font>
     .Columns[1].Alignment = Align.Right      <FONT color=gray>' ''Qui invece imposta il testo nell'header a "destra"''</font>
     .Columns[1].Text = "destra"              <FONT color=gray>' ''Va bene anche .Text al posto di .Title''</font>
     .Columns[1].Text = "destra"              <FONT color=gray>' ''Va bene anche .Text al posto di .Title''</font>
   End With
   End With
    
    
  '''End'''
  End

Versione delle 18:28, 31 ago 2025

Uno dei problemi ricorrenti, affrontando le GridView, è la gestione dell'allineamento del testo all'interno delle celle dell'Header.
Per gestire l'allineamento del testo, per esempio per centrarlo, sarà sufficiente, dopo aver richiamato e definito l'Header in GridView, stabilire quale colonna sarà interessata dalla impostazione dell'allineamento nella sua cella dell'Header.

Ecco la soluzione:

Public Sub Form_Open()

 Dim Gridview1 As GridView

 With Me
   .W = 400
   .H = 400
   .Padding = 5
   .Arrangement = Arrange.Fill
 End With
 
 With GridView1 = New GridView(Me)
   .Columns.Count = 3                       ' La GridView avrà tre Colonne
   .Rows.Count = 3                          ' La GridView avrà tre Righe
   .Header = GridView1.Horizontal           ' Richiama ed imposta l'header orizzontale

   .Columns[0].Alignment = Align.Center     ' Imposta l'allineamento del testo nell'header in modo "centrato"
   .Columns[0].Title = "centro"             ' Va a posizionarsi nella cella dell'header

   .Columns[1].Alignment = Align.Right      ' Qui invece imposta il testo nell'header a "destra"
   .Columns[1].Text = "destra"              ' Va bene anche .Text al posto di .Title
 End With
 
End