Где отрисовываются такие элементы как label, shape, image? - VB
Формулировка задачи:
Где отрисосвываются такие элементы как label, shape, image?
И как получить скрин этого окна зная его hwnd, hdc?
Пробовал функцией BitBlt она эти элементы не видит, хотя если на Picture
их разместить и выводить в него изображение функцией BitBlt через таймер то становится
видно как прорисовка BitBlt и прорисовка label, shape, image перекрывают друг друга.
Значит они прорисовываются в одном устройстве.
В нэте ток функции подобных скринов через съёмку рабочего стола и последующего вырезания нужного куска
мне так не надо.
Решение задачи: «Где отрисовываются такие элементы как label, shape, image?»
textual
Листинг программы
- Public Sub Hook(Form As Form)
- Dim Prev As Long, Ctl As Object, hwnd As Long
- For Each Ctl In Form.Controls
- If TypeOf Ctl Is CommandButton Or _
- TypeOf Ctl Is PictureBox Or _
- TypeOf Ctl Is TextBox Then
- hwnd = Ctl.hwnd
- Prev = SetWindowLong(hwnd, GWL_WNDPROC, AddressOf WindowProc)
- SetProp hwnd, "prev", Prev
- SetProp hwnd, "ptr", ObjPtr(Ctl)
- End If
- Next
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д