MyException - 我的异常网
当前位置:我的异常网» 编程 » 【机房系统学识小结点系列】之遍历窗体中的控件,判

【机房系统学识小结点系列】之遍历窗体中的控件,判断Text是否为空

www.MyException.Cn  网友分享于:2013-09-10  浏览:17次
【机房系统知识小结点系列】之遍历窗体中的控件,判断Text是否为空?

做机房系统时,几乎每个窗体中都会用到判断界面中的控件是否为空的情景。我们曾经是这样走来的:

第一版:

好处:对窗体界面中的Text等控件,逐一做判断,当用户输入某一项为空的时候,会议弹出框的形式,告诉用户,具体是哪一个控件,输入有误。

坏处:首先,界面看起来就很繁琐;其次,浪费了大量的手工工作,代码不具有可复用性;再次,编码的时候,如果控件数目比较多的话,容易忘记其中的某些控件。

        If (Trim(txtCardID.Text) = "" then'判断卡号是否为空
            If Trim(txtRechargeCash.Text) = "" Then '判断充值金额,是否为空
                If Trim(txtStuID.Text) = "" Then '判断学号是否为空
                    If Trim(txtStuName.Text) = "" Then '判断学生姓名是否为空
                        If Trim(cmbSex.Text) = "" Then '判断性别是否为空

                            MsgBox("固定用户中,***不能为空!", , "友情提示")
                        Else
                        End If
                    Else
                    End If
                Else
                End If
            Else
            End If
        Else
        End If


第二版:

好处:代码界面看起来,美观整洁。

坏处:首先,弹出框的提示太笼统了,不够具体,没有良好的用户体验。当某控件输入为空时,看到弹出的提示,会感到莫名其妙,不知道具体是哪里错了。其次,代码不具有可复用性。再次,编码的时候,如果控件数目比较多的话,容易忘记其中的某些控件。

        If (Trim(txtCardID.Text) = "" Or Trim(txtRechargeCash.Text) = "" Or Trim(txtStuID.Text) = "" Or Trim(txtStuName.Text) = "" Or Trim(cmbSex.Text) = "" Or Trim(txtDepartment.Text) = "" Or Trim(txtGrade.Text) = "" Or Trim(txtClass.Text) = "" Or Trim(cmbState.Text) = "") Then
            MsgBox("固定用户中,输入信息不能为空!", , "友情提示")
            Exit Sub
        End If

第三版:

好处:首先,代码界面美观整洁。其次,弹出框的信息提示非常具体,明确的提示用户哪里出错了。再次,代码的封装,具有可复用性。把判断是否为空的函数,放在一个单独的类库中。然后,计算机自动帮您遍历界面中的所有控件,肯定不会拉掉其中的某些控件的。

坏处:计算机自动遍历界面中的所有控件,应该会很累的吧?不过,这少可以减轻程序猿的负担了。


Imports System.Windows.Forms '引用窗体中的控件

    Public Shared Function IsAllEmpty(ByVal frm As Form) As Boolean '判断文本信息是否为空
        Dim control As New Control
        For Each ct1 As Control In frm.Controls '变量窗体中的所有控件
            If ct1.GetType() Is GetType(TextBox) Then '判断控件类型是否为TextBox
                If ct1.Text.Length = 0 Then '判断TextBox中信息是否为空,返回True或False
                    MsgBox(ct1.Tag + "不能为空!", , "友情提示")
                    ct1.Focus()
                    Return False '文本信息为空,返回False
                    Exit Function
                Else
                    Return True '文本信息不为空,返回True
                End If
            End If
        Next
    End Function

调用的时候:

     Dim isResultEmpty As Boolean
        isResultEmpty = frmName.IsAllEmpty(Me)
        If isResultEmpty = True Then '判断文本信息是否为空,为空返回False,不为空返回True
        Else
        End If

总结:学习的过程是循序渐进的,不要奢求一口吃个胖子。当你遇到一堆又一堆问题的时候,查询了很多的资料,发现自己更加头昏脑胀的时候。给你的建议是:先做一遍!无论对错,在做的过程中,对遇到的问题“逐一击破”!就像是给你一团乱糟糟的毛线,如果你实在是理不清头绪的话,就用剪刀随便找根线咔嚓一下,自己设定一个起始点就可以了。






文章评论

中美印日四国程序员比较
中美印日四国程序员比较
“懒”出效率是程序员的美德
“懒”出效率是程序员的美德
一个程序员的时间管理
一个程序员的时间管理
亲爱的项目经理,我恨你
亲爱的项目经理,我恨你
老程序员的下场
老程序员的下场
鲜为人知的编程真相
鲜为人知的编程真相
要嫁就嫁程序猿—钱多话少死的早
要嫁就嫁程序猿—钱多话少死的早
60个开发者不容错过的免费资源库
60个开发者不容错过的免费资源库
程序员的一天:一寸光阴一寸金
程序员的一天:一寸光阴一寸金
我是如何打败拖延症的
我是如何打败拖延症的
为啥Android手机总会越用越慢?
为啥Android手机总会越用越慢?
为什么程序员都是夜猫子
为什么程序员都是夜猫子
当下全球最炙手可热的八位少年创业者
当下全球最炙手可热的八位少年创业者
程序猿的崛起——Growth Hacker
程序猿的崛起——Growth Hacker
程序员的鄙视链
程序员的鄙视链
程序员必看的十大电影
程序员必看的十大电影
漫画:程序员的工作
漫画:程序员的工作
Web开发者需具备的8个好习惯
Web开发者需具备的8个好习惯
团队中“技术大拿”并非越多越好
团队中“技术大拿”并非越多越好
看13位CEO、创始人和高管如何提高工作效率
看13位CEO、创始人和高管如何提高工作效率
程序员眼里IE浏览器是什么样的
程序员眼里IE浏览器是什么样的
我的丈夫是个程序员
我的丈夫是个程序员
老美怎么看待阿里赴美上市
老美怎么看待阿里赴美上市
那些争议最大的编程观点
那些争议最大的编程观点
写给自己也写给你 自己到底该何去何从
写给自己也写给你 自己到底该何去何从
程序员周末都喜欢做什么?
程序员周末都喜欢做什么?
聊聊HTTPS和SSL/TLS协议
聊聊HTTPS和SSL/TLS协议
编程语言是女人
编程语言是女人
科技史上最臭名昭著的13大罪犯
科技史上最臭名昭著的13大罪犯
做程序猿的老婆应该注意的一些事情
做程序猿的老婆应该注意的一些事情
“肮脏的”IT工作排行榜
“肮脏的”IT工作排行榜
5款最佳正则表达式编辑调试器
5款最佳正则表达式编辑调试器
10个帮程序员减压放松的网站
10个帮程序员减压放松的网站
旅行,写作,编程
旅行,写作,编程
如何区分一个程序员是“老手“还是“新手“?
如何区分一个程序员是“老手“还是“新手“?
代码女神横空出世
代码女神横空出世
我跳槽是因为他们的显示器更大
我跳槽是因为他们的显示器更大
程序员和编码员之间的区别
程序员和编码员之间的区别
初级 vs 高级开发者 哪个性价比更高?
初级 vs 高级开发者 哪个性价比更高?
 程序员的样子
程序员的样子
如何成为一名黑客
如何成为一名黑客
Java 与 .NET 的平台发展之争
Java 与 .NET 的平台发展之争
程序员都该阅读的书
程序员都该阅读的书
十大编程算法助程序员走上高手之路
十大编程算法助程序员走上高手之路
Web开发人员为什么越来越懒了?
Web开发人员为什么越来越懒了?
软件开发程序错误异常ExceptionCopyright © 2009-2015 MyException 版权所有