如何实现像winamp那种两个form之间的吸附效果呢？

Question

to ipan(蚂蚁)
  叫什么名字呢？

Answer 1

请参考：http://www.dapha.net/down/list.asp?id=1831

Answer 2

是不是只要取得form1的left top height width值,再对form2的相关值处理一下就可以了
不太懂,随便说说

Answer 3

form2通过findwindow判断form1是否存在，如果存在，取得位置信息，再根据信息调整自己位置。

Answer 4

拦截 WM_MOVING 事件，自己做判断与处理

Answer 5

to wxy_xiaoyu:
 我试过你的那个例子了，不符合我的要求，不过还是很谢谢你哈。我要的是副窗体可以随便移动，但是在主窗体下界的周围时，就会被吸附到主窗体上的那种效果to tolimit：
邮箱是[email protected]其他朋友说的，我都会试一试哈。谢谢你们了。

Answer 6

那个很简单啊只要控制两个 FORM 的相对位置就可以了啊

Answer 7

''''from1:
Private Sub Form_Load()
    Form2.Move Form1.Left + Form1.Width, Form1.Top
    Form2.Show vbModeless, Form1
    
End Sub
==================================================================
''''form2:(放一个TIMER)
Private Sub Form_Load()
    Timer1.Interval = 100
    Timer1.Enabled = True
End SubPrivate Sub Timer1_Timer()
    If Me.Left <> Form1.Left + Form1.Width Then Me.Left = Form1.Left + Form1.Width
    If Me.Top <> Form1.Top Then Me.Top = Form1.Top
End Sub