Differenze tra le versioni di "Inserire un'immagine adattandola alle dimensioni della cella di una GridView"
Da Gambas-it.org - Wikipedia.
(Creata pagina con "Mostreremo <SUP>[[[#Note|Nota 1]]]</sup> un possibile algoritmo per inserire in una ''GridView'' un'immagine adattandola alla dimensione della cella. L'immagine dov...") |
|||
Riga 1: | Riga 1: | ||
Mostreremo <SUP>[[[#Note|Nota 1]]]</sup> un possibile algoritmo per inserire in una ''GridView'' un'immagine adattandola alla dimensione della cella. | Mostreremo <SUP>[[[#Note|Nota 1]]]</sup> un possibile algoritmo per inserire in una ''GridView'' un'immagine adattandola alla dimensione della cella. | ||
− | L'immagine dovrà essre caricata come ''image'', per poter utilizzare il | + | L'immagine dovrà essre caricata come ''image'', per poter utilizzare il Metodo ".Stretch()" della Classe "GridView". |
− | |||
'''Public''' Sub Form_Open() | '''Public''' Sub Form_Open() | ||
− | + | ||
− | + | Dim i As Image | |
− | Dim i As | + | |
− | + | With GridView1 | |
− | |||
.Columns.Count = 2 | .Columns.Count = 2 | ||
.Rows.Count = 2 | .Rows.Count = 2 | ||
Riga 16: | Riga 14: | ||
.Rows[0].Height = 100 | .Rows[0].Height = 100 | ||
End With | End With | ||
− | + | ||
− | |||
With GridView1[0, 0] | With GridView1[0, 0] | ||
<FONT color=#006400>' ''Carichiamo l'immagine adattandola '''automaticamente''' alle dimensioni della cella:''</font> | <FONT color=#006400>' ''Carichiamo l'immagine adattandola '''automaticamente''' alle dimensioni della cella:''</font> | ||
− | + | i = Image.Load("<FONT Color=gray>''/percorso/della/immagine''</font>")<FONT color=#B22222>.Stretch</font>(.W, .H) | |
− | <FONT color=#006400>' ''Viene quindi convertita in una "Picture" | + | <FONT color=#006400>' ''Viene quindi convertita in una "Picture", per poter essere caricata nella cella:''</font> |
− | + | .Picture = i.Picture | |
− | |||
− | .Picture = | ||
End With | End With | ||
Riga 30: | Riga 25: | ||
− | Si potrà | + | Si potrà anche utilizzare il Metodo ".RichText()" della Classe "GridView" e il codice Html: |
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
... | ... | ||
With GridView1[0, 0] | With GridView1[0, 0] |
Versione delle 16:45, 11 ott 2021
Mostreremo [Nota 1] un possibile algoritmo per inserire in una GridView un'immagine adattandola alla dimensione della cella.
L'immagine dovrà essre caricata come image, per poter utilizzare il Metodo ".Stretch()" della Classe "GridView".
Public Sub Form_Open() Dim i As Image With GridView1 .Columns.Count = 2 .Rows.Count = 2 .header = 1 .Columns[0].Text = "\nprova\n" .Columns.W = 100 .Rows[0].Height = 100 End With With GridView1[0, 0] ' Carichiamo l'immagine adattandola automaticamente alle dimensioni della cella: i = Image.Load("/percorso/della/immagine").Stretch(.W, .H) ' Viene quindi convertita in una "Picture", per poter essere caricata nella cella: .Picture = i.Picture End With End
Si potrà anche utilizzare il Metodo ".RichText()" della Classe "GridView" e il codice Html:
... With GridView1[0, 0] .RichText = "<img src="/percorso/della/immagine" height=" & .W & " width=" & .H & ">" End With ...
Note
[1] Un ringraziamento agli utenti "clabe69" e "milio" del forum Gambas-it.org per il loro apporto ed i suggerimenti.