[分享]在窗体的文本框中实现日期的输入的几种方法

foshan · 发表于 2005-7-23 17:11

jack.zhou 的作品也是可行的。您在第23楼的作品与我在第15楼的作品思路差不多。不同的地方是您是每个文本框的内容输入后再进行判断；而我是在文本框输入每一个字符就进行判断了，凡是不符合要求均不允许输入，所以我的代码比您的代码多出很多。

再次向大家求助，第20楼的问题如何解决：当年份的文本框小于四位数时，当失去焦点后，出现提示，然后年份的文本框重新获得焦点(也就是光标仍然在年份的文本框中)怎么实现？

taller · 发表于 2005-7-23 19:15

可能和提醒的MsgBox有关(个人猜测),利用Label实现提醒,利用Exit事件控制焦点

J6rdk2b4.zip (13.03 KB, 下载次数: 299)

foshan · 发表于 2005-7-24 08:44

[quote]以下是引用taller在2005-7-23 19:15:53的发言：

可能和提醒的MsgBox有关(个人猜测),利用Label实现提醒,利用Exit事件控制焦点

taller · 发表于 2005-7-24 10:43

在我这里没有问题,请在你的窗体中加入新的标签Label5(设置位提醒内容),然后更改部分代码

Option Explicit Public flag As Boolean Private Sub TextBox3_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean) Me.Label5.Visible = False flag = False If CInt(TextBox3) < 1980 Then 'MsgBox "年份不能小于1980年!" Me.Label5.Visible = True flag = True End If End Sub Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean) If flag Then Cancel = True End Sub Private Sub UserForm_Initialize() flag = False TextBox3 = Year(Now) Me.Label5.Visible = False ' TextBox4.Enabled = False ' TextBox5.Enabled = False End Sub

foshan · 发表于 2005-7-24 10:46

以下是引用taller在2005-7-23 16:24:41的发言： 。我的帖子上已经说了,那只是个示例--"下面只是示例,正式使用要考虑日期Combo根据选择的月份变"

我在 taller 版主的基础上添加了一些代码，请 taller 版主看看这样修改后是否可行，谢谢!

Zqa2Yp9A.rar (11.29 KB, 下载次数: 228)

taller · 发表于 2005-7-24 10:53

更改月份后,应该首先清除日期Combo下拉列表,然后再重新添加

选择年之前,禁用其它两个COMBO,选择月份前禁止用日期COMBO

[此贴子已经被作者于2005-7-24 10:54:36编辑过]

foshan · 发表于 2005-7-24 11:06

以下是引用taller在2005-7-24 10:43:09的发言：
在我这里没有问题,请在你的窗体中加入新的标签Label5(设置位提醒内容),然后更改部分代码

很好，用标签代替msgbox 。谢谢!

9zs4rsMj.rar (13.27 KB, 下载次数: 301)

[此贴子已经被taller于2005-7-24 11:09:58编辑过]

51082481 · 发表于 2005-7-25 11:09

建议最好用日历控件来实现！如果别的机子中缺少该控件文件！

可以将该控件文件ocx 随程序文件一起发布！

foshan · 发表于 2005-7-25 11:23

[quote]以下是引用ldhyob在2005-7-25 11:06:56的发言： 按楼主的要求,只利用一个文本框试做了一个.结合Change和KeyPress事件.供参考.

foshan · 发表于 2005-7-26 15:38

利用 DTPicker 控件进行时间录入的简例：

tFuO8244.rar (103.95 KB, 下载次数: 674)

		自动登录	找回密码
密码			免费注册