日历控件如何显示公历

了解了控件之后，就可以先设计日历界面了。打开VB6.0，用我们之前的方法添加农历控件和“Microsoft Calendar Contrl8.0”控件。然后分别放入Form1。此外，您需要两个测试控件，一个Frame控件和两个OptionButton控件(图2)。

图2

按如下方式设置Form1中的属性:

标题？精美的日历

按如下方式设置Text1和Text2中的属性:

多线？真实的

滚动条？2

按如下方式设置Frame1中的属性:

标题？选择农历显示的类型

按如下方式设置Option1中的属性:

标题？字符类型

价值？真实的

按如下方式设置选项2中的属性:

标题？数字类型

第三，完成代码

设置好以上属性后，我们就可以写代码了。输入表格1中的代码:

选项显式

显示农历信息的过程

Sub显示为字符串

昏暗的干支如弦

将动物变暗为字符串

将JQ调成字符串

Dim sMsgChineseDate为字符串

判断参数是否为日期类型。

If IsDate？那么d

判断是否在有效范围内。

如果CDate？d & ltCDate？″1920-1-1″还是CDate？d & gtCDate？2019-12-31

文本1。text = "精美日历显示从1920到2019的100年阳历换算"。

其他

设置要转换的阳历日期。

日历2。DateNow = CDate？d

获取农历日期

sMsgChineseDate = Calendar2。中国枣

获取农历主支的年份

干支= Calendar2。中国干支

获取农历十二生肖

动物=日历2。中国动物

获取农历节气

JQ =日历2 .中国太阳能

在文本框中显示相关农历信息。

text 1 . text = " Gregorian " &；CDate？d & amp“对应农历”&；干支& amp_″(″& amp；动物与健康。") "& ampsMsgChineseDate & amp″″& amp；JQ

如果…就会结束

其他

Text1.text = "请输入有效的日期"

如果…就会结束

末端接头

私人子日历1_Click？

调用dispdate？日历1。“值”调用显示农历相关信息的过程。

末端接头

私有子选项1_Click？

If选项1。那么值=真

日历2。ChineseDateType = 0

如果…就会结束

末端接头

私有子选项2_Click？

如果选项2。那么值=真

日历2。ChineseDateType = 1

如果…就会结束

末端接头

到目前为止，运行这个程序，可以看到一个可以显示农历的日历。