Da Gambas-it.org - Wikipedia.
|
|
| 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.
| + | #REDIRECT[[Inserire_un'immagine_adattandola_alle_dimensioni_della_cella_di_una_GridView]] |
| − | | |
| − | 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]
| |
| − | <FONT color=#006400>' ''Carichiamo l'immagine adattandola '''automaticamente''' alle dimensioni della cella:''</font>
| |
| − | i = i.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>
| |
| − | p = i.Picture
| |
| − | <FONT color=#006400>' ''...per poter essere caricata nella cella:''</font>
| |
| − | .Picture = p
| |
| − | End With
| |
| − |
| |
| − | '''End'''
| |
| − | | |
| − | | |
| − | Si potrà ottenere una riduzione del codice operando così:
| |
| − | '''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]
| |
| − | .Picture = Image.Load("<FONT Color=gray>''/percorso/della/immagine''</font>").Stretch(.W, .H).Picture
| |
| − | End With
| |
| − |
| |
| − | '''End'''
| |
| − | | |
| − | Ma anche mediante il metodo ''.RichText'' ed il codice Html:
| |
| − | ...
| |
| − | With GridView1[0, 0]
| |
| − | .RichText = "<img src="<FONT Color=gray>''/percorso/della/immagine''</font>" 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.
| |
Versione attuale delle 11:03, 14 ago 2019
