VB6.0中设置Text的输入函数。
来源:互联网 发布:自学考试网络助学 编辑:程序博客网 时间:2024/05/09 21:49
Public Sub MaxAndNumeric(txt As TextBox, x As Boolean)
If IsNumeric(txt) = False Or txt.Text = "" Then '判断输入是否为数值,是否为空
txt.Text = ""
Exit Sub
End If
If x = True Then
If Int(Val(txt.Text)) > 59 Or Int(Val(txt.Text)) < 0 Then '判断输入数值是否在0-59之间
txt.Text = ""
End If
ElseIf x = False Then
If Int(Val(txt.Text)) > 24 Or Int(Val(txt.Text)) < 0 Then '判断输入数值是否在0-24之间
txt.Text = ""
End If
End If
End Sub
If IsNumeric(txt) = False Or txt.Text = "" Then '判断输入是否为数值,是否为空
txt.Text = ""
Exit Sub
End If
If x = True Then
If Int(Val(txt.Text)) > 59 Or Int(Val(txt.Text)) < 0 Then '判断输入数值是否在0-59之间
txt.Text = ""
End If
ElseIf x = False Then
If Int(Val(txt.Text)) > 24 Or Int(Val(txt.Text)) < 0 Then '判断输入数值是否在0-24之间
txt.Text = ""
End If
End If
End Sub
- VB6.0中设置Text的输入函数。
- VB6.0中MsgBox函数的Bug
- VB6.0中Dir()函数的使用方法
- VB6.0中,在一个TextBox里面只输入数字,不能输入其它,比如汉字,符号,英文的方法
- VB6的qbcolor函数
- C#实现VB6.0的输入窗体InputBox代码
- VB6.0常用函数
- VB6.0函数集合
- vb6.0 中 事务处理的一个问题
- VB6.0中数组的定义实测
- 在VB6中使用API函数实现矢量图的绘制。
- 在VB6中使用API函数实现矢量图的绘制
- mfc中设置static text的颜色
- vb6.0中声明Windows的Win32API时用到的函数声明(vb.net c#中也可用)
- VB6.0与VB.NET函数的区别
- VB6.0读写INI文件的四个函数
- VB6.0和VB.Net的函数对照表
- vb6.0 winHttp的post或get一个函数
- prototype.js帮助
- 另人怀念的小游戏:惊险摩托
- INI文件的读写
- 什么是SEO?
- 抽象学习的庞大内容成一张小图的方法提高记忆效率增强理解
- VB6.0中设置Text的输入函数。
- Debug命令简介
- 万能函数,配置小数点保留几位的问题
- Visual C++ ActiveX Control for hosting Office documents in Visual Basic or HTML
- 我的 blog: http://yf888.spaces.live.com
- 基于顶点纹理的无限大海水仿真
- JAVA代码收集
- pku-cs-test2006
- 动态添加表单