首页 > 其他 > 详细

判断文本框是否为空

时间:2014-07-24 23:14:53      阅读:490      评论:0      收藏:0      [点我收藏+]

在窗体上往往有很多文本框需要输入信息,一些下拉框需要选择,对于这些信息的输入,我们总是需要判断输入的是否为空,以前,总是一个一个的判断,这样太繁琐,也可能会丢掉其中的一个两个的。现在就让我们轻松解决判断文本框是否为空吧。

<span style="font-size:18px;">''' <summary>
''' 用来判断文本框和下拉框是否为空
''' </summary>
''' <remarks></remarks>
Module Module1
    Public Function IsSomeEmptyText(ByVal arrayControl() As Control) As Boolean
        Dim control As New Control

        For Each control In arrayControl '遍历数组中的所有元素
            If TypeOf control Is TextBox Then '判断控件是不是文本框
                If control.Text.Trim = "" Then  '判断文本框内容是不是为空
                    MsgBox(control.Tag.ToString + "不能为空", vbOKOnly, "温馨提示")
                    control.Focus()
                    Return True
                    Exit Function
                End If
            ElseIf TypeOf control Is ComboBox Then '判断控件是不是组合框
                If control.Text.Trim = "" Then
                    MsgBox(control.Tag.ToString + "不能为空!", vbOKOnly, "温馨提示")
                    Return False
                    Exit Function
                End If
            End If
        Next
        Return False
    End Function
End Module
</span>


调用函数:

 <span style="font-size:18px;">Dim arrayControl() As Control
        ReDim Preserve arrayControl(5)

        arrayControl(0) = txtHourRate
        arrayControl(1) = txtHourTmpRate
        arrayControl(2) = txtLeastTime
        arrayControl(3) = txtLeastM
        arrayControl(4) = txtIncreaseTime
        arrayControl(5) = txtPrepareTime

        If IsSomeEmptyText(arrayControl) Then
            Exit Sub
        End If</span>

注意:
<span style="font-size:18px;"> MsgBox(control.Tag.ToString + "不能为空", vbOKOnly, "温馨提示")</span>
其中的 Tag 属性往往忘记赋值,通常赋值为文本框前面的label.text

判断文本框是否为空,布布扣,bubuko.com

判断文本框是否为空

原文:http://blog.csdn.net/u010924845/article/details/38090705

(0)
(0)
   
举报
评论 一句话评论(0
关于我们 - 联系我们 - 留言反馈 - 联系我们:wmxa8@hotmail.com
© 2014 bubuko.com 版权所有
打开技术之扣,分享程序人生!