已解决问题 - 浏览368次
下一个已解决问题
过客
219.135.72.*
VB编程代码编写
请问:如果要规定让某一个文本框内输入的字符由字母和数字组成才合法．那么如何编写代码就可以实现这一效果了？
请各位高手帮帮忙！谢谢！
bksun731
最佳答案 - 由投票者2008-01-15 14:22:05选出
新建一工程，添加一个标签控件，一个文本控件和一个按钮，在文本框中输入一些信息，单击按钮，如果在文本框中的信息符合全是字母或数学，则在标签处显示“输入合法！”，否则显示“输入不合法！”，程序如下：
Private Sub Command1_Click()
Dim sLong As Integer
sLong = Len(Text1.Text)
For i = 1 To sLong
s = Mid(Text1.Text, i, 1)
If Not (s >= "a" And s <= "z" Or s >= "A" And s <= "Z" Or s >= "0" And s <= "9") Then
Label1.Caption = "输入不合法！"
Else
Label1.Caption = "输入合法！"
End If
Next i
End Sub
其他回答(2)
-
用mid 方法判断
用KeyPress即可！
你自己试试，不会我再发给你 -
Sub Text1_Change()
For i = 1 To Len(Text1.Text)
Select Case Asc(Mid(Text1, i, 1))
Case 97 To 122
Case 65 To 90
Case 48 To 57
Case Else
Exit For
End Select
Next i
If i = Len(Text1.Text) + 1 Then
Print "True"
Else
Print "False"
End If
End Sub
黑犊
۞۩☻♪♫₧
