DetailPage-MSS-KB

知识库

文章编号: 210085 - 最后修改: 2006年10月11日 - 修订: 2.2

 
高级: 需要专家编码、 互操作性,和多用户技能。

本文适用于 Microsoft Access 数据库 (.mdb) 和 Microsoft Access 项目 (.adp)。

概要

若要定位在屏幕上的 Microsoft Access,必须调用 SetWindowPos() Windows API 函数。本文演示如何在屏幕上调用该函数以位置和大小 Microsoft Access。

更多信息

若要定位在屏幕上的 Microsoft Access,使用 $ SetWindowPos() API 函数包括在 Windows 中包含该 User32.dll 动态链接库 (DLL)。这样做,请按照下列步骤操作:

: 您可能必须在现有 Access 库中定义一些 Microsoft Windows API 函数 ; 因此,您声明可能重复项。如果您收到一条重复的过程名称"错误消息,删除或注释掉在代码中声明语句。
  1. 启动 Microsoft Access,然后打开任何数据库文件或项目文件。
  2. 创建一个新的模块。
  3. 键入或粘贴以下代码模块中:
    '====================================
    ' Global Declarations
    '====================================
    
    Option Compare Database
    Option Explicit
    
    'NOTE: The following "Declare" statement is case sensitive.
    
    Declare Sub SetWindowPos Lib "User32" (ByVal hWnd&, _
                               ByVal hWndInsertAfter&, _
                               ByVal X&, ByVal Y&, ByVal cX&, _
                               ByVal cY&, ByVal wFlags&)
    
    'Moves MS Access window to top of Z-order.
    Global Const HWND_TOP = 0
    
    'Values for wFlags.
    Global Const SWP_NOZORDER = &H4      'Ignores the hWndInsertAfter.
    
    Function SizeAccess(cX As Long, cY As Long, _
      cHeight As Long, cWidth As Long)
    
       Dim h As Long
       'Get handle to Microsoft Access.
       h = Application.hWndAccessApp
    
       'Position Microsoft Access.
       SetWindowPos h, HWND_TOP, cX, cY, cWidth, _
       cHeight, SWP_NOZORDER
    
    End Function
    
    
    					
  4. 打开立即窗口,然后键入下面的示例命令。本示例将 X 和 Y 都设置为 0,将宽度设置为 480,并将行高设置为 640。
    吗? SizeAccess(0,0,480,640)
  5. 按 ENTER,然后返回到 Access 窗口。
请注意位置和 Access 窗口的大小已更改以反映 cX、 cY、 cWidth 和 cHeight 变量分配值。

这篇文章中的信息适用于:
  • Microsoft Access 2000 标准版
关键字: 
kbmt kbhowto kbinfo kbprogramming KB210085 KbMtzh
机器翻译机器翻译
注意:这篇文章是由无人工介入的微软自动的机器翻译软件翻译完成。微软很高兴能同时提供给您由人工翻译的和由机器翻译的文章, 以使您能使用您的语言访问所有的知识库文章。然而由机器翻译的文章并不总是完美的。它可能存在词汇,语法或文法的问题,就像是一个外国人在说中文时总是可能犯这样的错误。虽然我们经常升级机器翻译软件以提高翻译质量,但是我们不保证机器翻译的正确度,也不对由于内容的误译或者客户对它的错误使用所引起的任何直接的, 或间接的可能的问题负责。
点击这里察看该文章的英文版: 210085  (http://support.microsoft.com/kb/210085/en-us/ )
Microsoft和/或其各供应商对于为任何目的而在本服务器上发布的文件及有关图形所含信息的适用性,不作任何声明。 所有该等文件及有关图形均"依样"提供,而不带任何性质的保证。Microsoft和/或其各供应商特此声明,对所有与该等信息有关的保证和条件不负任何责任,该等保证和条件包括关于适销性、符合特定用途、所有权和非侵权的所有默示保证和条件。在任何情况下,在由于使用或运行本服务器上的信息所引起的或与该等使用或运行有关的诉讼中,Microsoft和/或其各供应商就因丧失使用、数据或利润所导致的任何特别的、间接的、衍生性的损害或任何因使用而丧失所导致的之损害、数据或利润不负任何责任。
其他支持选项
Microsoft Community 支持论坛
直接联系我们
查找 Microsoft 认证合作伙伴
Microsoft 商店