https://foro.gambas-es.org/viewtopic.php?f=5&t=5113&p=29858#p29858
-----------------------------------
vuott
Domingo, 24 Enero 2016, 17:44

Re: Panel Movil Luminoso De Leds
-----------------------------------
[quote user="Mr_Electronico" post="29855"]El problema es que no veo la opcion de que que se puedan cargar imagenes svg en el formulario de Gambas3 .[/quote]

La solución está en la Wiki oficial de Gambas: es decir utilizar un objeto [i]DrawingArea[/i] .

Exemplum:
[code linenumbers=false syntax=gambas]Private DrawingArea1 As DrawingArea
Private svg As SvgImage


Public Sub Form_Open()

  svg = SvgImage.Load("/ruta/del/archivo.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[/code]


...pero, es posible tambien utilizar la manera clasica para cargar y mostrar imagenes: con la Clase [i]Image[/i] y el objeto [i]PictureBox[/i].
[code linenumbers=false syntax=gambas]Public Sub Form_Open()

  Dim pb As PictureBox
  Dim svg As Image
 
    svg = Image.Load("/ruta/del/archivo.svg")
    
    With pb = New PictureBox(Me)
      .X = 100
      .Y = 100
      .W = svg.W
      .H = svg.H
      .Picture = svg.Picture
    End With

End[/code]


