方法二------------------------------ 1、定义以下变量 Option Compare Database Option Explicit Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long
Const WM_SYSCOMMAND As Long = &H112 Const SC_MOVE_MOUSE As Long = &HF012& Private Declare Function ShowWindow Lib "user32" _ (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long 2、在启动窗体中键入以下代码并把启动窗体的弹出属性设为是 Private Sub Form_Load() ShowWindow Me.Application.hWndaccessApp, 0
