VB6 磁性移动窗体类模块MagneticFormHelper使用
以前根据Winamp的效果编写一个磁性移动窗体类模块MagneticFormHelper，现放上来参考。
' 使用方法：
' 1.定义类变量
' 2.用类属性设置磁性主窗体，子窗体，磁性吸附距离
' 3.在各窗体某对象的MouseDown和MouseMove事件里使用类方法ctlMouseDown和ctlMouseMove
' 4.如有必要，可以设置磁性窗体最前，隐藏，缩小成条型，使用时请参考Winamp的效果
'
' 备注：因为本类模块是模仿Winamp效果，因此各磁性窗体的原始大小为275*116，条型大小为275*14，单位Pixel。实际中窗体大小与该原始大小无关。
点击磁性移动窗体类模块MagneticFormHelper下载，请先运行 Run Me First.bat 文件注册该DLL组件。
下面提供源码下载：