控件集合VB.NET用Controls集合对为空的控件进行遍历

最新推荐文章于 2021-04-08 23:25:12 发布

转载最新推荐文章于 2021-04-08 23:25:12 发布 · 679 阅读

本文介绍了一种在VB.NET中使用控件集合(Controls)进行有效性检测的方法，通过定义一个通用类来检查窗体上的文本框和组合框是否为空，并提供了一个具体的实现示例。

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

题记：写这篇博客要主是加深自己对控件集合的认识和总结实现算法时的一些验经和训教，如果有错误请指出，万分感谢。

一、需求

面对比较复杂的系统，我们大多是须要对文本框、组合框停止重复判断，以保证它们不为空。

二、计划

1、每一个窗体有一个Controls集合，代表窗体中出现的所有控件（如文本框、命令按钮和标签），应用该Controls集合，可以很容易地实现用户录入的有效性检测工作（VB.NET）。

延伸：Forms集合包含VB.NET项目中的所有窗体。

2、实例

定义一个类，专门用来停止判断。别的窗体直接调用类中方法便可停止判断。

//停止判断的类

Public ClassVerifyUser

    Public Function verify(log AsWindows.Forms.Control.ControlCollection) As Boolean

 

        Dim ConObject As Control                                             '声明一个Control类的实例

        Dim flag As Boolean                                                  '声明boolean型变量，用来给调用此方法的窗体返回信息

        flag = True                                                          '默许控件内都有值

 

        '开始遍历Control类中的每一个控件

        For Each ConObject In log                                             '利用TypeOf查看控件类型

            If TypeOf (ConObject) Is TextBoxThen                             '若文本框的Text属性为空，提示信息

                If ConObject.Text ="" Then                                   '.Tag代表当前为空的控件

                   MsgBox(ConObject.Tag.ToString + "不能为空,请输入完全", vbOKOnly,"提示")

                    flag = False                                              '此控件为空，返回信息

                End If

            ElseIf TypeOf (ConObject) IsComboBox Then   '组合框为空时，弹出信息

                If ConObject.Text ="" Then

                   MsgBox(ConObject.Tag.ToString + "不能为空，请输入完全" + vbOKOnly +"提示")

                    flag = False

                End If

            End If

        Next

 

        Return flag

    End Function

End Class

每日一道理
时间好比一条小溪，它能招引我们奔向生活的海洋；时间如同一叶扁舟，它将帮助我们驶向理想的彼岸；时间犹如一支画笔，它会指点我们描绘人生的画卷。

//调用此类的方法

 '判断是否为空，停止提示

          Dim MyObjectAs New VerifyUser

           IfMyObject.verify(Controls) = False Then

          txtUserID.Focus()

          txtUserID.SelectAll()

              Exit Sub

            End If

注：

（1）for each循环中，逐个处置Controls集合中的每一个控件。If语句对控件类型停止检测。若控件为Text控件，则应用Text属性检测该文本框中的文本。若文本框为空，则出现提示。

（2）必须有相应的判断，调用此类时，逻辑才会清晰。

（3）Control是.NET提供的类，它是所有控件的基类，在System.Windows.Form命名空间中。

（4）Type…Is运算符检测对象类型。如果对象是指定类型或从指定类型派生而来，则返回True。