¿Como usar una imagen svg en Gambas3?

 

El manejo de imágenes svg no parece fácil en Gambas3 pero bueno aquí un ejemplo no explicado (por ahora). Este ejemplo te dará una idea de por donde empezar y después hacer tus propios aprendizajes.

 

' Gambas class file

Private svg1 As SvgImage
Private ImagenX As Image
Private RutaImagen As String


Public Sub Form_Open()

  RutaImagen = "distro/archlinux.svg"

End

Public Sub DrawingArea1_Draw()

  svg1 = SvgImage.Load(RutaImagen)

  DrawingArea1.Width = svg1.Width
  DrawingArea1.Height = svg1.Height

  ImagenX = New Image(svg1.Width, svg1.Height, Color.Transparent)
  Paint.Begin(ImagenX)
  svg1.Paint()
  Paint.End

  Paint.DrawImage(ImagenX, 0, 0)

End

Public Sub distro_Click()

  RutaImagen = Last.tag
  DrawingArea1.Refresh

End

El ejemplo lo puedes descargar de la Granja de Gambas o también de aquí.