我正在尝试加载当前Web应用程序中所有表单的标题
下面是代码。
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
Dim frm As New Form
frm.Name = t.Name
cmbSelectForm_frmMultiLanguageUtility.Items.Add(frm.Text)
End If
Next
cmbSelectFrom_frmMultiLanguageUtility在运行时加载空值。
请建议
这将获取所有申请表格，并将窗口标题添加到您的组合框中：
For Each t As Type In Me.GetType().Assembly.GetTypes()
If t.BaseType.Name = "Form" Then
cmbSelectForm_frmMultiLanguageUtility.Items.Add(CType(Activator.CreateInstance(t), Form).Text)
End If
Next
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句