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

Da Gambas-it.org - Wikipedia.

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()
 
 Me.Arrangement = Arrange.Fill

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

 GridView1[0, 0].Picture = Picture["icon:/48/multimedia"]

' Datta la cella della griglia alla dimensione della "Picture":
 GridView1.Rows[0].Height = -1
 GridView1.Columns[0].Width = -1

End