繁體中文当前位置: 首页 > 图文教程 > 数据库 > Access > 隐藏 Access 窗口
- Access
- 多表查询技巧
- 用 INNER JOIN语法联接多个表建记录集
- union这个连接是有什么用的和INNER JOIN有什么区别
- Microsoft Access 数据库常规规格
- 随机提取N条记录
- 给你的数据库文件减肥
- 将Access数据库移植到SQL Server
- Access使用查询--1.2.用选择查询进行分组数据的计算
- Access使用宏控制程序
- Access使用宏控制程序 3.在宏中使用条件
- Access使用宏控制程序 4.常用的宏操作
- Access使用宏控制程序--1.5.一个宏的实例——检验口令
- Access使用宏控制程序--1.6.使用宏的几点说明
- Access使用查询--1.1. 用选择查询建立计算字段
- Access使用查询
- 使用准则进行条件查询
- Access使用查询 在查询中执行计算的注意事项
- 使用准则进行条件查询--1.3.运行查询前输入参数
- 建立自由的会计日期的报表--1.3.根据用户选择日期自动计算期初期末日期
- 建立自由的会计日期的报表--1.4.让报表处理期初和期末之间的数据
隐藏 Access 窗口
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-10-30 浏览: 68 ::
收藏到网摘: n/a
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
评论 (0) All
