Создание скриншота

[Jedi]

Как сделать скриншот средсвами VB. Тоесть какой API нужно воспользоваться, чтобы поместить скриншот в буфер обмена???

[FaKk2]

Jedi

Так VB или API?

[JohnCR]

http://bbs.vbstreets.ru/download.php?id=2680 - посмотри это.
Чтобы снять весь экран, а не только активную форму убери оттуда ALT.

[tyomitch]

JohnCR, твой метод портит содержимое буфера обмена. Совершенно зря.

[Jedi]

Ну или VB или API, но так чтобы работало...

[tyomitch]

http://www.developerfusion.com/show/181/

[ism]

...чтобы поместить скриншот в буфер обмена

Код JohnCR, прекрасно подходит

Можно, конечно и в пичбокс, а потом скопировать из пичбокса в буфер

[Arcanoid]

Общий подход такой:

hDesktopDC = GetDC(0) 'берём контекст десктопа
pixel_array = GetDIBits(hDesktopDC) 'получаем пиксели десктопа
global_mem = GlobalAlloc(pixel_array) 'copy(пиксели -> глобал. мемори)
EmptyClipboard() 'чистка буфера обмена (если надо)
SetClipboardData(CF_DIB, global_mem) 'заносим пиксели в буфер обм.

[Leo!!!]

Можно вот так:
Declare Function GetDesktopWindow Lib "user32.dll" () As Long Declare Function GetDC Lib "user32.dll" (ByVal hWnd As Long) As Long Declare Function ReleaseDC Lib "user32.dll" _ (ByVal hWnd As Long, ByVal hDC As Long) As Long Declare Function BitBlt Lib "GDI32.dll" _ (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 SUB SaveScreen ScaleMode = vbPixels Move 0, 0, Screen.Width + 1, Screen.Height + 1 dwRop = &HCC0020 hwndSrc = GetDesktopWindow() hSrcDC = GetDC(hwndSrc) Call BitBlt(hDC, 0, 0, ScaleWidth, ScaleHeight, hSrcDC, 0, 0, dwRop) Call ReleaseDC(hwndSrc, hSrcDC) SavePicture frmSCREEN.Image, scrfile$ END SUB