用VB设计可以显示农历的日历

2008-04-09 04:44:45来源：互联网 阅读 ()

　　二、设计界面

　　在了解了控件之后，就可以先设计日历的界面了。打开VB6.0，利用我们前面的方法，添加农历控件和“Microsoft Calendar Contrl8.0“控件。然后分别将它们放置到Form1中，此外还需要两个Test控件，一个Frame控件和两个OptionButton控件（图2）。


图2

　　将Form1中的属性设置如下：

　　　Caption?精美日历

　　将Text1和Text2中的属性设置如下：

　　　MultiLine?True
　　　ScrollBars?2

　　将Frame1中的属性设置如下：

　　　Caption?选择农历显示的类型
　　
　　将Option1中的属性设置如下：

　　　Caption?字符类型
　　　Value?True

　　将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 IsDate?d? Then
　　'判断是否在有效的范围内
　　If CDate?d? < CDate?″1920-1-1″? Or CDate?d? > CDate?″2019-12-31″? 　　Then
　　　Text1.Text = ″精美日历显示范围为1920年到2019年间100年的阳历转换″
　　Else
　　　'设置需要转换的阳历日期
　　　Calendar2.DateNow = CDate?d?
　　　'获取农历日期
　　　sMsgChineseDate = Calendar2.ChineseDate
　　　'　获取农历干支年份
　　　Ganzhi = Calendar2.ChineseGanZhi
　　　'获取农历属相
　　　Animal = Calendar2.ChineseAnimal
　　　'获取农历节气
　　　JQ = Calendar2.chineseSolarTerm
　　　'在文本框中显示相关的农历信息
　　　Text1.Text = ″阳历的 ″ & CDate?d? & ″ 对应农历的 ″ & Ganzhi & _ ″（″ & Animal & ″）″ & sMsgChineseDate & ″ ″ & JQ
　　End If
　Else
　　Text1.Text = ″请输入有效的日期″
　End If
End Sub

Private Sub Calendar1_Click??
　Call dispdate?Calendar1.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
　　到此为止，运行这个程序，我们就可以看到一个可以显示农历的日历了。