VB查漏补缺 text控件

前端之家收集整理的这篇文章主要介绍了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()函数可以去掉

猜你在找的VB相关文章