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'...") |
|||
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 amno due modalità. | ||
− | |||
===Uso della ''DrawngArea''=== | ===Uso della ''DrawngArea''=== | ||
Riga 8: | Riga 7: | ||
− | + | Public Sub Form_Open() | |
− | svg = SvgImage.Load("<FONT Color= | + | 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 18: | ||
End With | End With | ||
− | + | End | |
− | + | Public Sub DrawingArea1_Draw() | |
svg.Paint | svg.Paint | ||
− | + | End | |
Riga 32: | Riga 31: | ||
===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() | |
Dim pb As PictureBox | Dim pb As PictureBox | ||
Dim svg As Image | Dim svg As Image | ||
− | + | svg = Image.Load("<FONT Color=darkgreen>''/percorso/del/file.svg''</font>") | |
− | + | With pb = New PictureBox(Me) | |
− | + | .X = 100 | |
− | + | .Y = 100 | |
− | + | .W = svg.W | |
− | + | .H = svg.H | |
− | + | .Picture = svg.Picture | |
− | + | End With | |
− | + | End |
Versione delle 03:29, 6 giu 2024
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. 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 .Picture = svg.Picture End With End