'×¢£º´°ÌåµÄ¡°µ¯³ö¡±¼°¡°Ä£Ê½¡±ÊôÐÔ±ØÐëÉèΪ¡°ÊÇ¡±£¬·ñÔò¾Íʲô¶¼¿´²»µ½£¬Òª°´Ctrl+Alt+DElÀ´ÕÒµ½"MsAccess.exe"½áÊøÈÎÎñ²Å¿ÉÒÔÔÙ´ò¿ª¡£ '//ShowWindow flags Private Const SW_HIDE = 0 Private Const SW_SHOWNORMAL = 1 Private Const SW_SHOWMINIMIZED = 2 Private Const SW_SHOWMAXIMIZED = 3 'sets the specified window's show state. Private Declare Function apiShowWindow Lib "user32" _ Alias "ShowWindow" _ (ByVal hwnd As Long, _ ByVal nCmdShow As Long) _ As Long
Function fSetAccessWindow(nCmdShow As Long) ' ʹÓþÙÀý ' ×î´ó»¯ Access ´°¿Ú ' ?fSetAccessWindow(SW_SHOWMAXIMIZED) ' ×îС»¯ Access ´°¿Ú ' ?fSetAccessWindow(SW_SHOWMINIMIZED) ' Òþ²Ø Access ´°¿Ú ' ?fSetAccessWindow(SW_HIDE) ' Õý³£ÏÔʾ Access ´°¿Ú ' ?fSetAccessWindow(SW_SHOWNORMAL) ' Dim loX As Long Dim loForm As Form On Error Resume Next loX = apiShowWindow(hWndAccessApp, nCmdShow) Err.Clear fSetAccessWindow = (loX <> 0) End Function
