Public F2 As New Form2() ‘定义Form1的公用变量实例 Sub Main() Application.Run(F1) ‘这句话表明程序启动了modele后,会接下来启动f1,即form1的一个实例 End SubEnd Module ''''Form1.vbClass Form1 ... Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click F2.Show() ''''利用公用变量 F1.hide() End SubEnd Class ''''Form2.vbClass Form2 ... Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click F1.Show() F2.Hide() End SubEnd Class
文章整理:西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢!




