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 '返回
Next
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查看窗体代码相关主题介绍,如果您觉得小编更新的文章只要能对粉丝们有用,就是我们最大的鼓励和动力,不要忘记讲本站分享给您身边的朋友哦!!