'在Form2中 Private Sub Form_Unload(Cancel As Integer) Form1.Show Form1.frame1.Visible=True Unload Me End Sub
Option ExplicitPrivate Sub Command1_Click() Form2.Frame1.Visible = True Form2.Frame2.Visible = False Unload Me End SubPrivate Sub Command2_Click() Form2.Frame2.Visible = True Form2.Frame1.Visible = False Unload Me End SubPrivate Sub Form_Unload(Cancel As Integer) Form2.Show End Sub
楼上的chewinggum(口香糖·向星星前进) ,应该是没看清楚题目吧!按Rick110AAA(海牛猪猪) 说的去做就可以,也可以参考这个:Private Sub Command1_Click() Form1.Frame1.Visible = True Form1.Frame2.Visible = False Form1.Show Unload Me End Sub
忘了说句,是把这段代码加到Form2 的OK 按钮里面!
Private Sub Ok_Click() Form1.show Form1.Frame1.visible = True Form1.Frame2.visible = False Unload me End Sub
private sub commandok_click() form1.frame1.visible=true form1.show unload form2 end sub
'在Form2中 Private Sub Form_Unload(Cancel As Integer) Form1.Show Form1.frame1.Visible=True Unload Me End Sub
Private Sub Form_Unload(Cancel As Integer)
Form1.Show
Form1.frame1.Visible=True
Unload Me
End Sub
Form2.Frame1.Visible = True
Form2.Frame2.Visible = False
Unload Me
End SubPrivate Sub Command2_Click()
Form2.Frame2.Visible = True
Form2.Frame1.Visible = False
Unload Me
End SubPrivate Sub Form_Unload(Cancel As Integer)
Form2.Show
End Sub
Form1.Frame1.Visible = True
Form1.Frame2.Visible = False
Form1.Show
Unload Me
End Sub
Form1.show
Form1.Frame1.visible = True
Form1.Frame2.visible = False
Unload me
End Sub
form1.frame1.visible=true
form1.show
unload form2
end sub
Private Sub Form_Unload(Cancel As Integer)
Form1.Show
Form1.frame1.Visible=True
Unload Me
End Sub