vb.net窗口集合 vb数据集控件

vb.net如何查找打开的窗口

将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

相关问答

Q1: VB.net 界面所有控件的集合是什么？为什么Me.Controls只包含了最底层的Plane？？

对于窗体中的容器控件，比如 GroupBox，Panel 等，它仅仅访问了这些控件本身，而不会去访问它们的子控件。为了实现你所要求的功能，需要将上述代码修改：

Public Sub IterateThroughControls(ByVal parent As Control)

For Each c As Control In parent.Controls

MessageBox.Show(c.ToString())

If c.HasChildern Then

'利用递归实现容器子控件的访问，重复循环遍历控件，调用自身函数

IterateThroughControls(c)

End If

Next

End Sub

调用方法：

IterateThroughControls(TabControl1) 'tabcontrol1为控件名，也可用groupbox1等

此外，判断遍历的控件是不是相应的文本控件，或者combobox控件，可用此代码判断

For Each t As Control In Me.Controls

If TypeOf t Is TextBox Then

MsgBox(t)

End If

Next

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

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() '如果没有打开的窗体中未找到，重新打开窗体