Differenze tra le versioni di "Inserire un'immagine adattandola alle dimensioni della cella di una GridView"

Da Gambas-it.org - Wikipedia.
 
(Una versione intermedia di uno stesso utente non è mostrata)
Riga 15: Riga 15:
 
  <FONT color=gray>' ''Carichiamo l'immagine adattandola '''automaticamente''' il Metodo ".Stretch()" alle dimensioni della cella:''</font>
 
  <FONT color=gray>' ''Carichiamo l'immagine adattandola '''automaticamente''' il Metodo ".Stretch()" alle dimensioni della cella:''</font>
 
   With GridView1[0, 0]
 
   With GridView1[0, 0]
     .Picture = Picture.Load("<FONT Color=gray>''/percorso/del/file/immagine''</font>")<FONT color=#B22222>.Stretch</font>(.W, .H)
+
     .Picture = Picture.Load("<FONT Color=darkgreen>''/percorso/del/file/immagine''</font>")<FONT color=#B22222>.Stretch</font>(.W, .H)
 
   End With
 
   End With
 
   
 
   
Riga 22: Riga 22:
 
   ...
 
   ...
 
   With GridView1[0, 0]
 
   With GridView1[0, 0]
     .RichText = "<img src="<FONT Color=gray>''/percorso/del/file/immagine''</font>" height=" & .W & " width=" & .H & ">"
+
     .RichText = "<img src="<FONT Color=darkgreen>''/percorso/del/file/immagine''</font>" height=" & .W & " width=" & .H & ">"
 
   End With
 
   End With
 
  ...
 
  ...

Versione attuale delle 05:23, 7 giu 2024

Mostreremo [nota 1] un possibile algoritmo per inserire in una GridView un'immagine adattandola alla dimensione della cella.

Si userà il Metodo ".Stretch()" della Classe Picture, per ridimensionare l'immagine caricata adattandola alla cella che la contiene.

Public Sub Form_Open()

 With GridView1
   .Columns.Count = 2
   .Rows.Count = 2
   .header = 1
   .Columns[0].Text = "\nprova\n"
   .Columns.W = 100
   .Rows[0].Height = 100
 End With

' Carichiamo l'immagine adattandola automaticamente il Metodo ".Stretch()" alle dimensioni della cella:
 With GridView1[0, 0]
   .Picture = Picture.Load("/percorso/del/file/immagine").Stretch(.W, .H)
 End With

End

Si potrà anche utilizzare il Metodo ".RichText()" della Classe "GridView" e il codice HTML:

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