2010-01-28 48 views
-1

我想列出当前项目中的所有表单。示例 listbox1.items.add(form1.name & form1.text)获取vb.net中的所有表单详细信息

我想加载当前项目中的所有表单详细信息。

下面的代码只给出了打开的表单。

For linti As Integer = Application.OpenForms.Count - 1 To 0 Step -1 
     Application.OpenForms.Item(linti).Text 
     Application.OpenForms.Item(linti).name 
    Next 

我想要所有的表格及其文本。我做什么,先生,请帮我

+1

好吧,如果OP常用问这样无聊的问题,他可能永远不会得到一个可以接受的答案。 – 2010-01-28 06:59:15

+0

我将不得不采取回:http://stackoverflow.com/questions/692514/how-can-i-change-form-shape-in​​-vb-net/692982#692982 – 2010-01-28 07:34:01

回答

0

使用LINQ的一点,你可以尝试

Dim list = AppDomain.CurrentDomain.GetAssemblies().ToList(). _ 
        SelectMany(Function(s) s.GetTypes()). _ 
        Where(Function(p) (p.BaseType Is [GetType]().BaseType AndAlso _ 
             p.Assembly Is [GetType]().Assembly)) 
For Each type As Type In list 
    Dim typeName As String = type.Name 
Next 
相关问题