怎样用代码隐藏、最大化、最小化ACCESS的主窗口

活宝窦豆哥

活宝窦豆哥

2016-02-19 20:37

在这个颜值当道,屌丝闪边的时代,拼不过颜值拼内涵,只有知识丰富才能提升一个人的内在气质和修养,所谓人丑就要多学习,今天图老师给大家分享怎样用代码隐藏、最大化、最小化ACCESS的主窗口,希望可以对大家能有小小的帮助。

    (问)  怎样用代码隐藏、最大化、最小化ACCESS的主窗口? 

  (答)  通过一函数已定义的常量 fSetAccessWindow 实现。

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/bianchengyuyan/)

  该函数能用来完全隐藏 Access 窗口并将你自己的窗体显示在桌面上。在弹出式窗体的 Open 事件中使用 SW_HIDE 参数调用 fSetAccessWindow 函数实现。

  注意:如果你隐藏了 Access 主窗口,要确定你有良好的出错处理。因为主窗口隐藏后,一旦引发错误,并出错提示窗口上点击了“结束”按钮,这样不会使 Access 主窗口可见,并退出你自己的窗体。推荐你在你的错误处理程序中使用 SW_SHOWNORMAL 参数调用 fSetAccessWindow 函数来显示 Access 主窗口。

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/bianchengyuyan/)

  如果由于别的原因,Access 主窗口不能显示,那么你将只能从任务栏中关闭你的 mdb,在 Win 9x 中使用 Control-Alt-Delete 来结束任务,在 Win NT 、2000 或 XP 中,可以右键单击任务栏选择任务管理器来选择该 mdb 结束任务。

'************ 代码开始 **********
Global Const SW_HIDE = 0
Global Const SW_SHOWNORMAL = 1
Global Const SW_SHOWMINIMIZED = 2
Global Const SW_SHOWMAXIMIZED = 3 

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
  Set loFORM = Screen.ActiveFORM
  If Err 0 Then ' 没有活动窗体 no ActiveFORM
   If nCmdShow = SW_HIDE Then
    MsgBox "除非屏幕上有一个窗口,否则不能隐藏 Access 主窗口!" _
          & vbcr & vbcr _
          & "Cannot hide Access unless " _
          & "a FORM is on screen"
   Else
    loX = apiShowWindow(hWndAccessApp, nCmdShow)
    Err.Clear
   End If
  Else
    If nCmdShow = SW_SHOWMINIMIZED And loFORM.Modal = True Then
      MsgBox "不能由屏幕上的 " & (loFORM.Caption + " ") & "窗体最小化 Access 主窗口!" _
          & vbcr & vbcr _
          & "Cannot minimize Access with " _
          & (loFORM.Caption + " ") _
          & "FORM on screen"
    ElseIf nCmdShow = SW_HIDE And loFORM.PopUp True Then
      MsgBox "不能由屏幕上的 " & (loFORM.Caption + " ") & "窗体隐藏 Access 主窗口!" _
          & vbcr & vbcr _
          & "Cannot hide Access with " _
          & (loFORM.Caption + " ") _
          & "FORM on screen"
    Else
      loX = apiShowWindow(hWndAccessApp, nCmdShow)
    End If
  End If
  fSetAccessWindow = (loX 0)
End Fun

您正在看的access教程是:怎样用代码隐藏、最大化、最小化ACCESS的主窗口。ction 

'************ 代码结束 **********

展开更多 50%)
分享

猜你喜欢

怎样用代码隐藏、最大化、最小化ACCESS的主窗口

编程语言 网络编程
怎样用代码隐藏、最大化、最小化ACCESS的主窗口

VBA修改窗口为最小化、最大化代码

电脑入门
VBA修改窗口为最小化、最大化代码

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

怎样用代码来最小化或恢复程序

编程语言 网络编程
怎样用代码来最小化或恢复程序

win7禁止窗口自动最大化

电脑入门
win7禁止窗口自动最大化

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

怎么解决IE窗口最小化故障

计算机应用技术
怎么解决IE窗口最小化故障

解决IE窗口始终最小化的问题

浏览器
解决IE窗口始终最小化的问题

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

联合应用技术介绍之Ajax安全基础

联合应用技术介绍之Ajax安全基础

菜鸟学用Access 轻松打造花店订单系统

菜鸟学用Access 轻松打造花店订单系统
下拉加载更多内容 ↓