Office中国论坛/Access中国论坛

标题: 请教版主2 [打印本页]

作者: 天启 时间: 2002-3-9 17:10
标题: 请教版主2
ACCESS程序编完使用时，能不能隐去ACCESS主窗口，象VB一样，这样也可防止其他人在主窗口改动程序，看起来又美观，要不然程序用起来总有一种未完成的感觉！！！！！！

作者: gnoy 时间: 2002-3-9 19:08
ACCESS97能作到，不知其他版本如何

作者: gnoy 时间: 2002-3-9 19:11
1.建立如下函數
Private Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long
Dim dwReturn As Long

Const SW_HIDE = 0
Const SW_SHOWNORMAL = 1
Const SW_SHOWMINIMIZED = 2
Const SW_SHOWMAXIMIZED = 3

Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long

Public Function fAccessWindow(Optional Procedure As String, Optional SwitchStatus As Boolean, Optional StatusCheck As Boolean) As Boolean
If Procedure = "Hide" Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE)
End If
If Procedure = "Show" Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED)
End If
If Procedure = "Minimize" Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMINIMIZED)
End If
If SwitchStatus = True Then
If IsWindowVisible(hWndAccessApp) = 1 Then
   dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE)
Else
   dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED)
End If
End If
If StatusCheck = True Then
If IsWindowVisible(hWndAccessApp) = 0 Then
   fAccessWindow = False
End If
If IsWindowVisible(hWndAccessApp) = 1 Then
   fAccessWindow = True
End If
End If
End Function
2.按如下方法調用
fAccessWindow ("Hide",False, False)

作者: 天启 时间: 2002-3-12 00:53
ACCESS上好象不行

作者: 天启 时间: 2002-3-12 00:53
ACCESS2000上好象不行

作者: ganrong 时间: 2002-3-12 05:25
提示: 作者被禁止或删除内容自动屏蔽

作者: chenwintek 时间: 2002-3-12 16:59
在ACCESS XP里不行。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)