Print_Screen

[13GHOST]

Как сделать Print_Screen и не выводить это на Пикчер бокс а сразу же созранить в БМП

[GSerg]

А как ты делаешь выведение в пикчербокс?

[13GHOST]

вот так:

Dim wHwnd As Long, wDC As Long
wHwnd = GetDesktopWindow()
wDC = GetDC(wHwnd)
DoEvents

BitBlt Picture1.hdc, 0, 0, Picture1.Width \ Screen.TwipsPerPixelX, Picture1.Height \ Screen.TwipsPerPixelY, wDC, 0, 0, vbSrcCopy

ReleaseDC hwnd, wDC

[kirrun]

Хм... а не проще послать кнопку ПринтСкрин, а потом из буфера картинку зафигачить?

[Amed]

Не проще %)

А сохранить можно после зафигачивания картинки в PictureBox:

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

Picture1.AutoRedraw = True
Picture1.Picture = Picture1.Image
SavePicture Picture1.Picture, "..."


[Igor_123]

В мсдн есть пример

[Igor_123]

Amed Супер!!! И де ты раньше был???

[13GHOST]

Дык без пикчера хотелось бы, а как рисунок из памяти достать? И ваще этот способ хреновый в DirectX играх (Warcraft...) он не катит...

[Amed]

GetDIBits