Differenze tra le versioni di "Mostrare in un Form un'immagine SVG"

Da Gambas-it.org - Wikipedia.
 
(Una versione intermedia di uno stesso utente non è mostrata)
Riga 1: Riga 1:
Per caricare e mostrare in un ''Form'' un'immagine di formato ''SVG'', vi sono almeno due modalità.
+
Per caricare e mostrare in un ''Form'' un'immagine di formato ''SVG'', vi sono almeno tre modalità.
  
 
===Uso della ''DrawngArea''===
 
===Uso della ''DrawngArea''===
Riga 52: Riga 52:
 
   
 
   
 
   Dim ImageView1 As ImageView
 
   Dim ImageView1 As ImageView
 
  ImageView1 = Image.Load("<FONT Color=darkgreen>''/percorso/del/file.svg''</font>")
 
 
   
 
   
 
   With ImageView1 = New ImageView(Me)
 
   With ImageView1 = New ImageView(Me)

Versione attuale delle 18:07, 15 set 2024

Per caricare e mostrare in un Form un'immagine di formato SVG, vi sono almeno tre modalità.

Uso della DrawngArea

Si può far uso di un oggetto DreawingArea. Il file immgine di formato SVG sarà caricato con la Classe SvgImage. Il disegno dell'immagine SVG avverrà all'interno dell'evento _Draw() dell'oggetto DreawingArea mediante l'uso del metodo Paint della Classe SvgImage, il quale disegnerà l'immagine nel dispositivo corrente, ossia nella DreawingArea.

Private DrawingArea1 As DrawingArea
Private svg As SvgImage


Public Sub Form_Open()
 
 svg = SvgImage.Load("/percorso/del/file.svg")
 
 With DrawingArea1 = New DrawingArea(Me) As "DrawingArea1"
   .X = 100
   .Y = 100
   .W = svg.W
   .H = svg.H
 End With
  
End


Public Sub DrawingArea1_Draw()

 svg.Paint
  
End


Uso della PictureBox

E' però possibile anche utilizzare la modalità classica per caricare e mostrare le immagini, ossia con la Classe Image e l'oggetto PictureBox:

Public Sub Form_Open()
 
 Dim pb As PictureBox
 Dim svg As Image
 
 svg = Image.Load("/percorso/del/file.svg")
   
 With pb = New PictureBox(Me)
   .X = 100
   .Y = 100
   .W = svg.W
   .H = svg.H
   .Image = svg
 End With
 
End


Uso della ImageView

Public Sub Form_Open()

 Dim ImageView1 As ImageView

 With ImageView1 = New ImageView(Me)
   .X = 100
   .Y = 100
   .W = 100
   .H = 100
   .Image = Image.Load("/percorso/del/file.svg")
 End With

End