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

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

论文降重修改服务、格式排版等 获取论文 论文降重及排版 论文发表 相关服务

作者:林永华
地址:福建省莆田县农业银行电脑中心 351100 tel:0594-2298794  E-mail:ptnh.lyh@163.com


本人在编程过程中,常遇到要编写记载日期信息的功能程序,为此,我曾经也下载选用了一些日期控件,但都觉得不好用(比如:不能随意改变大小、或它是按月递变等等,不信你自己去体验吧)。就连Windows98中查找功能的日期选项卡中的那个日期控件(在VB6部件中的MicrosoftWindows Common Controls-2 6.0中也有DTPicker控件 )我也觉得不是很好用,因为它是按月递变等等。鉴于这些,我还是钟情于VB自带的标准文本框控件,因为它可以随意改变框的大小(包括显示区文本的大小)、颜色、字体。所以,我就编写了以下的那段程序,用以进行日期型信息录入。“优点”如下:  

1、在文本框中只接受“0-9”这10字符。而且年月日分隔符会自动生成。  

2、VB的年份为100-9999,本人限在1000-2999,不够用吗?如果真得不够用,你可以自己改造加以控制。或许你会问:为什么年份不用两位数来表示?  

我的观点:  

1、两位数的年份格式不直观。   

2、如果碰到要记载出生年月日信息时,很可能会很难办。  

3、月份只能从01-12,而且,当输入3-9时,系统会自动默认为03-09。  

4、日期如果输入4-9时系统也会自动默认为04-09。还有:  

A:当月份为1、3、5、7、8、10、12时,日期不能超过31  

B:当月份为4、6、9、11时,日期不能超过30  

C:当月份为2时且为闰年时,日期不能超过29  

D:当月份为2时且为非闰年,日期不能超过28  

有了以上的“优点”,只要输入年月日完毕,就会确保它是一个合法的日期表达式。朋友,赶快把下面那段程序粘贴到VB工程中(当然,你也许要改变Text1为其它的文本框编号如:Text3)去试一下吧,相信,你会立即爱上她,直到永远  

Private Sub Text1_Change()  

Dim a, b, c As String
''---------------------------------------------------------------------------
''年份输入的控制
''---------------------------------------------------------------------------
''限制第一位必须为"1"或"2" ,也就说年份必须在1000-2999之间,够用吧!  

If Len(Text1.Text) = 1 Then  

If Left((Text1.Text), 1) <> "1" And Left((Text1.Text), 1) <> "2" Then  

Text1.Text = ""  

End If  

End If
''限制第二、三、四位必须为“1、2、3、4、5、6、7、8、9、0”  

If Len(Text1.Text) = 2 Or Len(Text1.Text) = 3 Or Len(Text1.Text) = 4 Then  

If Right((Text1.Text), 1) <> "0" And Right((Text1.Text), 1) <> "1" And _  

Right((Text1.Text), 1) <> "2" And Right((Text1.Text), 1) <> "3" And _  

Right((Text1.Text), 1) <> "4" And Right((Text1.Text), 1) <> "5" And _  

Right((Text1.Text), 1) <> "6" And Right((Text1.Text), 1) <> "7" And _  

Right((Text1.Text), 1) <> "8" And Right((Text1.Text), 1) <> "9" Then  

Text1.Text = Left((Text1.Text), Len(Text1.Text) - 1)  

Text1.SelStart = Len(Text1.Text)  

End If  

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