Form1:
Private Sub Command1_Click()
Form2.Show
Me.Hide
End Sub
Private Sub Form_Unload(Cancel As Integer)
End ’关闭Form1,程序结束
End Sub
Fomr2:
Private Sub Command2_Click()
Form1.Show
Me.Hide
End Sub
Private Sub Form_Unload(Cancel As Integer)
Form1.Show 关闭Form2,唤出Form1
End Sub
升级后,多了一组用Region折起来的“升级支持”
Form1:
#Region "升级支持"
Private Shared m_vb6FormDefInstance As Form1
文章整理:西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢!




