WinApi рисование в VBA

[Desha]

Хочу получить контекст отображения - форма, на канвасе которой буду выводить рисунок. Почиталась. Запуталась.
Нашла, что для этого используется функция GetDC. Есть вариант подключения данной функции такой:

[DllImport("coredll.dll", EntryPoint = "GetDC")]
private static extern IntPtr GetDC(IntPtr hWnd);

В данном случае ругается на вторую строчку.

Стандартный (а может и нет, просто первым попался на глаза) метод вызова функции:

Private Declare Function GetDC Lib "coredll.dll" (hWnd)

На это выводит, что такая библиотека не найдена.

А вообще все началось с банального =) - нарисовать треугольник.
Для этого надо нарисовать три линии. Соответственно для этого:

Private Declare Function LineTo Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long

Вызов функции должен выглядеть так:

LineTo hdc, x, y

где hdc - контекст отображения. Вот с ним то и проблема

Сама форма свойств типа Canvas/Handle не имеет

[doober]

Поиск рулит

[Desha]

Помогло и очень. Спасибо.
Возник другой вопрос. Надо найти хендл окна. Функция FindWindow. Должна находиться в библиотеке User. Мне выдает что такой файл не найдет. В User32 выдает уже что нет такой функции.
И мне в моем случае именно ее использовать или FindWindowEx? Последняя для дочерних форм. Будет ли форма модуля являться дочерней по отношению к книге?

[doober]

Будет ли форма модуля являться дочерней по отношению к книге?

Нет.

А вы файл с примером не качнули?
Вот эта функция

frmDraw.Caption-это с вашей формы Caption

Function GetFormsDC()
    'working code
    'hwnd = Application.hwndDraw all over excel - update "Sub ReleaseSessionDC()"
    hwnd = FindWindow("thunderDFrame", frmDraw.Caption)
    hdc = GetDC(hwnd)
    '''appttemp to get frame hnd
    ''' dont work, might have to drill down from the perent form
    ''' will look later
    'hwnd = FindWindow("F3 Server 02d50000", frmDraw.Frame1.Caption)
    'hDC = GetDC(hwnd)
    'frmDraw.CommandButton1.Caption = hDC
End Function

[Desha]

Оказалось проблема была в описании функции. Теперь все функции видит и выполняет, но рисует все равно не на окне формы, а на окне Excel'я. Причем как оказалось, путем несложных проверок, окно формы вообще Visible=Enable=false.

[Desha]

Разобралась.

hwnd = FindWindow("thunderDFrame", frmDraw.Caption)

Вместо "thunderDFrame" по идее можно использовать null либо nil.
В VBA такое не работает. Вместо этого надо использовать "vbNullString"

frmDraw.Caption

у меня тоже не работал. поэтому писалось прямо

Итого:

hwnd = FindWindow(vbNullString, "UserForm1")

Тема закрыта.