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

Da Gambas-it.org - Wikipedia.
(Creata pagina con "Per caricare e mostrare in un ''Form'' un'immagine di formato ''SVG, vi sono amno due modalità. ===Uso della ''DrawngArea''=== Si può far uso di un oggetto ''DreawingArea'...")
 
 
(8 versioni intermedie di uno stesso utente non sono mostrate)
Riga 1: Riga 1:
Per caricare e mostrare in un ''Form'' un'immagine di formato ''SVG, vi sono amno 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''===
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''.
+
Si può far uso di una ''DreawingArea''.
 +
<BR>Il file immgine di formato SVG sarà caricato con la Classe ''SvgImage''.  
 +
<BR>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 DrawingArea1 As DrawingArea
 
  Private svg As SvgImage
 
  Private svg As SvgImage
 
   
 
   
 
   
 
   
  '''Public''' Sub Form_Open()
+
  Public Sub Form_Open()
 
    
 
    
   svg = SvgImage.Load("<FONT Color=gray>''/percorso/del/file.svg''</font>")
+
   svg = SvgImage.Load("<FONT Color=darkgreen>''/percorso/del/file.svg''</font>")
 
    
 
    
 
   With DrawingArea1 = New DrawingArea(Me) As "DrawingArea1"
 
   With DrawingArea1 = New DrawingArea(Me) As "DrawingArea1"
Riga 19: Riga 20:
 
   End With
 
   End With
 
    
 
    
  '''End'''
+
  End
 
   
 
   
 
   
 
   
  '''Public''' Sub DrawingArea1_Draw()
+
  Public Sub DrawingArea1_Draw()
 
   
 
   
 
   svg.Paint
 
   svg.Paint
 
    
 
    
  '''End'''
+
  End
 
   
 
   
 
   
 
   
 
 
===Uso della ''PictureBox''===
 
===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'':
+
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()
+
  Public Sub Form_Open()
 
    
 
    
 
   Dim pb As PictureBox
 
   Dim pb As PictureBox
 
   Dim svg As Image
 
   Dim svg As Image
 
    
 
    
  svg = Image.Load("<FONT Color=gray>''/percorso/del/file.svg''</font>")
+
  svg = Image.Load("<FONT Color=darkgreen>''/percorso/del/file.svg''</font>")
 
      
 
      
  With pb = New PictureBox(Me)
+
  With pb = New PictureBox(Me)
    .X = 100
+
    .X = 100
    .Y = 100
+
    .Y = 100
    .W = svg.W
+
    .W = svg.W
    .H = svg.H
+
    .H = svg.H
    .Picture = svg.Picture
+
  End With
  End With
 
 
    
 
    
  '''End'''
+
  End
 +
 
 +
 
 +
===Uso della ''ImageView''===
 +
Public Sub Form_Open()
 +
 +
  Dim ImageView1 As ImageView
 +
 +
  With ImageView1 = New ImageView(Me)
 +
    .X = 100
 +
    .Y = 100
 +
    .Image = Image.Load("<FONT Color=darkgreen>''/percorso/del/file.svg''</font>")
 +
    .W = .Image.W
 +
    .H = .Image.H
 +
  End With
 +
 +
End

Versione attuale delle 01:05, 16 ott 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 una 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
 End With
 
End


Uso della ImageView

Public Sub Form_Open()

 Dim ImageView1 As ImageView

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

End