vb如何实现窗体吸附?

热心网友

见附件

热心网友

比如有两个窗体form1 和form2,form1为主窗体,form2在靠近form1时将被吸附form1窗体中的代码:\'一个command控件,一个timer控件, erval=10Private Sub Command1_Click()Form2。ShowEnd SubPrivate Sub Form_Load()blnA = FalseEnd SubPrivate Sub Timer1_Timer() If blnA = True Then Form2。Left = Form1。Left + Form1。Width Form2。Top = Form1。Top - intA End IfEnd Subform2窗体中的代码:\'一个timer控件, erval=10Private Sub Timer1_Timer()If Abs(Me。Left - (Form1。Left + Form1。Width)) < 150 Then Me。Left = Form1。Left + Form1。Width intA = Form1。Top - Form2。Top blnA = TrueElse blnA = FalseEnd IfEnd Submodule1中的代码:Public blnA As BooleanPublic intA As Integer运行后基本能实现这功能，不过只是能是主从关系。