vb.netのデフォルト座標でスクリーンショットを作る方法は？

Question

マウスの左クリックの座標に基づいて、画面の一部のスクリーンショットを撮りたいと思います。

Form1.MousePosition.XとForm1.MousePosition.Y

私が手：：

X: 369 Y: 256 

私が取得したい私は今、マウスを使って座標を取得し、ラベルにこれらを表示されるまで何ができる

左上隅と右下隅の座標を取得し、マウスがクリックされた場所をスクリーンショットで表示します。

これは可能ですか？どうやって？

Answer 1

ここにはCapture Screenというvb.netプログラムがあります。

作成者：2002年6月5日6時16分56秒AM：に提出マソウド（MD）、Form1.vbファイルの中

http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=309&lngWId=10

VBでスクリーンショットをキャプチャするためのコードがあります：

Protected Sub CaptureScreen() 
    Dim hSDC, hMDC As Integer 
    Dim hBMP, hBMPOld As Integer 
    Dim r As Integer 

    hSDC = CreateDC("DISPLAY", "", "", "") 
    hMDC = CreateCompatibleDC(hSDC) 

    FW = GetDeviceCaps(hSDC, 8) 
    FH = GetDeviceCaps(hSDC, 10) 
    hBMP = CreateCompatibleBitmap(hSDC, FW, FH) 

    hBMPOld = SelectObject(hMDC, hBMP) 
    r = BitBlt(hMDC, 0, 0, FW, FH, hSDC, 0, 0, 13369376) 
    hBMP = SelectObject(hMDC, hBMPOld) 

    r = DeleteDC(hSDC) 
    r = DeleteDC(hMDC) 

    oBackground = Image.FromHbitmap(New IntPtr(hBMP)) 
    DeleteObject(hBMP) 
End Sub