Differenze tra le versioni di "Adattare automaticamente l'altezza e la larghezza di una cella di una GridView all'immagine contenuta"
Da Gambas-it.org - Wikipedia.
Riga 1: | Riga 1: | ||
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''. | 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 | Private GridView1 As GridView | ||
Riga 10: | Riga 10: | ||
Me.Arrangement = Arrange.Fill | Me.Arrangement = Arrange.Fill | ||
− | Me | + | Me.Show |
With GridView1 = New GridView(Me) As "GridView1" | With GridView1 = New GridView(Me) As "GridView1" |
Versione attuale delle 10:22, 23 ott 2022
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