作业帮 > 数学 > 作业

只能输入数字和字母和- 同时开头和结尾不能是- 并且-只能在文本框出现一次 该怎么写!长度小于等于12

来源:学生作业帮 编辑:作业帮 分类:数学作业 时间:2024/05/17 09:02:41
只能输入数字和字母和- 同时开头和结尾不能是- 并且-只能在文本框出现一次 该怎么写!长度小于等于12
只能输入英文字母和数字和-,不能输入中文
问题就是现在不知道怎么去写 开头和结尾不能是- 并且-只能在文本框出现一次 长度是小于等于12
Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 97 To 122, 65 To 90, 48 To 57 'a-z 'A-Z '0-9

If Len(Text1.Text) > 19 Then KeyAscii = 0
Case 8, 9, 13 '退格键,TAB,ENTER
Case Else
KeyAscii = 0
Private Sub Text1_LostFocus()
If Len(Text1.Text) < 15 Then MsgBox "不小于15位": Text1.SetFocus
End Su