神马文学网用VB设计可以显示农历的日历（第2页）
来源：百度文库 编辑：神马文学网 时间：2024/06/03 06:21:09
用VB设计可以显示农历的日历
发布日期：2009-7-21 09:16 我要投稿 二、设计界面 在了解了控件之后，就可以先设计日历的界面了。打开VB6.0，利用我们前面的方法，添加农历控件和“Microsoft Calendar Contrl8.0“控件。然后分别将它们放置到Form1中，此外还需要两个Test控件，一个Frame控件和两个OptionButton控件（图2）。TAG: IT培训 设计 IT认证考试二、设计界面
在了解了控件之后，就可以先设计日历的界面了。打开VB6.0，利用我们前面的方法，添加农历控件和“Microsoft Calendar Contrl8.0“控件。然后分别将它们放置到Form1中，此外还需要两个Test控件，一个Frame控件和两个OptionButton控件（图2）。
图2
将Form1中的属性设置如下：
Caption精美日历
将Text1和Text2中的属性设置如下：
MultiLineTrue
ScrollBars2
将Frame1中的属性设置如下：
Caption选择农历显示的类型
将Option1中的属性设置如下：
Caption字符类型
ValueTrue
将Option2中的属性设置如下：
Caption数字类型
三、完成代码
设置完以上属性，我们就可以编写代码了。在Form1中输入代码：
Option Explicit
'显示农历相关信息的过程
Sub dispdated As String
Dim Ganzhi As String
Dim Animal As String
Dim JQ As String
Dim sMsgChineseDate As String
'判断参数是否为日期型
If IsDated Then
'判断是否在有效的范围内
If CDated < CDate″1920-1-1″ Or CDated > CDate″2019-12-31″ Then
Text1.Text = ″精美日历显示范围为1920年到2019年间100年的阳历转换″
Else
'设置需要转换的阳历日期
Calendar2.DateNow = CDated
'获取农历日期
sMsgChineseDate = Calendar2.ChineseDate
' 获取农历干支年份
Ganzhi = Calendar2.ChineseGanZhi
'获取农历属相
Animal = Calendar2.ChineseAnimal
'获取农历节气
JQ = Calendar2.chineseSolarTerm
'在文本框中显示相关的农历信息
Text1.Text = ″阳历的 ″ & CDated & ″ 对应农历的 ″ & Ganzhi & _ ″（″ & Animal & ″）″ & sMsgChineseDate & ″ ″ & JQ
End If
Else
Text1.Text = ″请输入有效的日期″
End If
End Sub
Private Sub Calendar1_Click
Call dispdateCalendar1.Value '调用显示农历相关信息的过程
End Sub
Private Sub Option1_Click
If Option1.Value = True Then
Calendar2.ChineseDateType = 0
End If
End Sub
Private Sub Option2_Click
If Option2.Value = True Then
Calendar2.ChineseDateType = 1
End If
End Sub
到此为止，运行这个程序，我们就可以看到一个可以显示农历的日历了。