Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Screenshot
Autor: hans
Datum: 13.07.02 15:42
neeich habs schon gehabt aber trotzde danke desist der code Option Explicit ' zunächst die benötigten 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 Private iMin As Integer Private Sub Form_Load() ' Timer initialisieren Timer1.Interval = 60000 Timer1.Enabled = True ' PictureBox auf Bildschirmgröße bringen und ' unsichtbar machen With Picture1 .BorderStyle = 0 .Move 0, 0, Screen.Width, Screen.Height .Visible = False End With End Sub Private Sub Label5_Click() End Sub Private Sub Timer1_Timer() ' Minuten hochzählen iMin = iMin + 1 If iMin = Text1 Then iMin = 0 SaveScreen End If End Sub Private Sub SaveScreen() ' aktuellen Bildschirm-Inhalt in PictureBox ' zwischenspeichern Static iBild As Integer Dim hWnd As Long Dim DC As Long With Picture1 ' Desktop-Fenster hWnd = GetDesktopWindow() ' Zugang zum Device-Context DC = GetDC(hWnd) ' in PictureBox blitten .AutoRedraw = True .Cls BitBlt .hdc, 0, 0, _ Screen.Width / Screen.TwipsPerPixelX, _ Screen.Height / Screen.TwipsPerPixelY, DC, 0, 0, _ vbSrcCopy ' DC wieder freigeben ReleaseDC hWnd, DC ' Picture-Inhalt speichern .Picture = .Image .AutoRedraw = False iBild = iBild + 1 SavePicture .Image, _ Pfad + "ild" + CStr(iBild) + ".bmp" End With End Sub

Screenshot	84	cdhunter	12.07.02 23:20
Re: Screenshot	306	Dieter	12.07.02 23:38
Re: Screenshot	90	hans	13.07.02 14:11
Re: Screenshot	38	hans	13.07.02 14:25
Re: Screenshot	37	hans	13.07.02 14:30
Re: Screenshot	37	hans	13.07.02 14:36
Re: Screenshot	210	Dieter	13.07.02 14:46
Re: Screenshot	33	hans	13.07.02 14:49
Re: Screenshot	264	Dieter	13.07.02 15:10
Re: Screenshot	40	hans	13.07.02 15:42

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