展会信息港展会大全

如何隐藏Access窗口 android软件开发教程
来源:互联网   发布日期:2016-01-28 13:23:06   浏览:3144次  

导读: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 fSetAccessWind...

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, ByValnCmdShow 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

赞助本站

人工智能实验室

相关热词: 开发 编程 android

AiLab云推荐
展开

热门栏目HotCates

Copyright © 2010-2024 AiLab Team. 人工智能实验室 版权所有    关于我们 | 联系我们 | 广告服务 | 公司动态 | 免责声明 | 隐私条款 | 工作机会 | 展会港