Differenze tra le versioni di "Inserire un'immagine adattandola alle dimensioni della cella"
Da Gambas-it.org - Wikipedia.
(Nuova pagina: Mostreremo |1| un possibile algoritmo per inserire in una ''GridView'' un'immagine adattandola alla dimensione della cella. L'immagine dovrà essre caricata come ''image'', ...) |
|||
| Riga 19: | Riga 19: | ||
With GridView1[0, 0] | With GridView1[0, 0] | ||
| − | <FONT color=#006400>' ''Carichiamo l'immagine adattandola alle dimensioni della cella:''</font> | + | <FONT color=#006400>' ''Carichiamo l'immagine adattandola '''automaticamente''' alle dimensioni della cella:''</font> |
| − | i = i.Load("''percorso_dell'immagine''")<FONT color=#B22222>.Stretch</font>(.W, .H) | + | i = i.Load("''percorso_dell'immagine''")<FONT color=#B22222>.Stretch</font>(.W, .H) |[[#Note|2]]| |
<FONT color=#006400>' ''Viene quindi convertita in una "Picture"...''</font> | <FONT color=#006400>' ''Viene quindi convertita in una "Picture"...''</font> | ||
p = i.Picture | p = i.Picture | ||
| Riga 34: | Riga 34: | ||
==Note== | ==Note== | ||
[1] Un ringraziamento all'utente "''clabe69''" del forum Gambas-it.org per i suoi suggerimenti. | [1] Un ringraziamento all'utente "''clabe69''" del forum Gambas-it.org per i suoi suggerimenti. | ||
| + | |||
| + | [2] Si potrà utilizzare anche il metodo .''RichText'' ed il codice html, ma si dovranno impostare in modo non automatico le dimensioni dell'immagine. | ||
| + | Esempio: | ||
| + | .RichText = "<IMG src=''percorso_immagine'' height=80 width=100>" | ||
Versione delle 11:41, 29 set 2012
Mostreremo |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 di questa classe.
Public Sub Form_Open()
Dim p As Picture
Dim i As New 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 = i.Load("percorso_dell'immagine").Stretch(.W, .H) |2|
' Viene quindi convertita in una "Picture"...
p = i.Picture
' ...per poter essere caricata nella cella:
.Picture = p
End With
End
Note
[1] Un ringraziamento all'utente "clabe69" del forum Gambas-it.org per i suoi suggerimenti.
[2] Si potrà utilizzare anche il metodo .RichText ed il codice html, ma si dovranno impostare in modo non automatico le dimensioni dell'immagine. Esempio:
.RichText = "<IMG src=percorso_immagine height=80 width=100>"
