Question

vb6的一个小程序，哪位高手能编一个

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

下面的是只能输入数字的代码
If (KeyAscii >= &H30 And KeyAscii <= &H39) Or KeyAscii = vbKeyBack Or KeyAscii = 43 Or KeyAscii = vbKeyDelete Then
Else
KeyAscii = 0
我该咋改呢？

Answer 1

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 = vbKeyBack Or KeyAscii = 43 Or KeyAscii = vbKeyDelete) Then KeyAscii = 0
End Sub

追问

我有8个text控件呢，这样写代码太长了吧？

追答

题目里明明说的是“里面一个控件text1”，我回答的是题目，能完美完成你的要求

Answer 2

不慎册郑需要改。在change里宽颂写姿仔代码
Private Sub Text1_Change()
If Mid(Text1.Text, 1, 1) = "0" Then Text1.Text = ""
End Sub

追问

我想在这个实践过程里面完成限制，该如何编写呢？
Private Sub Text1_KeyPress(KeyAscii As Integer)

追答

随便你，你想写哪里写哪里，您请。

Answer 3

干嘛这么写啊
你这有伍昌问题啊
直接对文本框进行数纯橘简字效做裤验不就好了
哪里有这么麻烦