Da Gambas-it.org - Wikipedia.
|
|
| (8 versioni intermedie di uno stesso utente non sono mostrate) |
| Riga 1: |
Riga 1: |
| − | Mostreremo |[[#Note|1]]| 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("''percorso_dell'immagine''")<FONT color=#B22222>.Stretch</font>(.W, .H) |[[#Note|2]]|
| |
| − | <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'''
| |
| − | | |
| − | | |
| − | | |
| − | ----
| |
| − | ==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>"
| |
Versione attuale delle 11:03, 14 ago 2019
