vb 在文本框里，只允许输入01到31，输入其他数字有提示信息

来源：百度知道 编辑：UC知道 时间：2024/05/08 15:54:07
在文本框里，只允许输入01到31之间的数字，不允许输入其他数字，入001、123或200等。
并且，在运行界面能连续输入，不用停止在输入。
注：楼下和我说的不太一样，你的也很高明。

我要实现的是在文本框里输入的年月日，单击计算按钮让它用一个文本显示出来。

目的，就是在月日里，输入合适的日期，比如：日子在01到31之间，其他不能输入！！

If Len(Text1.Text) <> 2 Then a = True
If Val(Text1.Text) > 31 Or Val(Text1.Text) < 1 Then a = True
If a = True Then
MsgBox ""
Text1.Text = "01"
End If

将上面的代码插入到检测文本的地方插入

存入变量。然后再change事件里不断判断。不过感觉这个要求有些另类。
Private Sub Command1_Click()
Dim daycount
restartinput: daycount = InputBox("请输入一个日期(yyyy-mm-dd):", "输入提示")
If Not IsDate(daycount) Then
GoTo restartinput
End If
MsgBox daycount & "是" &Year(daycount)& "年的第" & DatePart("Y", daycount)& "天!"
End Sub

虽然我没有直接回答你的问题，但为什么你不用“DTPICKER”之类的现成的用来给用户选择日期的控件呢？