'''form1 的代码: Option ExplicitPublic form1_n As Integer Private Sub Form_Load() form1_n = 2 End SubPrivate Sub Command1_Click() Load Form2 Form2.Show
End SubPrivate Sub Timer1_Timer() If Form2.form2_n <> form1_n Then MsgBox Form2.form2_n End End If End Sub '''form2 的代码: Option ExplicitPublic form2_n As IntegerPrivate Sub Form_Load() form2_n = Form1.form1_n + 1 Form1.Timer1.Enabled = True End Sub
调用的时候记住form2.变量名(函数名)
Option ExplicitPublic form1_n As Integer
Private Sub Form_Load()
form1_n = 2
End SubPrivate Sub Command1_Click()
Load Form2
Form2.Show
End SubPrivate Sub Timer1_Timer()
If Form2.form2_n <> form1_n Then
MsgBox Form2.form2_n
End
End If
End Sub
'''form2 的代码:
Option ExplicitPublic form2_n As IntegerPrivate Sub Form_Load()
form2_n = Form1.form1_n + 1
Form1.Timer1.Enabled = True
End Sub
把变量设为全局变量
-----------------------------------
那么怎样才能比较 彻底地 在 form1 控制关闭 form2 呢?谢谢,新手,最好给出代码~~~
Form2.Show
Form2.Command1 = TrueEnd Sub