| |
|
|
| | Вот с API зани_МАЮСЬ
http://slil.ru/26067027 | |
| |
| |
| |
|
|
| | 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
|
и в конце процедуры добавьте
Я не пытался понять, что вам надо, я просто указываю на ощибки. | |
| |
| |
|
|
| |
|
|
| | Почему-то закрашивается только область выделения........
http://slil.ru/26068057 | |
| |
| |
| |
 16 Кб. |
|
| | Форма имеет дочерние окна ..
Так устроит (см. приложение)? | |
| |
| |
| |
|
|
| | Чудесно!!!
А вопрос вот -Форма имеет дочерние окна ..???
Это где они???
на форме в режиме конструктора нет дочерей.... | |
| |
| |
огромное Спасибо ВАМ! 
.......
....... 
