Adattare automaticamente l'altezza e la larghezza di una cella di una GridView all'immagine contenuta

Per adattare automaticamente le dimensioni di una cella di una GridView all'immagine in essa contenuta, è necessario assegnare un valore negativo alle Proprietà ".Height" e ".Width" delle Proprietà vettoriali che individuano ogni singola cella della GridView.

Mostriamo un esempio pratico:

Private GridView1 As GridView


Public Sub Form_Open()

 Dim b As Byte

 Me.Arrangement = Arrange.Fill
 Me..Show

 With GridView1 = New GridView(Me) As "GridView1"
   .Rows.Count = 3
   .Columns.Count = 4
   .Show
 End With

 Wait 0.1

 For b = 1 To 8
   GridView1[0, 0].Picture = Picture["icon:/" & CStr(b * 16) & "/multimedia"]
' Datta la cella della griglia alla dimensione della "Picture":
   GridView1.Rows[0].Height = -1
   GridView1.Columns[0].Width = -1
   GridView1[0, 1].Text = CStr(b * 16) & " pixel"
   Wait 1
 Next

End