限制输入

最新推荐文章于 2022-10-11 10:15:00 发布

会开飞机的尼克斯

最新推荐文章于 2022-10-11 10:15:00 发布

阅读量439

点赞数

分类专栏： VB

本文链接：https://blog.csdn.net/mumuxi709/article/details/106349914

版权

这篇博客总结了在机房收费系统中如何限制不同输入控件的输入内容，如‘学号’只用于显示，‘输入卡号’限制为数字且最多五位，‘姓名’仅接受汉字。通过设置MaxLength属性和判断KeyAscii值来实现输入控制。

摘要由CSDN通过智能技术生成

在学生系统和机房收费系统中，很多文本框和下拉框控件都用到了限制输入的方式，例如：有些控件只允许输入数字，有的控件不允许输入任何内容，还有的是限制输入内容的大小……稍稍总结一下目前所遇到的限制输入☺

以机房收费系统中的学生查看余额窗口为例

“学号”等输入框仅用于显示内容，不允许输入

Private Sub txtSID_KeyPress(KeyAscii As Integer)
    KeyAscii = 0
End Sub

“输入卡号”文本框仅可输入数字和删除键

'只输入删除键和数字
Private Sub txtcardno_KeyPress(KeyAscii As Integer)
    If KeyAscii <> 8 And (KeyAscii < 48 Or KeyAscii > 57) Then
     KeyAscii = 0
     End If
End Sub

“姓名”等文本框仅可输入汉字和删除键

'只输入删除键和文字
Private Sub txtname_KeyPress(keyascii As Integer)
    If keyascii > 0 And keyascii <> 13 And keyascii <> 8 Then
        keyascii = 0
     End If
End Sub

“输入卡号