Где отрисовываются такие элементы как label, shape, image? - VB

Узнай цену своей работы

Формулировка задачи:

Где отрисосвываются такие элементы как label, shape, image? И как получить скрин этого окна зная его hwnd, hdc? Пробовал функцией BitBlt она эти элементы не видит, хотя если на Picture их разместить и выводить в него изображение функцией BitBlt через таймер то становится видно как прорисовка BitBlt и прорисовка label, shape, image перекрывают друг друга. Значит они прорисовываются в одном устройстве. В нэте ток функции подобных скринов через съёмку рабочего стола и последующего вырезания нужного куска мне так не надо.

Решение задачи: «Где отрисовываются такие элементы как label, shape, image?»

textual
Листинг программы
  1. Public Sub Hook(Form As Form)
  2.     Dim Prev As Long, Ctl As Object, hwnd As Long
  3.    
  4.     For Each Ctl In Form.Controls
  5.         If TypeOf Ctl Is CommandButton Or _
  6.            TypeOf Ctl Is PictureBox Or _
  7.            TypeOf Ctl Is TextBox Then
  8.             hwnd = Ctl.hwnd
  9.             Prev = SetWindowLong(hwnd, GWL_WNDPROC, AddressOf WindowProc)
  10.             SetProp hwnd, "prev", Prev
  11.             SetProp hwnd, "ptr", ObjPtr(Ctl)
  12.         End If
  13.     Next
  14. End Sub

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


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

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

15   голосов , оценка 3.933 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы