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

模块部分代码：保存有各种函数声明段、对配置文件的操作以及部分常用变量和数组的定义 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, App.Path \cal.set) SetColor(i) = CLng(s) Next 读取字体配置信息