AddressOf - не хотит работать...

[anian]

Код: Выделить всё

Public Function WindowProc(ByVal hwnd As Long, _
    ByVal uMsg As Long, ByVal wParam As Long, _
    ByVal lParam As Long) As Long


    Select Case (uMsg)

        Case WM_MOUSEMOVE:
                hBr = CreateSolidBrush(vbMagenta)
                FillRect hdc, tR, hBr
            WindowProc = 0
        Case Else
            WindowProc = (CallWindowProc(lpProcOrg, hwnd, uMsg, wParam, lParam))
    End Select

End Function


Private Sub SubClass(ByVal hwnd As Long)
    lpProcOrg = SetWindowLong(hwnd, GWL_WNDPROC, AddressOfWindowProc)
End Sub

Private Sub UnSubClass(ByVal hwnd As Long)
    Dim lngRet&
    lngRet = SetWindowLong(hwnd, GWL_WNDPROC, lpProcOrg)
End Sub

Private Sub UserControl_Initialize()
    SubClass hwnd
End Sub

Private Sub UserControl_Terminate()
    UnSubClass hwnd
End Sub


Код стоит в юзер контроле. Ругается на использование AddressOf в сабе SubClass- почему, не понятно...Мож, знает кто?

[hCORe]

WindowProc должен быть в модуле. Неприятно, но факт.

[Max!]

И вообще весь код лучше в модуль помещать (Тот каторый ты здесь привёл) , и AddressOfWindowProc - пробелчик забыл , может дело в этом ? ( AddressOf WindowProc)

[anian]

2Max!: Не, пробельчик не забыл...эт уже када пост писал...

2hCORe: Были у меня подозрения, шо в модуле, но так хотелось в одно все в одно файло запихать...

Спасибо!