Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

noch mal BitBlt
Autor: Nicky
Datum: 03.01.02 14:01
Hier mein Code: Private Sub Form_Click() Dim test As Long test = BitBlt(Picture1.hDC, 0, 0, Picture1.Width, Picture1.Height, Form1.hDC, 0, 0, SRCCOPY) End Sub Private Sub Form_Load() Picture1.Top = 0 Picture1.Left = 0 Picture1.Width = ScaleWidth Picture1.Height = ScaleHeight End Sub Auf meiner Form sind 3 Shapeelemente. Die PicBox ist genausogross wie meine Form. Mit einem Klick auf die Form sollten die Shapeelemente auf die Box geblittet werden Macht er aber nicht. Autoredraw ist True. Was ist falsch am Code??? Oder sonst wo???

noch mal BitBlt	28	Nicky	03.01.02 14:01
noch mal BitBlt	17	Nicky	03.01.02 14:06

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen