Bu sayfayı incele tam işine yarayacak. Ayrıca captute fonksiyonu;
Private Declare Function PrintWindow Lib "user32.dll" (ByVal _ hwnd As IntPtr, ByVal hdcBlt As IntPtr, ByVal nFlags As _ UInt32) As Boolean Dim screenGrab As Bitmap
Private Sub CaptureScreen() 'captures Form1 into screenGrab screenGrab = New Bitmap(Me.Width, Me.Height) Dim g As Graphics = Graphics.FromImage(screenGrab) Dim hdc As IntPtr = g.GetHdc Form1.PrintWindow(Me.Handle, hdc, Nothing) g.ReleaseHdc(hdc) g.Flush() g.Dispose() 'could just save the screenshot: 'screenGrab.save("c:\screenshot1") End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _ System.EventArgs) Handles Button6.Click CaptureScreen()
teşekkürler
DH forumlarında vakit geçirmekten keyif alıyor gibisin ancak giriş yapmadığını görüyoruz.
Üye Ol Şimdi DeğilÜye olduğunda özel mesaj gönderebilir, beğendiğin konuları favorilerine ekleyip takibe alabilir ve daha önce gezdiğin konulara hızlıca erişebilirsin.