E' l'assegnazione di valori alla proprietà "
.Title" a non consentire l'occultamento di una colonna.
Ad ogni modo va fatto rilevare che l'attribuzione del valore zero alla proprietà "
.Width" di ciascuna colonna adatta la larghezza della singola colonna alla lunghezza del testo presente nella sua proprietà "
.Title".
Public Sub Form_Open()
Dim b As Byte
GridView1.W = 0
GridView1.Header = 1
GridView1.AutoResize = False
GridView1.Columns.Count = 5
GridView1.Rows.Count = 20
GridView1.Columns[0].W = 0
GridView1.Columns[0].Title = "id"
GridView1.Columns[1].W = 0
GridView1.Columns[1].Title = "check_path"
GridView1.Columns[2].W = 0
GridView1.Columns[2].Title = "Where to copy"
GridView1.Columns[3].W = 0
GridView1.Columns[3].Title = "copy_path"
GridView1.Columns[4].W = 0
GridView1.Columns[4].Title = "Where to copy"
For b = 0 To GridView1.Columns.Max
GridView1.W = GridView1.W + GridView1.Columns[b].W
Next
End