vb怎么控制文本框中只允许输入日期型数据
来源:百度知道 编辑:UC知道 时间:2024/09/12 22:14:55
输入其他出现对话框提示 怎么整呢
isdate不行 要求输入月日年 但是月年也可以识别 这就不行呀 还有时间应该用??
isdate不行 要求输入月日年 但是月年也可以识别 这就不行呀 还有时间应该用??
在文本框的失去焦点的事件里进行判断就ok.. 给你写个源码就清楚了.o(∩_∩)o...
Private Sub Text1_LostFocus()
If IsDate(Text1.Text) = True Then
MsgBox "是日期型数据"
Else
MsgBox "不是日期型数据,你得重新输入"
Text1.SetFocus
End If
End Sub
失去焦点时判断一下,是不是日期型
isdate函数可以判断,具体网上查
用isdate判断,例:
Dim abc As String
abc = "2008/09/28"
If IsDate(abc) Then
MsgBox "yes"
Else
MsgBox "not"
End If
ben
已经回答,路过