DrawingArea als Bitmap speichern

Alle Fragen zur Programmierung, die nicht in die speziellen Themen passen
Antworten
tstueker
Foriker
Beiträge: 2
Registriert: Mo 12. Nov 2018, 12:16
Kontaktdaten:

DrawingArea als Bitmap speichern

Beitrag von tstueker » Mo 12. Nov 2018, 12:18

Hi zusammen, ich stehe vor einem für mich derzeit unlösbaren Problem: ich muss den Inhalt einer DrawingArea als Bitmap abspeichern. Hat das schon mal einer gelöst, bisher hatte ich nichts gefunden...

vuott
Foriker
Beiträge: 84
Registriert: Fr 16. Jan 2015, 01:27
Kontaktdaten:

Re: DrawingArea als Bitmap speichern

Beitrag von vuott » Di 13. Nov 2018, 09:30

Hello,

an example:
gambas code
Public Sub Form_Open()
 
 With DrawingArea1
   .Background = Color.White
   .W = 300
   .H = 40
 End With
  
End


Public Sub DrawingArea1_Draw()
 
 Dim c As Integer[] = [Color.Blue, Color.Green, Color.Yellow, Color.Red]
 Dim p As Float[] = [0, 0.34, 0.67, 1]

  With Paint
    .Brush = .LinearGradient(0, 0, DrawingArea1.W, DrawingArea1.H, c, p)
    .Rectangle(0, 0, DrawingArea1.W, DrawingArea1.H)
    .Fill
   .End
  End With
  
End


Public Sub Button1_Click()
 
 Dim pc As Picture
  
  pc = Desktop.Screenshot(DrawingArea1.ScreenX, DrawingArea1.ScreenY, DrawingArea1.Width, DrawingArea1.Height)
   
  pc.Save("/tmp/imago.bmp", 100)
  
End

tstueker
Foriker
Beiträge: 2
Registriert: Mo 12. Nov 2018, 12:16
Kontaktdaten:

Re: DrawingArea als Bitmap speichern

Beitrag von tstueker » Mo 26. Nov 2018, 06:03

Unglaublich. Danke. Das funktioniert PRIMA. :D

Antworten

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 5 Gäste