Visualizza wikitesto di Inserire un'immagine adattandola alle dimensioni della cella

Mostreremo |[[#Note|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]
 <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'''


Ma 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("''immagine_da_mostrare''").Stretch(.W, .H).Picture   
  End With
 
 '''End'''



----
==Note==
[1] Un ringraziamento agli utenti "''clabe69''" e "''milio''" del forum Gambas-it.org per il loro pporto ed i 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.
<BR>Esempio:
 .RichText = "<IMG src=''percorso_immagine'' height=80 width=100>"