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.
(Una versione intermedia di uno stesso utente non è mostrata) | |||
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 | ||
Public Sub Form_Open() | Public Sub Form_Open() | ||
− | + | ||
+ | Dim b As Byte | ||
+ | |||
Me.Arrangement = Arrange.Fill | Me.Arrangement = Arrange.Fill | ||
+ | Me.Show | ||
With GridView1 = New GridView(Me) As "GridView1" | With GridView1 = New GridView(Me) As "GridView1" | ||
.Rows.Count = 3 | .Rows.Count = 3 | ||
.Columns.Count = 4 | .Columns.Count = 4 | ||
+ | .Show | ||
End With | End With | ||
− | + | Wait 0.1 | |
+ | For b = 1 To 8 | ||
+ | GridView1[0, 0].Picture = Picture["icon:/" & CStr(b * 16) & "/multimedia"] | ||
<FONT Color=gray>' ''Datta la cella della griglia alla dimensione della "Picture":''</font> | <FONT Color=gray>' ''Datta la cella della griglia alla dimensione della "Picture":''</font> | ||
− | + | GridView1.Rows[0]<FONT Color=#B22222>.Height = '''-1'''</font> | |
− | + | GridView1.Columns[0]<FONT Color=#B22222>.Width = '''-1'''</font> | |
+ | GridView1[0, 1].Text = CStr(b * 16) & " pixel" | ||
+ | Wait 1 | ||
+ | Next | ||
End | End |
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