隐藏Access主窗口之二_access api-access vb api-access系统调用

隐藏Access主窗口之二

时间：2005-08-16 11:35 来源：未知作者：共享阅读：次

'注：窗体的“弹出”及“模式”属性必须设为“是”，否则就什么都看不到，要按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

(责任编辑：admin)

顶一下

(0)

踩一下

(0)

上一篇：Access在程序中如何打开和关闭光驱门？
下一篇：VB创建多线程应用程序(二)