文档介绍:课程设计题目电子台历
所选题目:电子台历
难度:两星级**
知识点:(1)非矩形窗口;(2)动态数组;(3)配置文件的读写;(4)图片的应用;(5)控件数组;(6)弹出式菜单的使用;(7)公共对话框控件;(8)多模块程序设计;(9)日期函数的使用
前言
“台历”是人们办公、学****的好帮手,人们把它置于案头用来查看日期、星期并可以方便地记事。本题目便编制一个“电子台历”程序,实现台历的一般功能。
功能
启动程序,显示一个圆角矩形窗口,并自动显示当前月的月历。星期从星期一开始排列,星期六和星期天以不同的颜色显示。
鼠标单击可以查看不同的年份和月份(左键增大,右键减小)。单击某个日期会在窗口右半边显示是否有记事。双击左下角的当前日期,可以使台历立即显示当月月历。
在窗体的空白处右击,可以弹出一个菜单,可以对显示的日历日期的颜色、字体,窗体的背影图片加以修改。所有颜色、字体和背影图片的设置会自动保存,下次启动时会自动应用上一次的设置。
从快捷菜单中选择“添加节日”或“添加记事”,可以分别实现对节日和记事的添加。在弹出的对话框中,能同时添加多个节日或记事。
课程设计的详细设计
程序的界面要求是圆角矩形窗口,该功能的实现用到了SetWindowRgn函数。SetWindowRgn函数是属于API函数,在使用时要先声明。其代码如下:
Private Declare Function CreateRoundRectRgn Lib "gdi32" (ByVal X1 As Long, _
ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, _
ByVal X3 As Long, ByVal Y3 As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, _
ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
hRgn = CreateRoundRectRgn(0, 0, 570, 400, 80, 100) '创建圆角矩形区域
Call SetWindowRgn(, hRgn, True)
年份、月份、日期和记事的显示依靠标签的Caption属性。其中,星期和日期的显示使用了控件数组,星期的显示使用了14个控件,日期的显示使用了74个控件。又把各个标签的背影设为透明,这样,便实现了日历界面的显示。
为了使文字有浮于图片之上的立体感,使用了内容相同但颜色伸浅不同且位置错开一点的两个控件来实现。功能的实现依靠以下代码:
Public Sub GetCaption() '产生标签的文字,达到字体有悬浮的效果
Dim j As Integer
=
=
=
=
=
=
For j = 37 To 73
lblDay(j).Caption = lblDay(73 - j).Caption
Next
=
=
For j = 0 To 6
lblWeek(13 - j).FontName = lblWeek(j).FontName
Next
End Sub
本程序的主窗口使用了漂亮的图片作背影,:
Private Sub Pic1_Click() '日历背影图象变化
= Nothing
= LoadPicture( & "\pics\")
= True
= False
= False
= False