Comunidad Gambas-es

Versión completa: Método Grab de DrawingArea
Actualmente estas viendo una versión simplificada de nuestro contenido. Ver la versión completa con el formato correcto.
Buenas!.

¿ Ese método existe realmente ?.

Según la ayuda es que toma una imagen del control DrawingArea y lo devuelve. Pero no me ha funcionado , aunque di dimensiones a la imagen.

Código:
Public Sub btnMostrar_Click()

  Dim $picture As New Picture(ANCHO, ALTO)
 
  $picture = DrawingArea1.Grab()
 
  PictureBox1.Picture = $picture
 
End

Se queda como congelado el procedimiento: "No coinciden los tipos, requerido picture, obtenido Void en cambio"
Como si no devolviese nada.

Tuve que usar esta forma:

Código:
Public Sub btnMostrar_Click()

  Dim $picture As New Picture(ANCHO, ALTO)
 
  Paint.Begin($picture)
  Dibujar
  Paint.End
 
  PictureBox1.Picture = $picture

 
End

Imaginé que el primer método me iba ahorrar ese código.  Huh

Saludos
Pruebe este código

[code]
(13-11-2021, 12:14)cogier escribió: [ -> ]Pruebe este código

Cumple su función. Gracias.

Saludos