ник: Bellerofont
1
>retval = GetWindowRect(Form1.hwnd, winrect)
нет объекта Form1, пишите так
retval = GetWindowRect(Me.hwnd, winrect)
|
2
>retval = SetPixel(Form1.hdc, x, y, rgbval)
у объекта Access.Form нет свойства hdc.
Значение можно получить с помощью GetDC
Добавьте в модуль Module1
Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, _
ByVal hdc As Long) As Long
|
а в коде форме
Dim lngDC As Long
lngDC = GetDC(Me.hwnd)
|
затем замените
retval = SetPixel(Form1.hdc, x, y, rgbval)
на
retval = SetPixel(lngDC, x, y, rgbval
|
и в конце процедуры добавьте
Я не пытался понять, что вам надо, я просто указываю на ощибки.