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

Da Gambas-it.org - Wikipedia.
(Creata pagina con "Mostreremo <SUP>[[[#Note|Nota 1]]]</sup> un possibile algoritmo per inserire in una ''GridView'' un'immagine adattandola alla dimensione della cella. L'immagine dov...")
 
 
(4 versioni intermedie di uno stesso utente non sono mostrate)
Riga 1: Riga 1:
Mostreremo <SUP>&#091;[[#Note|Nota 1]]&#093;</sup> un possibile algoritmo per inserire in una ''GridView'' un'immagine adattandola alla dimensione della cella.
+
Mostreremo <SUP>&#091;[[#Note|nota 1]]&#093;</sup> 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.
+
Si userà il Metodo ".Stretch()" della Classe ''Picture'', per ridimensionare l'immagine caricata adattandola alla cella che la contiene.
 
+
  Public Sub Form_Open()
  '''Public''' Sub Form_Open()
 
 
   
 
   
   Dim p As Picture
+
   With GridView1
  Dim i As New Image
 
 
  With GridView1
 
 
     .Columns.Count = 2
 
     .Columns.Count = 2
 
     .Rows.Count = 2
 
     .Rows.Count = 2
Riga 17: Riga 13:
 
   End With
 
   End With
 
   
 
   
   
+
  <FONT color=gray>' ''Carichiamo l'immagine adattandola '''automaticamente''' il Metodo ".Stretch()" alle dimensioni della cella:''</font>
 
   With GridView1[0, 0]
 
   With GridView1[0, 0]
<FONT color=#006400>' ''Carichiamo l'immagine adattandola '''automaticamente''' alle dimensioni della cella:''</font>
+
    .Picture = Picture.Load("<FONT Color=gray>''/percorso/del/file/immagine''</font>")<FONT color=#B22222>.Stretch</font>(.W, .H)
    i = i.Load("<FONT Color=gray>''/percorso/della/immagine''</font>")<FONT color=#B22222>.Stretch</font>(.W, .H)
 
<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 With
 
   
 
   
  '''End'''
+
  End
 
+
Si potrà anche utilizzare il Metodo ".RichText()" della Classe "GridView" e il codice HTML:
 
+
  ...
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]
 
   With GridView1[0, 0]
     .Picture = Image.Load("<FONT Color=gray>''/percorso/della/immagine''</font>").Stretch(.W, .H).Picture 
+
     .RichText = "<img src="<FONT Color=gray>''/percorso/del/file/immagine''</font>" height=" & .W & " width=" & .H & ">"
 
   End With
 
   End With
 
'''End'''
 
 
Ma anche mediante il metodo ''.RichText'' ed il codice Html:
 
...
 
With GridView1[0, 0] 
 
    .RichText = "<img src="<FONT Color=gray>''/percorso/della/immagine''</font>" height=" & .W & " width=" & .H & ">" 
 
End With
 
 
  ...
 
  ...
  
  
  
----
 
 
=Note=
 
=Note=
 
[1] Un ringraziamento agli utenti "''clabe69''" e "''milio''" del forum Gambas-it.org per il loro apporto ed i suggerimenti.
 
[1] Un ringraziamento agli utenti "''clabe69''" e "''milio''" del forum Gambas-it.org per il loro apporto ed i suggerimenti.

Versione attuale delle 05:19, 23 lug 2023

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.