vb.net查看窗体代码 vbnet web窗体

vb.net 怎样判断某个窗体是否打开

Dim F1 As New Datasystem.Form2 '实例化窗体

兰考网站制作公司哪家好，找创新互联公司！从网页设计、网站建设、微信开发、APP开发、响应式网站设计等网站项目制作，到程序开发，运营维护。创新互联公司从2013年创立到现在10年的时间，我们拥有了丰富的建站经验和运维经验，来保证我们的工作的顺利进行。专注于网站建设就选创新互联公司。

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

F1.Show() '如果没有打开的窗体中未找到，重新打开窗体

用鼠标移动到右上方的 “解决方案资源管理器”的“视图设计器”图标（见下图），可以看到系统会显示“视图设计器”文字，单击就可能出现窗体：

如果用鼠标单击该图标左边的“查看代码”按钮，就进入代码窗口；

将NewForm设置为全局变量就可以了，如果新建窗口比较多，就设置为数组，例如：

Public Class Form1

Dim NewForm(10) As Form

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

NewForm(0) = New Form

NewForm(0).Show()

End Sub

End Class

分享文章：vb.net查看窗体代码 vbnet web窗体
URL标题：http://6mz.cn/article/hiogdd.html