vb.net遍历主菜单 vb遍历子窗口

vb.net panel里的控件如何遍历

Public Sub ReSetText(Control ctrl)        

        Dim ct As Control

        For Each ct In ctrl.Controls

            Try

                For Each ct2 As Control In ct.Controls

                    ReSetText(ct2)

                Next

            Catch

            

            End Try

            If (TypeOf ct Is TextBox) Then

                ct.Text = ""

            ElseIf (TypeOf ct Is ComboBox) Then

                Dim cb As System.Windows.Forms.ComboBox = DirectCast(ct, System.Windows.Forms.ComboBox)

                cb.SelectedIndex = -1

            End If

        Next

End Sub

因为textbox在窗体里的panel里，你只遍历窗体的控件是不够的。

相关问答

Q1: vb.net 如何遍历右键快捷菜单，？它不在controls集合中，找了好久了，多谢

假设你的右键菜单为mymenu(contextmenustrip对象)

Dim oM As ToolStripMenuItem

For Each oM In Me.mymenu.Items

.....

Next

Q2: vb.net怎么遍历所有控件，使Click都执行相同的过程

c# 用程序转vb.net遍历主菜单的vb.net遍历主菜单，也不知道对不对。你看看有没有帮助 ,这是遍历所有控件,还有一个办法就是重载formvb.net遍历主菜单的消息处理函数应该也是可以的。

STAThread _

Public Shared Sub Main(args As String())

Dim button = New Button()

button.Text = "我是按钮"

button.Dock = DockStyle.Fill

Dim form = New Form()

form.Controls.Add(button)

CapturehMouseClickEvent(form)

form.ShowDialog()

End Sub

Private Shared Sub CapturehMouseClickEvent(control As Control)

AddHandler control.Click, AddressOf ControlOnClick

For Each subControl As Control In control.Controls

CapturehMouseClickEvent(subControl)

Next

End Sub

Private Shared Sub ControlOnClick(sender As Object, eventArgs As EventArgs)

Debug.WriteLine("控制被单击")

End Sub

Q3: vb.net中如何遍历程序窗体中的控件？并读写控件的数据。

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.net遍历主菜单的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb遍历子窗口、vb.net遍历主菜单的信息别忘了在本站进行查找喔。