屏幕的暂停与更新

andymark · 发表于 2008-2-15 10:33:41

LockWindowUpdate 和GetDesktopWindow 一般配对使用，作用跟我们熟识的 DoCmd.Echo False和 DoCmd.Echo True有点相似，功能更为强大，在调用前，必须作如下的声明：

   '锁定指定窗口，禁止它更新。同时只能有一个窗口处于锁定状态
   Private Declare Function LockWindowUpdate Lib "user32" (ByVal hwndLock As Long) As Long
   ' 获得代表整个屏幕的一个窗口（桌面窗口）句柄
   Private Declare Function GetDesktopWindow Lib "user32" () As Long

   '锁定屏幕暂停刷新
   LockWindowUpdate GetDesktopWindow
   '这里是你认为不想显示的代码语句
   .............
   '恢复屏幕刷新
   LockWindowUpdate False