Где отрисовываются такие элементы как 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

15   голосов , оценка 3.933 из 5
Похожие ответы