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

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Bakli
Новичок
Новичок
 
Сообщения: 27
Зарегистрирован: 17.11.2003 (Пн) 23:47
Откуда: Череповец МегаСити :)

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

Сообщение Bakli » 03.12.2003 (Ср) 21:42

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

A.A.Z.
Член-корреспондент академии VBStreets
Член-корреспондент академии VBStreets
 
Сообщения: 3035
Зарегистрирован: 30.06.2003 (Пн) 13:38

Сообщение A.A.Z. » 03.12.2003 (Ср) 22:20

Код: Выделить всё
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

:idea:
Нет меня больше

Amed
Алфизик
Алфизик
 
Сообщения: 5346
Зарегистрирован: 09.03.2003 (Вс) 9:26

Сообщение Amed » 03.12.2003 (Ср) 22:34

Позволю себе маленькое замечание - картинка после этого окажется в буфере обмена, чтобы её просмотреть, используй объект 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"

Благодарю за внимание 8)
Последний раз редактировалось Amed 03.12.2003 (Ср) 22:41, всего редактировалось 1 раз.

A.A.Z.
Член-корреспондент академии VBStreets
Член-корреспондент академии VBStreets
 
Сообщения: 3035
Зарегистрирован: 30.06.2003 (Пн) 13:38

Сообщение A.A.Z. » 03.12.2003 (Ср) 22:37

А, да, конечно! :roll: Забыл написать...
Нет меня больше


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: SemrushBot и гости: 7

    TopList