文件名称:[VB]Form实现磁性窗体(Dock)
文件大小:3KB
文件格式:7Z
更新时间:2013-10-11 08:46:10
粘黏窗体 磁性窗体 Dock 千千静听 VB
早期(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
【文件预览】:
magnet
----工程1.vbw(139B)
----Adsorption.bas(6KB)
----工程1.vbp(676B)
----Form1.frm(1KB)
----Form2.frm(875B)