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 6: | Riga 6: | ||
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 delle 10:21, 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.
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