Проблема с использованием API в VBA

[lacelho]

Нород, у меня такая проблема: не могу заставить работать процедуру LineTo из стандартной библиотеки gdi32.dll, причём один и тот же код с обычным VB работает на ура, а вот в VBA не хочет, и ошибку никакую не выдает, только нолик при вызове результата отработки процедуры, сообщая тем самым об ошибке внутри библиотеки. Вобщем, не знаю даже что и делать теперь, может кто уже сталкивался с такой проблемой и знает как ее можно решить? Подскажите пожалуйста.

[GSerg]

У меня что-то где-то почему-то не работает. Пожалуйста, догадайтесь, как выглядит мой код и что в нём не так...

[lacelho]

код я брал из примера, находящегося по этой ссылке: http://www.vb.kiev.ua/ref/w32api/showdoc.php?f=lineto
и еще по этой: http://mech.math.msu.su/~vfnik/WinApi/l/lineto.html, тут по-проще

[Viper]

И что же не работает? Вернее как не работает? Как у тебя применен код из ссылки?

[lacelho]

Из первого примера код я вставил как есть, без изменений, сначала VB6, там все работало как нужно, потом вставил в VBA Excell, там сразу начались проблемы, пришлось убрать самые последние функции, связанные с движением мышки на картинках и кликом на кнопке(код с lineto находится выше и исполняется при загрузке формы), и сам редактор код пропустил, но результата не было...
А во втором случае код выглядел таким образом:

Declare Function LineTo Lib "gdi32.dll" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
Dim retval As Long
Form1.ForeColor = RGB(255, 0, 0)
retval = LineTo(0, 100, 50)

результат тот-же, и если запросить состояние переменной retval, то получится нолик

[GSerg]

И чего ты хочешь, передавая 0 в качестве hDC?

[lacelho]

А сколько нужно?

[tyomitch]

А сколько нужно?

Лол, в цитаты года!


Где линию-то рисуешь? на форме? значит, её hDC и нужно передавать.

[lacelho]

а как узнать её hDC

[lacelho]

Нашел я в справке про этот hDC и как его вызвать, вроде бы теперь работает и линия появляется, но сразу же исчезает, как-будто ее сразу стирают. Что можно сделать?
Код:

Private Declare Function FindWindow Lib "user32" _
Alias "FindWindowA" _
(ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long

Private Declare Function LineTo Lib "gdi32" _
(ByVal hdc As Long, _
ByVal X As Long, _
ByVal Y As Long) As Long


Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long

Public Sub CommandButton1_Click()
Dim retval As Long
Dim hwnd As Long
Dim hdc As Long
hwnd = FindWindow("ThunderDFrame", UserForm1.Caption)
hdc = GetDC(hwnd)
UserForm1.ForeColor = RGB(255, 0, 0)
retval = LineTo(hdc, 100, 50)
MsgBox retval
End Sub

[alibek]

lacelho, твое настойчивое желание ходить по граблям конечно нужно уважать, но посмотри все-таки свойства hDC и AutoRedraw.

[lacelho]

Народ, ну ладно прикалываться: да, чего-то не знаю пока, но ведь для того и существуют форумы, чтобы помогать новичкам, разве не так?
Вобщем, не нашел я как для форм VBA устанавливать параметр autoredraw, может подскажите?

[alibek]

Сорри, не заметил, что это VBA.

[lacelho]

Что-же мне теперь делать? Как справиться с проблемой?

[tyomitch]

Ну не иначе, придётся сабклассить форму и ловить WM_PAINT...

[lacelho]

А как это? Кодом или ссылочкой не поделитесь?

[tyomitch]

Поиск по WM_PAINT, как ни странно, помогает.