VB.NET之旅—文本框内字符串的检验(机房收费系统重构个人版)

概述   如果大家的机房收费已经敲了一段时间了，尤其是敲了注册，那么大家一定遇到了文本框内字符串检验的问题，大家对字符串检验感到厌烦吗？        既然感到厌烦，那么就应该寻找简单的方法，如果你还是用messagebox提示用户输入信息错误地话，那么我说你已经过时了，高大上的软件，都是这么提示信息的:   我们虽然不能做到这么洋气，但是还是可以不断靠拢吗？例如可以做到这样      这样：   我

如果大家的机房收费已经敲了一段时间了，尤其是敲了注册，那么大家一定遇到了文本框内字符串检验的问题，大家对字符串检验感到厌烦吗？

既然感到厌烦，那么就应该寻找简单的方法，如果你还是用messageBox提示用户输入信息错误地话，那么我说你已经过时了，高大上的软件，都是这么提示信息的:

我们虽然不能做到这么洋气，但是还是可以不断靠拢吗？例如可以做到这样

这样：

我把文本框内的字符串检验分为四步

去除字符串左右的空格 检验字符串是否为空 检验字符串是否符合要求 提示字符串符合要求 代码如下：

#Region "检验文本框字符串是否符合要求四部曲"    '1-----去除文本左右两边的空格    Public Function ClearSpace(ByVal txtBox As TextBox)        Return txtBox.Text.ToString.Trim()    End Function    '2-----**不能为空    Public Sub notEmpty(ByVal txtBox As TextBox,ByVal lbl1 As Label,ByVal lbl2 As Label)        Dim x As Int16 = lbl2.Text.ToString.Trim.Length - 1 '设置字符串长度为减一，以去掉冒号        lbl1.Forecolor = color.Red        lbl1.Text = lbl2.Text.Substring(0,x) & ",不能为空"        txtBox.Focus()    End Sub    '3------字符串不符合要求    Public Sub notMatch(ByVal txtBox As TextBox,ByVal lbl As Label,ByVal reminder As String)        lbl.Forecolor = color.Red        lbl.Text = reminder        txtBox.Focus()        txtBox.SelectAll()    End Sub    '4-----文本框输入正确    Public Sub Correct(ByVal lbl As Label)        lbl.Forecolor = color.Green        lbl.Text = "√"    End Sub#End Region

我们接下来看一下调用过程：

  '验证用户名是否为空和验证此用户是否存在  Public Sub IsnameRight()    If ClearSpace(Me.txtname) = "" Then      notEmpty(Me.txtname,Me.lblUsername,Me.lblUsername1)      Exit Sub    Else      username = txtname.Text.ToString.Trim      @R_419_5976@info1 = manager.select@R_419_5976@_info(username)      If @R_419_5976@info1 Is nothing Then        notMatch(Me.txtname,"用户名错误")        Exit Sub      Else        Correct(Me.lblUsername)      End If    End If  End Sub  Private Sub txtname_LostFocus(ByVal sender As Object,ByVal e As System.EventArgs) Handles txtname.LostFocus    IsnameRight()  End Sub

这样是不是省了不少事啊，例如对

txtBox.Focus()

txtBox.SelectAll()

的不断重复书写，呵呵，大家不妨尝试一下！

总结

以上是内存溢出为你收集整理的VB.NET之旅—文本框内字符串的检验(机房收费系统重构个人版)全部内容，希望文章能够帮你解决VB.NET之旅—文本框内字符串的检验(机房收费系统重构个人版)所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。