Inserire un'immagine adattandola alle dimensioni della cella di una GridView

Mostreremo ^{[Nota 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/della/immagine").Stretch(.W, .H)
' Viene quindi convertita in una "Picture"...
    p = i.Picture
' ...per poter essere caricata nella cella:
   .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("/percorso/della/immagine").Stretch(.W, .H).Picture   
 End With

End

Ma anche mediante il metodo .RichText ed il codice Html:

...
With GridView1[0, 0]  
   .RichText = "<img src="/percorso/della/immagine" 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.