VB仿QQ伸缩吸附窗体完整代码的认识.doc

[原创]VB仿QQ伸缩吸附窗体完整代码 (2006-10-18 19:19:54)转载▼ ??? 苦战了两个晚上,终于完成完全仿QQ窗口的VB代码.窗口移动时可以捕获屏幕边缘左右和上边缘,并改变虚框的形状或位置来提示用户已经捕获.捕获后鼠标离开时会自动缩入,鼠标移到边缘时又显示出来. ??? 改变虚框形状的技术来源于网上流传的仿Winamp磁性窗体源码,这部分内容对我来说还是很深奥难懂的,但依样画葫芦,还是画出来了~~ ??? 只需建立一个标准模块,放入以下代码,按说明在要实现捕获功能的窗口上简单调用本模块函数就可以了.本来想做成一个类模块的,但不知道怎么建立时钟控件,而且AddressOf关键字在类模块中不能用,其他技术又不懂,只好搞成个标准模块了. ? Option Explicit *************************************************************************************************** 使用说明: ??? 在窗体中放置一个时钟控件,在窗体的load事件中调用本模块过程 DockWindow(Me, Me.Timer1),UnLoad事件中 调用本模块 StopDock(Me)过程,在时钟控件的Timer事件中调用本模块的 CatchMouseMove() 过程. ???????????????????????????????????????????????????????????????????????????? 2006年10月18日晚完成 *************************************************************************************************** **************************************************************** ??????????????????? 用于API函数的结构 **************************************************************** 屏幕点坐标 Private Type POINTAPI ??? X As Long ??? Y As Long End Type 矩形坐标 Private Type RECT ??? x1 As Long ??? y1 As Long ??? x2 As Long ??? y2 As Long End Type ***************************************************************** ??????????????????? API函数及常量定义 ***************************************************************** Private Declare Sub CopyMemory Lib kernel32 Alias RtlMoveMemory (pDest As Any, pSrc As Any, ByVal ByteLen As Long) Private Declare Function CallWindowProc Lib user32 Alias CallWindowProcA (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Private Declare Function SetWindowLong Lib user32 Alias SetWindowLongA (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function GetCursorPos Lib user32 (lpPoint As POINTAPI) As Long Private Declare Function GetWindowRect Lib user32 (ByVal hwnd As Long, lpRect As RECT) As Long Private Declare Function MoveWindow Lib user32 (ByVal hwnd As Long, ByVal X As Long, ByVal Y As Long, ByVa