Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Monitorbild ausdrucken
Autor: Martoeng
Datum: 30.01.02 10:41
Ehrlich gesagt ist dieser Tipp wie man Screenshots erstellt nicht gut. Hier ist ein Beispiel von mir wie man es richtig macht ohne die Zwischenablage zu nutzen (wer weiß was für Daten verloren gehen, wenn mein Programm einfach die Zwischenablage benutzt) 'Api-Deklarationen Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long Private Declare Function GetDesktopWindow Lib "user32" () As Long 'Formular mit einem CommandButton und einem PictureBox-Objekt Private Sub Command1_Click() Dim wnd As Long, dc As Long 'Desktop-Fenster wnd = GetDesktopWindow 'Zugang zum Device-Context dc = GetDC(wnd) 'Rüber blitten BitBlt Picture1.hdc, 0, 0, Screen.Width / Screen.TwipsPerPixelX, Screen.Height / Screen.TwipsPerPixelY, dc, 0, 0, vbSrcCopy 'DC wieder freigeben ReleaseDC wnd, dc End Sub Kannst ja noch beliebig darin "rumfuschen" Gruß Martoeng

Monitorbild ausdrucken	99	Pauli	29.01.02 18:20
Re: Monitorbild ausdrucken	574	Dieter	29.01.02 18:41
Re: Monitorbild ausdrucken	89	Martoeng	30.01.02 10:41
Re: Monitorbild ausdrucken	469	Dieter	30.01.02 11:28
Re: Monitorbild ausdrucken	74	Martoeng	30.01.02 11:35

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