在这过程中要用到三个 Windows API 函数,它们是:
Private Declare Function LockWindowUpdate Lib "user32" (ByVal hwndLock As Long) As Long
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
下面开始设计报表,在本文中报表名为 rpt1,按照正常报表进行设计,只有一个属性需要特别设置:
Option Compare Database Option Explicit Private Declare Function LockWindowUpdate Lib "user32" (ByVal hwndLock As Long) As Long Private Sub Form_Unload(Cancel As Integer) Private Sub cmdCloseRPT_Click() Private Sub cmdLoadRpt_Click() ' 锁定当前桌面 ' 解锁当前桌面 |
例程下载:http://www.access-cn.com/UploadFiles/20031229194711700.rar