vb点虐 遍历窗体菜单 vb遍历子窗口

vb点虐 历遍项目的窗体

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

为睢阳等地区用户提供了全套网页设计制作服务，及睢阳网站建设行业解决方案。主营业务为成都网站设计、成都网站制作、睢阳网站设计，以传统方式定制建设网站，并提供域名空间备案等一条龙服务，秉承以专业、用心的态度为用户提供真诚的服务。我们深信只要达到每一位用户的要求，就会得到认可，从而选择与我们长期合作。这样，我们也可以走得更远！

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

分享名称：vb点虐 遍历窗体菜单 vb遍历子窗口
分享网址：http://6mz.cn/article/ddjeego.html