Inserire un'immagine adattandola alle dimensioni della cella
Da Gambas-it.org - Wikipedia.
Versione del 29 set 2012 alle 10:41 di Vuott (Discussione | contributi)
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>"