text1.text怎么限定输入的是日期格式啊,麻烦你了,谢谢哈

 我来答
hregedit
2012-06-04 · 超过20用户采纳过TA的回答
知道答主
回答量:29
采纳率:0%
帮助的人:57.4万
展开全部
比较简单的方法是选用MonthView控件,在"工程"->"部件"中勾选"Microsoft Windows Common Controls-2.6.0"该控件便出现在工具栏中。在窗体上画出MonthView后用以下代码:
Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
Text1.Text = MonthView1.Value
End Sub

也可以通过代码使Text1中只能输入日期格式,例如:

Dim txtcg As Integer '此变量需在窗体模块的顶部声明段声明

Private Sub Text1_Change()
i = Text1.SelStart
If txtcg = 1 Then Exit Sub
txtcg = 1
t1 = Left(Text1, i) & Replace(Replace(Mid(Text1, i + 1), "-", ""), "_", "")
If 10 - Len(t1) > 0 Then t1 = t1 & String(10 - Len(t1), "_")
If Mid(t1, 5, 1) <> "-" Then t1 = Left(t1, 4) & "-" & Mid(t1, 5)
If Mid(t1, 8, 1) <> "-" Then t1 = Left(t1, 7) & "-" & Mid(t1, 8)
Text1 = Left(t1, 10)
Text1.SelStart = i
txtcg = 0
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If IsNumeric(Chr(KeyAscii)) Then
If Text1.SelStart >= 10 Then KeyAscii = 0: Exit Sub
If Text1.SelStart = 4 Or Text1.SelStart = 7 Then
Text1.SelStart = Text1.SelStart + 1
End If
ElseIf KeyAscii = 8 Then
If Text1.SelStart = 0 Then KeyAscii = 0
Else
KeyAscii = 0
End If
End Sub
来自:求助得到的回答
百度网友5c00855dd
2012-06-01 · TA获得超过123个赞
知道答主
回答量:168
采纳率:0%
帮助的人:124万
展开全部
使用VB自带的日期选择控件
或者下载第三方日期控件
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
百度网友26f7ff7
2012-06-01
知道答主
回答量:74
采纳率:0%
帮助的人:17.3万
展开全部
正则表达式
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 1条折叠回答
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式