VB查漏补缺 text控件

最新推荐文章于 2024-04-23 04:59:29 发布

原创最新推荐文章于 2024-04-23 04:59:29 发布 · 1.8k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#VB

本文介绍了VB中Text控件的高级用法，包括限制输入字符串长度、确保输入内容仅为数字以及结合这两种功能来验证学号输入。通过具体示例展示了如何使用Trim()和Len()函数、设置maxlength属性及KeyPress事件处理。

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

1.限定text中输入字符串的长度。eg：现在先假定输入的字符串长度为10，即

    len（trim（text1.text））=10

（1）trim（）函数用于去掉括号内字符串左右两端的空格。在上述代码中用于提取text1中输入的字符串
（2）len（）函数用于返回括号内字符串的长度。在上述代码中用于计算trim提取出来的字符的个数
（3）如果只限定text控件中的字符不能超过多少，可以利用maxlength（最大长度）设定。eg：

<pre code_snippet_id="1883482" snippet_file_name="blog_20160917_1_3497310" name="code" class="vb">    <span style="font-family: Arial, Helvetica, sans-serif;">text1.maxlength=10  ’text1中的字符不能超过10</span>

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