网站导航网学 原创论文 原创专题 网站设计 最新系统 原创论文 论文降重 发表论文 论文发表 UI设计定制 论文答辩PPT格式排版 期刊发表 论文专题
返回网学首页
网学原创论文
最新论文 推荐专题 热门论文 论文专题
当前位置: 网学 > 编程文档 > VB > 正文

不用日期控件的智能日期输入法

论文降重修改服务、格式排版等 获取论文 论文降重及排版 论文发表 相关服务
f ''当月份为小月份时日期不能大于30。
If b = "02" Then
If Val(c) Mod 4 <> 0 And Val(Right(Text1.Text, 2)) > 28 Then
Text1.Text = Left((Text1.Text), Len(Text1.Text) - 2)
Text1.SelStart = Len(Text1.Text)
End If ''非闰年日期不得超过28。
If Val(c) Mod 4 = 0 And Val(Right(Text1.Text, 2)) > 29 Then
Text1.Text = Left((Text1.Text), Len(Text1.Text) - 2)
Text1.SelStart = Len(Text1.Text)
End If ''闰年日期不得超过29。
End If ''当月份为2时的日期正确性判断!
End If
''---------------------------------------------------------------------------
''当年月日输入后就不再接受其它字符了。方法如下:
''---------------------------------------------------------------------------
''第一种方法:
''在Text1的属性窗口中设Maxlength=10
''第二种方法:
''Text2.Setfocus 即在适当的地方设一个跳转语句使下一个对象得到焦点。
''第三种方法:
If Len(Text1.Text) = 11 Then
Text1.Text = Left((Text1.Text), Len(Text1.Text) - 1)
Text1.SelStart = Len(Text1.Text)
End If
End Sub

设为首页 | 加入收藏 | 网学首页 | 原创论文 | 计算机原创
版权所有 网学网 [Myeducs.cn] 您电脑的分辨率是 像素
Copyright 2008-2020 myeducs.Cn www.myeducs.Cn All Rights Reserved 湘ICP备09003080号 常年法律顾问:王律师