[VB]Form实现磁性窗体(Dock)

早期(2006年3月)写的一个使用VB子类化实现的Dock Form 调用了几个API做子类化拦截WM_SIZE和WM_MOVE消息 默认Form1就是主窗体 由于年代久远,代码水平不高,2010年9月时,又用VC实现了一个,效果比这个要好一点,blog地址是 http://blog.csdn.net/geoh/archive/2010/09/13/5880756.aspx 原理: 只用加入此bas模块,然后在Form_Load中加入 prevWndProc = GetWindowLong(Me.hwnd, GWL_WNDPROC) SetWindowLong Me.hwnd, GWL_WNDPROC, AddressOf WndProc 即可 VB的原文发布在Vbgood,地址在 http://www.vbgood.com/viewthread.php?tid=31227