vb點虐 歷遍項目的窗體

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

為睢陽等地區(qū)用戶提供了全套網頁設計制作服務，及睢陽網站建設行業(yè)解決方案。主營業(yè)務為成都網站設計、成都網站制作、睢陽網站設計，以傳統(tǒng)方式定制建設網站，并提供域名空間備案等一條龍服務，秉承以專業(yè)、用心的態(tài)度為用戶提供真誠的服務。我們深信只要達到每一位用戶的要求，就會得到認可，從而選擇與我們長期合作。這樣，我們也可以走得更遠！

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

vb點虐 中如何遍歷程序窗體中的控件？并讀寫控件的數據。

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

這段代碼可行，但不能遍歷菜單和工具欄，要按需要修改

關于遍歷VB點虐 窗體里面控件的問題

可以的，需要判斷控件類型并做一下類型轉換。

For Each c As Control In Me.Controls

If TypeOf(c) Is TextBox Then

Dim t As TextBox = CType(c ,TextBox)

'調用t的方法即可

End If

Next