PrintScreen и подобные кнопки

[Bakli]

Какая команда служит для Сохранения снимка экрана(PrintScreen)?
Где можно найти список таких команд(подобных этой: копировать, вставить, т.е. то что есть на кнопках, а прописать проблемма)?

[A.A.Z.]

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

Private Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Const VK_SNAPSHOT As Long = &H2C
Const KEYEVENTF_KEYUP = &H2

Sub MakeScreenShot()
keybd_event VK_SNAPSHOT, 0, 0, 0 'нажать PrintScreen
keybd_event VK_SNAPSHOT, 0, KEYEVENTF_KEYUP, 0 'отпустить
End Sub


[Amed]

Позволю себе маленькое замечание - картинка после этого окажется в буфере обмена, чтобы её просмотреть, используй объект Clipboard...

Пример: добавь на форму в левый верхний угол ImageBox Image1 и вставь в форму код:

Private Sub Image1_Click()
MakeScreenShot
With Image1
.Picture = Clipboard.GetData
.Stretch = True
End With
End Sub

Private Sub Form_Resize()
With Image1
.Height = Me.ScaleHeight
.Width = Me.ScaleWidth
End With
End Sub
А сохраняется картинка с помощью метода SavePicture: добавь на форму невидимый PictureBox Picture1 и допиши:

Picture1.Picture = Clipboard.GetData
SavePicture Picture1.Picture, "C:\screenshot.bmp"
Благодарю за внимание

[A.A.Z.]

А, да, конечно! Забыл написать...