VB电子台历代码课程设计.doc

'模块部分代码:保存有各种函数声明段、对配置文件的操作以及部分常用变量和数组的定义
Option Explicit
'窗体设置区域
Public Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
'SetWindowRgn函数声明段
Public 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
'CreateRoundRectRgn函数声明段
Public Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
'GetSystemMetrics函数声明段
Public Const SM_CYCAPTION = 4 '标题栏高度
Public Const SM_CYFRAME = 33 '上下边框高度
Public Const SM_CXFRAME = 32 '左右边框宽度
'配置文件操作
Public Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
'WritePrivateProfileString函数声明段
Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
'GetPrivateProfileString函数声明段

Public Const CALLEFT As Integer = 30
Public Const CALTOP As Integer = 120
Public Const CALHGRID As Integer = 40
Public Const CALVGRID As Integer = 40
Public SetColor(6) As Long '定义颜色数组
Public SetFont(4) As String '定义字体数组
Public CurYear As Integer
Public CurMonth As Integer
Public Notes() As String '定义记事内容为动态数组
Public Notesdate() As String '定义记事日期为动态数组
Public Notesnum As Integer
Public pic As Integer
Public Festivals() As String '定义节日动态数组
Public Festivalsdate() As String '定义节日日期动态数组
Public Festivalsnum As Integer
Public Sub ReadSet() '读取配置文件
Dim s As String * 100
Dim i As Integer
Dim n As Integer
'读取颜色配置信息
For i = 1 To 6
n = GetPrivateProfileString("SetColor", "颜色" & i, "0", s, 15, & "\")
SetColor(i) = CLng(s)
Next
'读取字体配置信息
F