Private Sub Command1_Click() Load Form2 Form2.Visible = True End SubPrivate Sub Command2_Click() Unload Form1 End Sub
在form2中的按钮事件里 Private Sub Command1_Click() unload form2 '卸载 End Sub 在form1中的按钮事件里 Private Sub Command1_Click() form1.show '加载 End Sub
'Form1 Option ExplicitPrivate Sub Command1_Click() Form2.Form_Load End Sub Option ExplicitPrivate Sub Command1_Click() Unload Form2 End SubPublic Sub Form_Load() MsgBox "这是Form2 的Load事件" End Sub 这样可以不加载Form2而调用Form2中的事件
Load Form2
Form2.Visible = True
End SubPrivate Sub Command2_Click()
Unload Form1
End Sub
Private Sub Command1_Click()
unload form2 '卸载
End Sub
在form1中的按钮事件里
Private Sub Command1_Click()
form1.show '加载
End Sub
Option ExplicitPrivate Sub Command1_Click()
Form2.Form_Load
End Sub
Option ExplicitPrivate Sub Command1_Click()
Unload Form2
End SubPublic Sub Form_Load()
MsgBox "这是Form2 的Load事件"
End Sub
这样可以不加载Form2而调用Form2中的事件