重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
1、如果上一个窗体是程序的主窗体(默认是程序的第一个窗体),
十余年的昔阳网站建设经验,针对设计、前端、开发、售后、文案、推广等六对一服务,响应快,48小时及时工作处理。全网整合营销推广的优势是能够根据用户设备显示端的尺寸不同,自动调整昔阳建站的显示方式,使网站能够适用不同显示终端,在浏览器中调整网站的宽度,无论在任何一种浏览器上浏览网站,都能展现优雅布局与设计,从而大程度地提升浏览体验。创新互联公司从事“昔阳网站设计”,“昔阳网站推广”以来,每个客户项目都认真落实执行。
则不能关闭这个窗体,只能隐藏(Me.Hide())这个窗体,否则整
个程序就被关掉了。
2、如果上一个窗体不是程序的主窗体,可以用Me.Close()
关闭。
Dim F1 As New Datasystem.Form2 '实例化窗体
For Each na As Form In Application.OpenForms '打开窗体的集合
If na.ProductName = F1.ProductName AndAlso na.Name = F1.Name 0 Then '判断程序集的产品名称和窗体名称是否已存在打开的窗体中
If na.WindowState = FormWindowState.Minimized Then '判断窗体是否最小化
na.WindowState = FormWindowState.Normal '还原窗体
End If
na.Activate() '激活窗体
Return '返回
End If
Next
F1.Show() '如果没有打开的窗体中未找到,重新打开窗体
VB6.0打开窗体:
'Form1
Option Explicit
Private Sub Command1_Click()
Form2.Show
End Sub
VB.net打开窗体:
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Form2.Show()
End Sub
可以把想要的窗体放字典里,比如
Dictionarystring,Form dic = new ...
{
{"Form1", Form1}
}
调用:
Form f1 = dic["Form1"]