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.

Di seguito un esempio pratico che mostra una serie di adattamenti di una cella della GridView al mutare delle dimensioni in pixel di un'immagine:

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