¿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í.

aspell (clase)

Puedes usar esta clase para corregir las faltas ortográficas de un texto x, usa el programa aspell y para corregir en español instala aspell-es. Después amplio el post esta en la granja de gambas.

https://gambas.one/gambasfarm/?id=785&action=search

Last y Group

Crea un nuevo proyecto, agrégale tres botones y un Label llamado "LabInfo" .
en la propiedad Group de cada botón asígnale un nombre, en este ejemplo use "grupo3". (en todas las propiedades Group de los botones el mismo nombre de grupo)

Last: Devuelve una referencia al último objeto que disparó un evento.

propiedad Group:

' gambas class file


Public Sub grupo3_Click()

LabInfo.Text = Last.Name
Print Last.Caption
Print Object.Class(Last).Name

End

Public Sub Form_Open()

Me.Title = "Usando Last y Group"

End