ACC2000： 如何使用 VisualBasicforApplications 来减少、 最大化, 和还原访问
察看本文应用于的产品
注意：这篇文章是由无人工介入的微软自动的机器翻译软件翻译完成。微软很高兴能同时提供给您由人工翻译的和由机器翻译的文章, 以使您能使用您的语言访问所有的知识库文章。然而由机器翻译的文章并不总是完美的。它可能存在词汇，语法或文法的问题，就像是一个外国人在说中文时总是可能犯这样的错误。虽然我们经常升级机器翻译软件以提高翻译质量，但是我们不保证机器翻译的正确度，也不对由于内容的误译或者客户对它的错误使用所引起的任何直接的, 或间接的可能的问题负责。如果您发现了错误并希望帮助我们提高机器翻译技术，请完成文章末尾的在线调查。
文章编号 : 210090
最后修改 : 2006年10月11日
修订 : 3.2
高级： 要求专家编码、 互操作, 和多用户技能。

本文适用于 MicrosoftAccess 数据库 (.mdb) 以及在 MicrosoftAccess 项目 (.adp)。

概要
本文向您如何使用 Visual Basic for Applications 代码来最大化、 最小化, 和还原 Access。

可使用 RunCommand 操作来最大化， 减少, 和还原 Access。 例如, 可使用下列:   DoCmd.RunCommand acCmdAppMaximize
  DoCmd.RunCommand acCmdAppMinimize
  DoCmd.RunCommand acCmdAppRestore
    
如果您使用自动化, 您可以使用下面：   application.DoCmd.RunCommand acCmdAppMaximize
  application.DoCmd.RunCommand acCmdAppMinimize
  application.DoCmd.RunCommand acCmdAppRestore
    
更多信息
Microsoft 提供编程示例仅, 供图示不附带任何明示或暗示。 这包括, 但不仅限于, 适销性或用于特定目的适用性的暗示保证。 本文假定您已熟悉与正在演示编程语言以及工具来调试过程来创建和使用。 Microsoft 支持工程师可以帮助解释功能的特定过程, 但它们将会修改这些示例以提供添加功能或构建过程以满足特定要求。 您也可以编写 VisualBasic 对于 VisualBasicforApplications 函数， 使用 WindowsAPI 调用来最大化， 减少, 和还原当前应用程序窗口。 要查看示例有, 请按照下列步骤操作： 1. 在新 Access 数据库, 模块 , 依次 新建 。 出现 " VisualBasic 编辑器。 
2. 键入或粘贴以下代码： Option Explicit

   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 MaximizeApp()
   Dim Maxit%
   Maxit% = ShowWindow(hWndAccessApp, SW_SHOWMAXIMIZED)
End Function

Function MinimizeApp()
   Dim Minit%
   Minit% = ShowWindow(hWndAccessApp, SW_SHOWMINIMIZED)
End Function

Function RestoreApp()
   Dim Restoreit%
   Restoreit% = ShowWindow(hWndAccessApp, SW_SHOWNORMAL)
End Function
     
 
3. 保存模块, 然后关闭 VisualBasic 编辑器。 
4. 创建新窗体称为 MyForm, 然后创建下列命令按钮：    Command button
   ------------------------
   Name: MinAcc
   Caption: Minimize Access
   OnClick: =MinimizeApp()
     
 
5. 保存表单, 并窗体视图中打开窗体。 
6. 单击 Access 最小化 按钮以查看最小化访问。