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组件。

 

下面提供源码下载：

https://download.csdn.net/download/lzhdim/15448790