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（）函数可以去掉

转载于:https://www.cnblogs.com/wangjingna/archive/2013/06/12/3763607.html