как сделать скриншот

[BOO]

как?

[_NeoN_]

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

Public Declare Function GetDesktopWindow Lib "user32" Alias "GetDesktopWindow" () As Long
Public Declare Function GetDC Lib "user32" Alias "GetDC" (ByVal hwnd As Long) As Long

private sub form_load()
dim ret as long

ret=getdesctopwindow()
ret=getdc(ret)

end sub


вот.. в ret будет HDC картинки десктопа, далее делай с ней че хочешь.. можешь в picturebox запихать функцией BitBlt потом сохранить[/code]

[Георгий]

Можно нажать Print Screen

[_NeoN_]

тоже вариант

[Amed]

_NeoN_ как сохранить из PictureBox?

Просто так не получится - не изменяется параметр Picture ((

Я уже постил такую тему и пришёл к ответу, что проще всего сделать PrintScreen

[sanches]

все что нарисовано на PictureBox'е достается методом, то етсь свойством Image, только AutoRedraw еще надо поставить, насколько я помню

[Мика]

Если надо сохранить картинку то

Picture1.AutoRedraw=True
SavePitcure Picture1.Image, "C:\Pic001.bmp"

Он сохраняет в BMP [/code][/quote]