| Вопрос: Фото экрана | Добавлено: 19.09.04 09:32 |
Автор вопроса:  Tigre
|
| Как поставить в форму или какой-нибудь объект фото экрана. |
| Ответы | Всего ответов: 4 |
|
Номер ответа: 1 Автор ответа: dNW Вопросов: 30 Ответов: 683 |
Профиль | | #1 | Добавлено: 19.09.04 10:39 |
|
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function GetDesktopWindow Lib "user32" () As Long Private Sub Form_Click() BitBlt hDC, 0, 0, Screen.Width, Screen.Height, GetDC(GetDesktopWindow), 0, 0, vbSrcCopy Refresh End Sub |
||
|
Номер ответа: 2 Автор ответа: dNWВопросов: 30 Ответов: 683 |
Профиль | | #2 | Добавлено: 19.09.04 10:39 |
| И не забудь AutoRedraw=True поставить | ||
|
Номер ответа: 3 Автор ответа: sne Разработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #3 | Добавлено: 19.09.04 10:50 |
| Лучше посмотреть поиск по форуму, там не то что код, там даже исходники проги выкладывали на этом специализирующейся (Kodo)... | ||
|
Номер ответа: 4 Автор ответа: Tigre Вопросов: 34 Ответов: 63 |
Профиль | | #4 | Добавлено: 19.09.04 11:15 |
| Всем спасибо! | ||
Страница: 1 |