VB查漏补缺 text控件

前段时间的vb学习比较粗糙，这些是对vb中text控件的查漏补缺

1.限定text中输入字符串的长度。eg：现在先假定输入的字符串长度为10，即
len（trim（text1.text））=10
（1）trim（）函数用于去掉括号内字符串左右两端的空格。在上述代码中用于提取text1中输入的字符串
（2）len（）函数用于返回括号内字符串的长度。在上述代码中用于计算trim提取出来的字符的个数
（3）如果只限定text控件中的字符不能超过多少，可以利用maxlength（最大长度）设定。eg：
text1.maxlength=10 ’text1中的字符不能超过10
2.限定text控件中输入字符为数字，这个功能不能在控件的属性中设定，只能利用代码实现
Select Case KeyAscii
Case 48 To 57 '数字对应的ascii码
Exit Sub

Case 8 '退格键
Exit Sub

Case 46 'Delete键
Exit Sub

Case Else
KeyAscii = 0
End Select

3.一般的vb应用程序中需要输入学号、工号、密码等，需要结合上边两个功能。eg：输入正确学号（十位数）指定考试作业
Private Sub Text1_KeyPress(KeyAscii As Integer)
text1.maxlength=10

If KeyAscii = 13 And Len(Text1.Text) < 10 Then
MsgBox "请输入正确学号！",vbYesNo,"出错"
ElseIf KeyAscii = 13 And Len(Text1.Text) = 10 Then '按下enter键显示指定作业界面
Frmtest.show
End If

Select Case KeyAscii
Case 48 To 57 '数字对应的ascii码
Exit Sub

Case 8 '退格键
Exit Sub

Case 46 'Delete键
Exit Sub

Case Else
KeyAscii = 0
End Select

End Sub *在代码中if语句和select语句顺序不能颠倒，由于限定了text中输入的只能为数字，所以trim（）函数可以去掉

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!