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

时间:2013-10-11 08:46:10
【文件属性】:

文件名称:[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)

网友评论

  • 还可以不错可以用
  • 基本上是可以用,但还有很多不足~~ 望改进~~
  • 基本上实现了功能
  • 还行,可以继续完善,非常感谢
  • 还可以吧 不是太好。以前遇见个好的 找不到了
  • 基本上实现了功能,这几天正在做这个,谢谢
  • 最好在完善一下,离开后不能等高对齐
  • 基本上实现了功能
  • 可以,没有有些代码产生的颤抖和闪烁。