好吧,所以我需要一个方法来遍历 Visual Studio 2008 下的 VB.net 项目内的所有表单,并创建一个表单类型的数组,并引用其中的所有表单,以便该数组看起来像这样(伪代码)
FormsArray() = [Form1, Form2, Form3, Form4]
但是,我不知道如何开始。
您必须调整函数才能将结果msgbox
在一个数组中
Public Sub getallforms(ByVal sender As Object)
Dim Forms As New List(Of Form)()
Dim formType As Type = Type.GetType("System.Windows.Forms.Form")
For Each t As Type In sender.GetType().Assembly.GetTypes()
If UCase(t.BaseType.ToString) = "SYSTEM.WINDOWS.FORMS.FORM" Then
MsgBox(t.Name)
End If
Next
End Sub
您必须从应用程序中的任何形式调用该函数,如下所示(getallforms(me)
)
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)