UI设计自制日历窗体（无需注册MSCOMCTL.OCX）

micch

太难了，不容易。

还是图省事，用窗体糊弄做一个吧

prome3

micch 发表于 2024-1-8 23:34
太难了，不容易。

还是图省事，用窗体糊弄做一个吧

省事是一方面，稳定性是另一方面。就我有限的经验来说，直接用VBA的内置窗体比起自己用API做一个窗体然后在上面做控件更稳定，因为自己做窗体的话，有太多消息要处理，做不好的话容易导致Office软件崩溃。

当然，做得好、做得对的话还是有巨大的好处的，毕竟所有的东西都建立在API之上，用API可以做到VBA以及Office默认提供的东西所做不到的。只是，需要的代码量会很多很多。一分钱一分货吧。

网上其实还有收费的日历控件。刚刚我看了一下，有一款（EXCalendar）做成了COM/ActiveX控件，支持很多函数，支持事件，价格1000+人民币，背后的源码据官网称是（去掉注释和空行后）72289行。

2楼还嫌代码量太大了，殊不知高效和安全的组件往往意味着更多行的代码。就好像开车需要系安全带一样，虽然麻烦些，但保证了安全，可以在道路车速限制内把车开得快一些。如果要在不系安全带的情况下保证安全，就只能开得慢一些。对应到程序上也一样，运行速度快且安全的代码往往也要求更大的代码量。嫌麻烦或者“省去”麻烦，必然要付出代价。

兴许是在EH论坛内待久了，看多了那些就只有一个Sub的 code snippets，就觉得我这日历背后的代码太多了。说实话我自己也很喜欢那种一个Sub解决问题的代码片段，但是在生产环境中，要稳定、高效且安全地完成一个功能，需要的代码真的太多太多了。

szdcp

prome3 发表于 2024-1-2 23:58
各位，新版来了。

版本号1.0.4

大神您好！

             本人VBA菜鸟,套用您的日历控件，运行就崩溃（Office2019标准版），请帮忙看看是啥原因，谢谢！

prome3

szdcp 发表于 2024-1-15 10:31
大神您好！

             本人VBA菜鸟,套用您的日历控件，运行就崩溃（Office2019标准版），请帮忙看 ...

已做修正，请见附件。

duhong2024

十分感谢，非常好的代码

szdcp

prome3 发表于 2024-1-15 23:15
已做修正，请见附件。

非常感谢您的帮忙，但是点击文本框旁边的日历控件就一直转圈，没反映，不知道是啥原因，可不可以不要控件，点击文本框即弹出日历窗直接选择？请帮忙看看。谢谢您！

prome3

szdcp 发表于 2024-1-16 09:01
非常感谢您的帮忙，但是点击文本框旁边的日历控件就一直转圈，没反映，不知道是啥原因，可不可以不要控件 ...

现在应该可以了，请见附件。

原先加一个日历的小图标，是因为 UserForm2 在显示时会自动把焦点给到第一个文本框里面，这会立即自动触发日历的显示。从用户体验的角度，这个现象会很奇怪，所以用了一个日历小图标来手动点击显示。现在去掉小图标，在 UserForm2 初始化事件里面先把焦点给到确认按钮，解决了这个问题。

然后，借此楼层说一下1.0.4及1.0.6版本中导致Excel崩溃的那个bug：
有一个名称为 InitCommonControlsEx 的枚举类型，该名称和对应的API名称冲突了。需要做如下修改：

1. Private Type InitCommonControlsEx
   
2.     dwSize As Long
   
3.     dwICC As Long
   
4. End Type

复制代码

改为

1. Private Type LPINITCOMMONCONTROLSEX
   
2.     dwSize As Long
   
3.     dwICC As Long
   
4. End Type

复制代码

，VBA7 API声明改为

1. Private Declare PtrSafe Function InitCommonControlsEx Lib "Comctl32" (ByRef picce As LPINITCOMMONCONTROLSEX) As Boolean

复制代码

VBA6-中的API做对应更改就行。最后是变量声明部分，

1. Private Function CreateCalendar(ByVal WindowCaption As String) As Boolean
   
2. 
   
3.     Dim picce As InitCommonControlsEx
   
4.     Dim rc As RECT

复制代码

改为

1. Private Function CreateCalendar(ByVal WindowCaption As String) As Boolean
   
2. 
   
3.     Dim icce As LPINITCOMMONCONTROLSEX
   
4.     Dim rc As RECT

复制代码

感谢楼上 @duhong2024 的肯定和支持！


以上。

szdcp

prome3 发表于 2024-1-16 20:24
现在应该可以了，请见附件。

原先加一个日历的小图标，是因为 UserForm2 在显示时会自动把焦点给到第 ...

大神您好！不知啥原因，您修改后的程序我还是无法使用，点击文本框就无响应然后EXCEL崩溃重启，算了我放弃了，感谢您的支持与帮助，谢谢您！

prome3

szdcp 发表于 2024-1-17 09:32
大神您好！不知啥原因，您修改后的程序我还是无法使用，点击文本框就无响应然后EXCEL崩溃重启，算了我放 ...

我这边运行起来没有任何问题，也是 Microsoft Office 2019（64位）：

网上有很多很多不基于 WINDOWS API 的日历控件，可以真真正正彻彻底底保证稳定运行。论坛内有很多，国外的也有。

至于国外的我比较喜欢的一款是 Trevor Eyre 做的，它的最新版已放到附件里面方便下载（注：控件代码和说明、示例文档都是英文的）。

感谢以往的肯定！

gchao15

看插入里---最后-日期