Захват изображения с экрана

[Zer]

Хотелось-бы поинтересоваться, кто какие способы знает. В голову приходит лишь имитация нажатия PrintScreen, а затем считать картинку из буфера... Но при этом поганится содержимое буфера, а чтобы его сохранить надо его считать, потом обратно... Вообщем очень муторно. Так вот хотелось-бы услышать ваши мысли по этому поводу.

[tyomitch]

гугли GetDC

[BV]

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

Option Explicit

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

Private Sub Form_Load()
    Dim hRet As Long
    hRet = GetDC(0)
    'frmMain.AutoRedraw = True
    BitBlt hDC, 0, 0, Screen.Width / Screen.TwipsPerPixelX, _
        Screen.Height / Screen.TwipsPerPixelY, hRet, 0, 0, vbSrcCopy
End Sub

[Zer]

Благодарю... Вроде всё работает.

[Zer]

Одна проблемка. При проделывании этих махинаций и копировании куска экрана в picture изображение этого куска экрана появляется, а св-во picture не меняется... Надо-бы ещё и в файл сохранить...

[BV]

Picture1.Picture = Picture1.Image

[Zer]

Угую Попробую...

[eugene2005]

Dim hDesk, hDeskDC
hDesk = GetDesktopWindow()
hDeskDC = GetDC(hDesk)
BitBlt Picture1.hDC, 0, 0, Width, Height, hDeskDC, 0, 0, SRCCOPY
Picture1.Refresh



----------
Private Sub mnuOpen_Click()

Dim MyPic As StdPicture
Dim FileName As String
FileName = FileDialog(Me, False, "Open Picture File", "Picture Files|*.jpg;*.jpeg;*.gif;*.bmp;*.wmp;*.rle;*.cur;*.ico;*.emf|All Files [*.*]|*.*")

If Len(FileName) > 0 Then
On Error Resume Next
Set MyPic = LoadPicture(FileName)
If Err.Number = 0 Then
Set m_Image = New cImage
m_Image.CopyStdPicture MyPic
If mnuAutosize.Checked Then SetFormSize m_Image
AdjustScrollBars m_Image
Me.Caption = App.Title & " - " & FileTitleOnly(FileName)
mnuSave(0).Enabled = True
Else
MsgBox "Can not load picture file" & vbCrLf & """" & FileName & """", vbExclamation, "File Load Error"
End If
Set MyPic = Nothing
End If

End Sub

--------------

как можно перебросить вот сюда
m_Image.CopyStdPicture MyPic
без сохранения файла в БМП и загрузки его заново
Set MyPic = LoadPicture(FileName)