2016-03-25 24 views
-1

tüm formların Başlıkları alın ben geçerli web uygulaması Aşağıdavb.net projesinde

tüm formların başlıkları yüklemeye çalışıyorum koddur.

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 yükleri zamanında boş değerler.

+1

Sen koleksiyonuna eklemek gerekir. – Claudius

cevap

1

Bu, tüm başvuru formlarını alacak önermek ve combobox pencere başlığı ekleyin:

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 
+0

'u yüklerken onlara isim dizisi eklemek daha kolay olurdu. Teşekkür ederim Chase Rocker, günümü kurtardın –