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.

GAMBAS
  1. Public Sub btnMostrar_Click()
  2.  
  3.   Dim $picture As New Picture(ANCHO, ALTO)
  4.  
  5.   $picture = DrawingArea1.Grab()
  6.  
  7.   PictureBox1.Picture = $picture
  8.  



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:

GAMBAS
  1. Public Sub btnMostrar_Click()
  2.  
  3.   Dim $picture As New Picture(ANCHO, ALTO)
  4.  
  5.   Paint.Begin($picture)
  6.   Dibujar
  7.   Paint.End
  8.  
  9.   PictureBox1.Picture = $picture
  10.  
  11.  



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

Saludos
Pruebe este código

GAMBAS
  1. PictureBox1.Picture = Desktop.Screenshot(DrawingArea1.ScreenX, DrawingArea1.ScreenY, DrawingArea1.Width, DrawingArea1.Height)


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

Cumple su función. Gracias.

Saludos