Страница: 1 |
Как сделать снимок экрана, сохранить его в файле и по возможности с выбором качества(8,16,32 бит)..... Хотябы как сохранить в файле....
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal _ Private Const VK_SNAPSHOT = &H2C Private Sub Command1_Click() End Sub И на этом спасибо. И на этом спасибо, спасибо. Страница: 1 |
Вопрос: PrintScreen & Saved
Добавлено: 08.02.04 16:50
Автор вопроса: Дмитрий Щапов
Ответы
Всего ответов: 6
Номер ответа: 1
Автор ответа:
boevik
Хранитель чата
ICQ: 137392264
Вопросов: 8
Ответов: 557
Web-сайт:
Профиль | | #1
Добавлено: 08.02.04 17:12
bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
keybd_event VK_SNAPSHOT, 1, 0, 0
Image1.Picture = Clipboard.GetData(vbCFBitmap)
SavePicture Image1.Picture, "c:\pr.bmp"
Номер ответа: 2
Автор ответа:
Дмитрий Щапов
Вопросов: 71
Ответов: 321
Профиль | | #2
Добавлено: 09.02.04 11:19
Номер ответа: 3
Автор ответа:
Дмитрий Щапов
Вопросов: 71
Ответов: 321
Профиль | | #3
Добавлено: 09.02.04 11:19
Номер ответа: 4
Автор ответа:
dNW
Вопросов: 30
Ответов: 683
Профиль | | #4
Добавлено: 09.02.04 16:53
И от меня спасибо-бо-бо
Номер ответа: 5
Автор ответа:
someone
Вопросов: 215
Ответов: 1596
Web-сайт:
Профиль | | #5
Добавлено: 28.10.04 12:44
спасибо!!!!!!!!!!!!!!!!!!!!!!!!!!
Номер ответа: 6
Автор ответа:
Александр
Разработчик Offline Client
ICQ: 204034
Вопросов: 106
Ответов: 1919
Профиль | | #6
Добавлено: 28.10.04 15:10
незачто! обращайтесь еще! ))))