熱心網(wǎng)友

見(jiàn)附件

熱心網(wǎng)友

比如有兩個(gè)窗體form1 和form2,form1為主窗體,form2在靠近form1時(shí)將被吸附form1窗體中的代碼:\'一個(gè)command控件,一個(gè)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窗體中的代碼:\'一個(gè)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運(yùn)行后基本能實(shí)現(xiàn)這功能，不過(guò)只是能是主從關(guān)系。