| 订阅 | 在线投稿
分享
 
 
 

隐藏 Access 窗口

来源:互联网网民  宽屏版  评论
2006-12-16 17:32:44

Global Const SW_HIDE = 0

Global Const SW_SHOWNORMAL = 1

Global Const SW_SHOWMINIMIZED = 2

Global Const SW_SHOWMAXIMIZED = 3

Declare Function ShowWindow Lib "user32" (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 = ShowWindow(hWndAccessApp, nCmdShow)

Err.Clear

fSetAccessWindow = (loX <> 0)

End Function

 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
Global Const SW_HIDE = 0 Global Const SW_SHOWNORMAL = 1 Global Const SW_SHOWMINIMIZED = 2 Global Const SW_SHOWMAXIMIZED = 3 Declare Function ShowWindow Lib "user32" (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 = ShowWindow(hWndAccessApp, nCmdShow) Err.Clear fSetAccessWindow = (loX <> 0) End Function
󰈣󰈤
 
 
 
>>返回首页<<
 
 热帖排行
 
 
静静地坐在废墟上,四周的荒凉一望无际,忽然觉得,凄凉也很美
©2005- 王朝网络 版权所有