遍历控件 vb.net 2005

最新推荐文章于 2015-06-21 19:02:38 发布

ckp00001

最新推荐文章于 2015-06-21 19:02:38 发布

阅读量794

点赞数

CC 4.0 BY-SA版权

文章标签： vb.net textbox button integer object each

本文链接：https://blog.youkuaiyun.com/ckp00001/article/details/5780406

本文介绍了一个使用Visual Basic编写的程序，该程序能够遍历窗体上的所有控件，并根据控件类型显示不同的消息框提示。此外，程序还通过运行时类型检查来确定控件的具体类型。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim Cont As Control
        Dim i as integer
        txtbox1.Text = "txt1"
        txtbox2.Text = "txt2"

        'Controls(0).Text = "Hello"
        Controls.Item(0).Text = "Hello"
        For i = 0 To Controls.Count - 1
            Debug.WriteLine(Controls(i).GetType)

'Me.Controls(ii).GetType.Name()
Next

        i = 0
        Dim T As Object
        For Each Cont In Me.Controls

            Select Case Cont.GetType.Name
                Case "CheckBox"
                    MsgBox("is checkbox")
                Case "TextBox"
                    MsgBox("is textbox")
                Case "Label"
                    MsgBox("Label")
                Case "Button"
                    MsgBox("is Button")
            End Select

            i += 1
            If TypeOf Cont Is TextBox Then
                MessageBox.Show("The control is a textbox." & _
                       " Control:" & i & vbCrLf & Cont.Text)
            ElseIf TypeOf Cont Is Button Then
                MsgBox("The control is a button." & " Control:" & i)
            ElseIf TypeOf Cont Is CheckBox Then
                MsgBox("The control is a checkbox." & " Control:" & i)
            ElseIf TypeOf Cont Is Label Then
                MsgBox("The control is a Label." & " Control:" & i)

            End If

        Next Cont
    End Sub