窗体form1,里面一个控件text1,要求里面只能输入数字且第一个不能为0

下面的是只能输入数字的代码
If (KeyAscii >= &H30 And KeyAscii <= &H39) Or KeyAscii = vbKeyBack Or KeyAscii = 43 Or KeyAscii =

展开全部
收起
3回答
提交回答
  • 至过去的我

    2044人对此回答表示赞同

    我是未来的你,你现在是不是在年找寻小程序答案。你不要感觉诧异,给你来信原因,就是让你不在后悔。今天去学习如何推广小程序,相信......点击查看更多>
    发布于
  • 李振藩

    20人对此回答表示赞同

    Private Sub Text1_Change()
    If Mid(Text1.Text, 1, 1) = "0" Then Text1.Text = ""
    End Sub
    Private Sub Text1_KeyPress(KeyAscii As Integer)
    If Not ((KeyAscii >= &H30 And KeyAscii <= &H39) Or KeyAscii = vbK
    展开
    20
    0回复
    发布于 6年前

    评论(0)

    收起评论

  • Lucy十一

    10人对此回答表示赞同

    干嘛这么写啊
    你这有问题啊
    直接对文本框进行数字效验不就好了
    哪里有这么麻烦
    展开
    10
    0回复
    发布于 6年前

    评论(0)

    收起评论

  • 朱果果

    2人对此回答表示赞同

    不需要改。在change里写代码
    Private Sub Text1_Change()
    If Mid(Text1.Text, 1, 1) = "0" Then Text1.Text = ""
    End Sub
    展开
    2
    0回复
    发布于 6年前

    评论(0)

    收起评论

A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
咨询热线

13312967497

扫码添加业务即可随时咨询 还可领取小程序推广攻略

业务咨询: 13312967497
扫码咨询

扫码咨询套餐

回到顶部