7489
社区成员
- 全部
vb的验证方法
在做vb窗体时，控件的验证太烦琐了。比如文本框不能空、只能输入字符等等。
请问有没有什么好的办法能解决？
或者有总结好的给提供一份。
或者有好的思路说一下也可以。
请问有没有什么好的办法能解决？
或者有总结好的给提供一份。
或者有好的思路说一下也可以。
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
舉杯邀明月 2008-03-28
这个“验证”只有具体情况具体分析了…………
UP..........
UP..........
barenx 2008-03-28
使用string 的like 匹配特定格式 ，类似于正则表达匹配的方法
用来匹配手机号的东东
用来匹配手机号的东东
Private Sub Text1_Change()
If Text1.Text Like "13#########" Then
Text1.ForeColor = RGB(255, 0, 0)
Else
Text1.ForeColor = vbBlack
End If
End Sub
FIRENDLESS 2008-03-28
自己多写一些，然后总结到一个模块里，修改名称就好了
ben2008china 2008-03-27
给你刚学的一段验证代码
'ノめ祅嘲
Private Sub CmdLogin_Click()
Set rs = New ADODB.Recordset
sql = "Select * From userID Where ID='" & Trim(TxtID.Text) & "'"
rs.Open sql, conn, adOpenStatic, adLockReadOnly, adCmdText
If rs.RecordCount = 0 Then
MsgBox "赣ノめぃ" & vbCrLf & "叫穝块", vbCritical, "岿粇獺"
TxtID.SetFocus
Else
rs.MoveFirst
If Trim(TxtPWD.Text) <> Trim(rs.Fields("PWD")) Then
MsgBox "盞絏岿粇" & vbCrLf & "叫穝块", vbCritical, "岿粇獺"
TxtPWD.SetFocus
Else
Unload Me
MsgBox "祅嘲Θ", vbExclamation, "祅嘲Θ"
End If
End If
End Sub
'ノめ祅嘲
Private Sub CmdLogin_Click()
Set rs = New ADODB.Recordset
sql = "Select * From userID Where ID='" & Trim(TxtID.Text) & "'"
rs.Open sql, conn, adOpenStatic, adLockReadOnly, adCmdText
If rs.RecordCount = 0 Then
MsgBox "赣ノめぃ" & vbCrLf & "叫穝块", vbCritical, "岿粇獺"
TxtID.SetFocus
Else
rs.MoveFirst
If Trim(TxtPWD.Text) <> Trim(rs.Fields("PWD")) Then
MsgBox "盞絏岿粇" & vbCrLf & "叫穝块", vbCritical, "岿粇獺"
TxtPWD.SetFocus
Else
Unload Me
MsgBox "祅嘲Θ", vbExclamation, "祅嘲Θ"
End If
End If
End Sub
东方之珠 2008-03-27
验证也难，就一两行，不繁琐吧。
shakoe 2008-03-27
这个事情是业务逻辑细节。
没有一揽子的解决方法吧！
话说回来也很简单
没有一揽子的解决方法吧！
话说回来也很简单
智能卡_Snooper 2008-03-26
那有什么难的，就是一个字符串，写一个函数
private IsValid( byval s as string ) as boolean
你需要验证的控件的text传进来就行了。
private IsValid( byval s as string ) as boolean
你需要验证的控件的text传进来就行了。
VB的一些项目中常用的通用方法-一般用于验证类 1.VB的一些项目中常用的通用方法： ' 设置校验键盘输入值,数字 Public Function kyd(key As Integer) As Integer '20060728 Dim mychar mychar = "0123456789-" & Chr(8) & Chr(46) If InStr...
利用VB实现验证码识别 在VB6上添加“WebBrowser”控件。 应用此部件后在VB6的左边控件栏里就会出现一个地球的按钮。然后在窗体上绘出它的位置以及大小。（其实这个程序我早已写好的，现在拿出来解释），那个带编辑点的控件就是...
VB使用加密方法实现序列号验证实例 内容索引:VB源码,加密解密,序列号,注册码 这是VB使用加密方法实现的软件序列号验证实例，相对不加密的序列号，当然可以提高可靠性，程序包中含有两个源程序，一个是注册程序，一个是序列号生成程序，你可以对照学习...
VB加密实现注册码序列号验证实例.rar VB加密实现注册码序列号验证实例，VB使用加密方法实现的软件序列号验证实例，相对不加密的序列号，当然可以提高可靠性，程序包中含有两个源程序，一个是注册程序，一个是序列号生成程序，你可以对照学习一下。...
身份证号码位数及格式验证范例VB版 内容索引:VB源码,字符处理,身份证 身份证号码位数及格式验证范例VB版，能够按照身份证号码所规定的格式进行验证，比如代表区域性的前五位是否正确，代表出生日期的是否正确，以及最后位及总位数是否正确等做出合法...
vb.net 微信开发 token 验证 & 实现订阅号 调用 图灵机器人文字处理回复 连接SQL vb.net 微信开发 token 验证 & 实现订阅号 调用 图灵机器人文字处理回复 连接SQL 欢迎更多技术交流 如有问题 请不吝指出！
VB与SQl连接的方法及步骤 VB连接MYSQL的代码设计 下面用recordset.open方法运行命令: DIM cn as NEW ADODB.Connection DIM rst as NEW ADODB.Recordset cn.ConnectionString = "DSN=myodbc;uid=root;pwd=19941214" cn.Open ...
用VB验证哥德巴赫猜想 “本节课程我们来用VB验证哥德巴赫猜想。即，任一大于6的偶数都可写成两个素数之和” 01 — 界面设计 界面比较简单，按照上图设计界面即可。 02 — 思路分析 从哥德巴赫猜想的内容：任意一个大于6的偶数都可以用两...
BSPHP网络验证系统VB调用演示例子 bsphp网络验证系统,bsphp是一套软件管理授权认证系统,可以免费使用,是09年开始发展的。有多种验证模式可以直接拓展API接口服务端是php写的一个服务器端
VB调用jmail发电子邮件的示例源码.rar VB调用jmail发电子邮件的示例源码，如果你想使用jmail组件，但又不知道怎么调用，这个VB代码可以帮助你快速上手，里面包括了jmail.dll，附有jmail官方使用手册，双击reg.bat批处理文件可自动将jmail.dll注册到...
vb 6 支持smtp验证的邮件发送程序.rar vb6.0写的一个简单邮件发送程序，支持smtp服务器验证功能，程序组合：dapha(汪锋)，X-Mailer:程序太平洋:邮件发送软件,还可以发送HTML网页文件，填写好邮件标题、正文等选项后，即可发送邮件，PS：我是一名VB爱好者...
VB源码-验证哥德巴赫猜想 从关于偶数的哥德巴赫猜想，可推出：任一大于7的奇数都可写成三个质数之和的猜想。后者称为“弱哥德巴赫猜想”或“关于奇数的哥德巴赫猜想”。若关于偶数的哥德巴赫猜想是对的，则关于奇数的哥德巴赫猜想也会是对的...
vb6编写Websocket客户端 这是为了协助一个研发的项目，需要用到vb6来写一个websocket客户端整理而来。其中原理是通过winsock控件首先进行握手，然后进行协议升级来实现。感兴趣的盆友可以通过wireshark工具抓包分析和验证一下。
