Как такое реализовать?

[GPP]

Нужно реализовать такую штуку. По экрану передвигаем некий квадрат который внутри прозрачный(получается что-то вроде рамки), а то что находиться внутри отображается в PictureBox. С возможностью сохранения в файл. С чего начать? Как получить к примеру изображения участка экрана для начала? Заранее огромное спасибо!

[Ronin]

Вызывай кнопку Prt Sc, копируй изображение из буфера и вырезай участок по расположению окна =))

Шутка .. Должен быть вариант лучше

[iGrok]

Ну, как вариант, GetCursorPos -> WindowFromPoint -> GetDC -> BitBlt нужной области (из GetCursorPos).
Минус тут в том, что "хрен вам, а не часть экрана". Т.е. мы получим только DC окна, которое под мышью..

UPD:
А тут предлагают делать так:

GetDesktopWindow -> GetDC -> BitBlt

А координаты определять по тому же GetCursorPos.

З.Ы. А вот как рамку наприсовать - я не знаю.

UPD:
О как:

Код: Выделить всё

Option Explicit

Private Const SRCCOPY = &HCC0020

Private Type POINTAPI
        X As Long
        Y As Long
End Type

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
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

Dim hDCScreen As Long, pa As POINTAPI
Dim tW As Long, tH As Long, tWD As Long, tHD As Long
Dim bState As Boolean

Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    hDCScreen = GetDC(GetDesktopWindow())
    tH = Picture1.ScaleHeight: tHD = tH / 2
    tW = Picture1.ScaleWidth: tWD = tW / 2
    bState = True
End Sub

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If bState Then
        GetCursorPos pa
        BitBlt Picture1.hdc, 0, 0, tW, tH, hDCScreen, pa.X - tWD, pa.Y - tHD, SRCCOPY
    End If
End Sub

Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    bState = False
End Sub


[MIT]

З.Ы. А вот как рамку наприсовать - я не знаю.

Нарисовать ее в фотошопе (или генерировать динамически) и просто присвоить картинку форме, которую можно будет, например, таскать мышкой.

[1Steps]

Код: Выделить всё

Graphics.CopyFromScreen(...)

[iGrok]

Код: Выделить всё

Graphics.CopyFromScreen(...)

А. Ё. Это ж .NET.. =)