自建日历选择窗口取代VBA日历控件mscomct2.ocx解决兼容问题

yf_home

向東 发表于 2019-5-22 08:33
本例用的是frm_query窗口，你可能是其他名字的窗口，我的意思你要把frm_query换成你自己定义的窗口名，我 ...

RibbonX控件的窗口，能用不？

向東

从原理上说是可以用的，但是我没试过，你可以试试。

本例的日历选择窗口是自定义的窗口，
然后其他窗口需要选择日期时，
就把这个窗口弹出来，
选择好了自动隐藏，
这就是本例的原理。

hubangjun

向東 发表于 2019-5-22 08:33
本例用的是frm_query窗口，你可能是其他名字的窗口，我的意思你要把frm_query换成你自己定义的窗口名，我 ...

谢谢！这段时间迷上了VBA了

mchotdog

xu_shiqian 发表于 2018-10-7 20:37
因为自己的程序比较大，利用放假将模块部分导出，简单作了个示例，供参考。

您好！您这个Calendar的文件使用方法也是拷贝到c:\Program Files\Microsoft Office\Office16\XLSTART\吗？
我是win10

mchotdog

向東 发表于 2019-5-23 14:34
从原理上说是可以用的，但是我没试过，你可以试试。

本例的日历选择窗口是自定义的窗口，

您好！您和xu_shiqian的这个Calendar的文件是如何使用的？

02761752696

谢谢   分享，可以解决兼容问题

xu_shiqian

mchotdog 发表于 2019-6-27 08:53
您好！您这个Calendar的文件使用方法也是拷贝到c:\Program Files\Microsoft Office\Office16\XLSTART\吗 ...

这个是不需要利用系统的ocx控件的，相当于自己开发了一个这样的控件，直接在文件里面使用。需要将楼主的程序模块复制到你自己的文件中，然后修改一下输出接口就可以了。

EH-yb

****前些天发现自己的Win64位没有日历控件，后跟作者学习，做了一个自己喜欢的日历，非常感谢作者的分享！
****作者是在选择月份的上一个月和下一个月的日期添加了CommandButton控件的Tag，记录月份，                                        用Len(buttonGroup.Tag) 甄别。
****试着将42个写着日期的控件的Tag写上年与月，在导出点击控件所在的日期简洁一些。
       With Me.Controls("CommandButton" & i).Tag
****具体在控件写入日期过程：Private Sub bottonDate(sMonth As Date, eMonth As Date)
1、选择月份的上个月的最后几天
……………………………………………
            If m = 1 Then
                .ControlTipText = 12 & "月" & .Caption & "日"
                .Tag = y - 1 & "-" & 12
            Else
                .ControlTipText = m - 1 & "月" & .Caption & "日"
                .Tag = y & "-" & m - 1
            End If
……………………………………………………………………………………
2、选择的当月
……………………
            .Tag = y & "-" & m
………………………………………………………………………………
3、 选择月份的下个月的最前几天
……………………………………
            If m = 12 Then
                .ControlTipText = 1 & "月" & .Caption & "日"
                .Tag = y + 1 & "-" & 1
            Else
                .ControlTipText = m + 1 & "月" & .Caption & "日"
                .Tag = y & "-" & m + 1
            End If
……………………………………………………………………………………
类模块输出：
……………   
    y=Split(buttonGroup.Tag, "-")(0)
    m=Split(buttonGroup.Tag, "-")(1)
    If frm_query.Visible Then '查询窗口
        With frm_query
            If CalendarForm.Cs Then
                 .TextBox7.Value = DateSerial(Y, m, buttonGroup.Caption)
            ElseIf CalendarForm.Ce Then
                  .TextBox8.Value = DateSerial(Y, m, buttonGroup.Caption)
            End If
        End With
    End If
…………………………………………………………………………………………………………

YZC51

EH-yb 发表于 2019-8-11 21:18
****前些天发现自己的Win64位没有日历控件，后跟作者学习，做了一个自己喜欢的日历，非常感谢作者的分享！
...

很不错！不过有附件就更好啦！

向東

EH-yb 发表于 2019-8-11 21:18
****前些天发现自己的Win64位没有日历控件，后跟作者学习，做了一个自己喜欢的日历，非常感谢作者的分享！
...

这个方法不错，代码简洁