Access Vba中实现可自定制功能的漂亮日历(转自http://www.accessoft.com===>红尘如烟)

最新推荐文章于 2021-01-12 18:06:22 发布

godzhong

最新推荐文章于 2021-01-12 18:06:22 发布

阅读量3.1k

点赞数

分类专栏： Access VBA学习&开发历程文章标签：日历 vba access integer function calendar

本文链接：https://blog.csdn.net/godzhong/article/details/6639933

版权

本文介绍如何在Access中使用VBA模块modCalendar和CalendarFor函数创建一个可定制的日历。通过该功能，用户能够根据需求进行各种筛选操作，实现灵活的应用。

摘要由CSDN通过智能技术生成

modCalendar代码如下:

Option Compare Database
Option Explicit

Private Type POINTAPI
    x As Long
    y As Long
End Type
Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type
Private Declare Function GetCursorPos Lib "User32" (lpPoint As POINTAPI) As Long
Private Declare Function MoveWindow Lib "User32" (ByVal hWnd As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long
Private Declare Function GetWindowRect Lib "User32" (ByVal hWnd As Long, lpRect As RECT) As Long
Private Declare Function apiGetFocus Lib "User32" Alias "GetFocus" () As Long
Private Declare Function GetDesktopWindow Lib "User32" () As Long

Public gtxtDateInput As TextBox     '接受输入的日期文本框
Public gstrActiveFormName As String    '日期文本框所在窗体名称
'===============================================================================================
'-函数名称：    CalendarFor
'-功能描述：    打开日历窗体，选择相应的日期并赋值给指定文本框
'-输入参数：    DateInputCtl    必需的，要赋值的日期文本框对象
'               Modal           可选的，是否以模式窗口打开日期选择窗体，主要用于输入框所在窗体为
'                               模式窗口时，默认为False
'-返回参数：    返回从日历窗口中选择的日期
'-其它说明：
'-使用注意：    此函数必须和日历窗体frmCalendar一起配合使用
'-返回参数：    无
'-使用示例：    CalendarFor Me.txtPrintDate 或将事件属性设为：=CalendarFor([txtPrintDate])
'-相关调用：
'-作    者：    红尘如烟
'-创建日期：    2009-5-11   改进 2010-7-16
'==========================================================================================&#