vb.net遍历窗体菜单 vbs 遍历文件

vb.net 历遍项目的窗体

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

        Dim myAssembly As System.Reflection.Assembly = System.Reflection.Assembly.GetExecutingAssembly()

        Dim TheTypes As Type() = myAssembly.GetTypes()

        Dim myType As Type

        For Each myType In TheTypes

            If myType.BaseType.ToString = "System.Windows.Forms.Form" Then

                ListBox1.Items.Add(myType.Name)

            End If

        Next

    End Sub

相关问答

Q1: vb.net中如何遍历程序窗体中的控件？并读写控件的数据。

Public Sub GetAllControls(ByVal InContainer As Control, ByRef RecieveList As ListBox)

        For i As Integer = 0 To InContainer.Controls.Count - 1

            If InContainer.Controls.Item(i).Text  "" Then

                GetList.Items.Add(InContainer.Controls.Item(i).Text  vbCrLf)

            End If

            If InContainer.Controls.Item(i).Controls.Count  0 Then

                GetAllControls(InContainer.Controls.Item(i), GetList)

            End If

        Next

    End Sub

这段代码可行，但不能遍历菜单和工具栏，要按需要修改

Q2: vb 遍历 窗体

Exit For 你自己找到后就退出循环vb.net遍历窗体菜单了

还有循环vb.net遍历窗体菜单的只是已加载的窗体 所以如果你要达到你的目的 可以再软件启动时把所有窗体都 load 有需要加载时 再按你上面的方法去show

vb.net遍历窗体菜单的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vbs 遍历文件、vb.net遍历窗体菜单的信息别忘了在本站进行查找喔。