自制仿Win7日期窗口的日期选择器

hqlin65

mzbao 发表于 2021-2-22 22:16
我这里显示可以的啊。你看上面的动图。你点一下调试看看哪个过程有问题。

再次请教您一个问题，能否做成单击窗体上的TextBox1就能弹出日历控件，并且将选择的日期填入TextBox1中？

mzbao

hqlin65 发表于 2021-2-22 22:40
再次请教您一个问题，能否做成单击窗体上的TextBox1就能弹出日历控件，并且将选择的日期填入TextBox1中？

我的附件里有窗体的示例。你把下面代码复制到你TextBox1的单击事件里就可以了。

1. Set DP_inCtl = Me.TextBox1
   
2. FmDateCL.Show

复制代码

另外在模块里定义一个公用变量：
Public DP_inCtl As Control

aecn

点击右下：
今天：2020-02-23
出现91错误

mzbao

aecn 发表于 2021-2-23 09:36
点击右下：
今天：2020-02-23
出现91错误

感谢，确实有个错误。在没有点过月份模式之前，月份相关的TextLab还没有创建，我原来代码里点右下角“今天”的时候会将月份的TextLab标签隐藏，这就出现了错误（我自己原来测试的时候都是先试验上面的，因为进过月份窗口，所以没有发现这个错误）。现在我更新了代码和1楼的附件，等会你重新载一个再试试。

hqlin65

mzbao 发表于 2021-2-23 10:22
感谢，确实有个错误。在没有点过月份模式之前，月份相关的TextLab还没有创建，我原来代码里点右下角“今 ...

很奇怪，我单位和家里都装同样版本的OFF，为什么家里的电脑运行正常，单位的就出错了呢？ 出错在这一句:Call .AdjustToYear(y + 1)

mzbao

hqlin65 发表于 2021-2-23 14:28
很奇怪，我单位和家里都装同样版本的OFF，为什么家里的电脑运行正常，单位的就出错了呢？ 出错在这一句:C ...

你单位电脑的日期默认格式是不是yyyy-m-d啊（现在电脑日期默认一般为yyyy/m/d），如果这样，我原来的判断条件可能有问题了。我更新一下附件，你明天在单位再试一下。

hqlin65

mzbao 发表于 2021-2-23 21:06
你单位电脑的日期默认格式是不是yyyy-m-d啊（现在电脑日期默认一般为yyyy/m/d），如果这样，我原来的判断 ...

你太棒了，谢谢您的分享。今晚重新下载，把家里的电脑日期格式设置为yyyy-m-d，及日期格式设置为yyyy/m/d运行都正常。

dengxsh

您好！请教：能否将文本框控件的中日期格式自定义为“yyyy年mm月dd日”？

dengxsh

hqlin65 发表于 2021-2-22 22:40
再次请教您一个问题，能否做成单击窗体上的TextBox1就能弹出日历控件，并且将选择的日期填入TextBox1中？

Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
    Set DP_inCtl = Me.TextBox1
    FmDateCL.Show
End Sub

mzbao

dengxsh 发表于 2021-2-24 19:24
您好！请教：能否将文本框控件的中日期格式自定义为“yyyy年mm月dd日”？

你把文本框控件里的日期用Format函数转换一下就可以了。