以visual basic的形式查找所有numericupdown

时间:2014-09-11 16:31:24

标签: numeric

你可以在表格中搜索所有NumericUpDown,从而报告所有零的值吗?

我想做一些像控制表单的for循环,看看有多少对象可用,然后如果用户按下一个键,所有NumericUpDown必须返回0值,不知道你是否可以做到这一点,我问你们专家的帮助。

Dim count As Integer
    count = 0
    For i = 0 To Me.GroupBox1.Controls.Count - 1
        Dim name As String
        name = Me.GroupBox1.Controls(i).GetType().ToString()
        If name.Contains("NumericUpDown") Then
            count = count + 1
        End If
    Next
    Label1.Text = count.ToString()

1 个答案:

答案 0 :(得分:0)

表单有一个Controls集合。您可以循环遍历它并通过调用GetType()[继承自System.Object]来检查类型。如果你想处理NumericUpDown的子类型,你可以尝试将控件强制转换为NumericUpDown,同时捕获异常,如果控件不是NumericUpDown,你会看到。

你的VB编码技巧可能比我的好。自从我写VB以来已经很久了。这是一个粗略的例子。我将此代码放在按钮单击事件中。您可以从我的GitHub存储库中提取整个解决方案:https://github.com/kc1073/Samples

    Dim count As Integer
    count = 0
    For i = 0 To Me.Controls.Count - 1
        Dim name As String
        name = Me.Controls(i).GetType().ToString()
        If name.Contains("NumericUpDown") Then
            count = count + 1
        End If
    Next
    Label1.Text = count.ToString()

KC