Public Sub render_interface()
GridView_FileList.Header = 1
GridView_FileList.AutoResize = False
GridView_FileList.Columns.Count = 5
GridView_FileList.Rows.Count = 20
GridView_FileList.Columns[0].Width = 0
GridView_FileList.Columns[0].Title = "id"
GridView_FileList.Columns[1].W = 0
GridView_FileList.Columns[1].Title = "check_path"
GridView_FileList.Columns[2].W = 200
GridView_FileList.Columns[2].Title = "Where to copy"
GridView_FileList.Columns[3].W = 0
GridView_FileList.Columns[3].Title = "copy_path"
GridView_FileList.Columns[4].W = 1200
GridView_FileList.Columns[4].Title = "Where to copy"
End
ma le colonne con larghezza 0 sono sempre visibili .... invece io vorrei nasconderle
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