1. 特殊符号的限制
(1)需设定是哪几个特殊符号
Dim a As String,b As Long,c As Long
Dim i As Integer
a = "'!@#$%^&*()_+ "
For i = 1 To 20
txtPassword.Text = Replace(txtPassword.Text,Mid(a,i,1),"")
Next
(2)ASCII码限制输入符号
事件为:KeyPress
- 限制特殊字符
If (KeyAscii >= 0 And KeyAscii <= 47) Or (KeyAscii >= 58 And KeyAscii <= 64) Or (KeyAscii >= 91 And KeyAscii <= 96) Or (KeyAscii >= 123 And KeyAscii <= 127) Then KeyAscii = 0
- 只允许输入数字
If KeyAscii = 8 Then Exit Sub
Select Case KeyAscii
Case 48 To 57
Case Else
KeyAscii = 0
End Select
- 只允许输入文本
If (KeyAscii < 0) Or (KeyAscii >= 65 And KeyAscii <= 90) Or(KeyAscii >= 97 And KeyAscii <= 122) Or (KeyAscii = 8) Then
Else
MsgBox "请输入字母或汉字",vbOKOnly,"提示"
KeyAscii = 0
End If
特殊符号的限制方法还有很多种
2. 窗体美观优化
使窗体不能随便更改大小:BorderStyle改为1-FixedSingle
窗体居中显示:
With Me
.BorderStyle = 0
.Left = FrmMain.ScaleWidth / 2 - .Width / 2
.Top = FrmMain.ScaleHeight / 2 - .Height / 2
End With
3. 密码输入3次错误,设提示
miCount = miCount + 1
If miCount > 3 Then
MsgBox "你已经超过允许验证次数!",vbOKOnly + vbExclamation,"提示"
Me.Hide
Exit Sub
End If
原文地址:https://www.jb51.cc/vb/256146.html
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。