Public Declare Function CallWindowProc& Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc&, ByVal hWnd&, ByVal Msg&, ByVal wParam&, ByVal lParam&) Public Declare Sub DragAclearcase/" target="_blank" >cceptFiles Lib "shell32.dll" (ByVal hWnd&, ByVal fAccept&) Public Declare Function DragQueryFile& Lib "shell32.dll" Alias "DragQueryFileA" (ByVal hDrop&, ByVal iFile&,ByVal lpszFile$, ByVal cch&) Public Declare Sub DragFinish Lib "shell32.dll" (ByVal hDrop&) Private Declare Function SetWindowLong& Lib "user32" Alias "SetWindowLongA" (ByVal hWnd&,ByVal nIndex&, ByVal dwNewLong&) |
参数 | 意义 |
hwnd | Long,欲为其取得信息的窗口的句柄 |
nIndex | Long,这里取GWL_WNDPROC,表示设置该窗口的窗口函数的地址 |
dwNewLong | Long,由nIndex指定的窗口信息的新值 |
procOld = SetWindowLong(Me.hwnd, GWL_WNDPROC, AddressOf WindowProc) |