VB.NET之旅—文本框内字符串的检验(机房收费系统重构个人版)
来源:互联网 发布:php http上传文件 编辑:程序博客网 时间:2024/05/17 06:25
如果大家的机房收费已经敲了一段时间了,尤其是敲了注册,那么大家一定遇到了文本框内字符串检验的问题,大家对字符串检验感到厌烦吗?
既然感到厌烦,那么就应该寻找简单的方法,如果你还是用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 admininfo1 = manager.selectAdmin_info(username) If admininfo1 Is Nothing Then notMatch(Me.txtName, Me.lblUserName, "用户名错误") 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()
的不断重复书写,呵呵,大家不妨尝试一下!
0 0
- VB.NET之旅—文本框内字符串的检验(机房收费系统重构个人版)
- VB.net之旅-SQLHelper的应用程序配置文件和使用(机房收费系统重构个人版)
- VB.Net机房收费系统个人版总结
- 小结:VB.NET机房收费系统个人版
- 机房收费系统个人版——VB.NET组合查询
- 机房收费系统重构个人版之原型图
- <机房收费系统>重构至今之感(VB.NET)
- 机房收费系统个人版重构总结
- 重构个人版机房收费系统——外观模式
- 重构个人版机房收费系统——sqlhelper
- 重构个人版机房收费系统——视图
- 重构个人版机房收费系统——模板模式
- 重构个人版机房收费系统——sqlHelper
- 机房收费系统个人版重构——报表制作
- 重构个人版机房收费系统—存储过程
- vb.net机房收费系统重构——配置文件
- vb.net 《机房收费系统》---②个人版技术总结
- VB.NET机房收费系统个人版----知识新充实
- java语言的集合框架
- 将所有div下的所有li的html()值设为"哈哈",当点击的时候设为"我被点击了",其余没有点击的依然设为“哈哈”
- 机器学习中的相似性度量
- 是电饭锅电饭锅华德福刚刚好
- mysql数据库基础概念
- VB.NET之旅—文本框内字符串的检验(机房收费系统重构个人版)
- 在主函数中输入10个等长的字符串。用另一个函数对它们排序,然后主函数输出10个已经排好的字符串。
- 法规和电话费个回复过还采访过
- ZOJ-1192
- 风格的风格更好地付给
- 面试题1
- 发个梵蒂冈的消费郭德纲沪电股份
- 分享基于EF+WCF的通用三层架构及解析
- 峰值信噪比PSNR之浮点精度问题