VB.Net中用户控件的使用

最新推荐文章于 2023-04-25 22:02:30 发布

VIP文章 MHJ609

最新推荐文章于 2023-04-25 22:02:30 发布

阅读量6.2k

点赞数 3

分类专栏：机房收费系统 VB.Net

本文链接：https://blog.csdn.net/mhj9388/article/details/46492413

版权

机房重构时，在界面的制作上有这样一个需要改进的地方。那就是在判断窗体上所有文本框时候为空的时候,弹出提示信息的问题。先看一下原先的代码:

<pre name="code" class="vb">  Public Function IsEmptyText(ByVal objs As Form) As Boolean
        '遍历窗体中所有的控件
        For i As Integer = objs.Controls.Count - 1 To 0 Step -1
            '判断是否为文本框和组合框
            If (TypeOf objs.Controls(i) Is TextBox) Or (TypeOf objs.Controls(i) Is ComboBox) Then
                '如果文本框和组合框的文本为控件
                If objs.Controls(i).Text.Trim = "" Then
                    '弹出文本框，给用户提示
                    MsgBox（"不能为空", vbOKOnly + vbInformation, "系统提示！")
                    objs.Controls(i).Focus()
                    R