当前位置:学学看123知识中心电脑教学数据库教程隐藏 Access 窗口» 正文

隐藏 Access 窗口

[06-11 18:15:56]   来源:http://www.xxk123.com  数据库教程   阅读:8724

导读:Global Const SW_HIDE = 0Global Const SW_SHOWNORMAL = 1Global Const SW_SHOWMINIMIZED = 2Global Const SW_SHOWMAXIMIZED = 3 Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As LongFunction fSetAccessWindow(nCmdShow As Long)' 使用举例' 最大化 Access 窗口' ?fSetAccessWindow(SW_SHOWMAXIMIZED)' 最小化 Access 窗口' ?fSetAccessWindow(SW_SHOWMINIMIZED)' 隐藏 Access 窗口' ?fSetAccessWindow(SW_HIDE)' 正常显示 Access 窗口' ?fSetAccessWindow

隐藏 Access 窗口,标签:sql数据库教程,access数据库教程,http://www.xxk123.com
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


Tag:数据库教程sql数据库教程,access数据库教程电脑教学 - 数据库教程
前一篇:Access命令行参数
《隐藏 Access 窗口》相关文章

Copyright 学学看123 All Right Reserved.

1 2 3 4 5 6 7 8 9 10