Adattare automaticamente l'altezza e la larghezza di una cella di una GridView all'immagine contenuta
Da Gambas-it.org - Wikipedia.
Versione del 23 ott 2022 alle 10:21 di Vuott (Discussione | contributi)
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