Cómo: Quitar el cuadro de control (menú sistema) de una ventana de vista previa del informe en Access 2000

IMPORTANTE: Este artículo ha sido traducido por un software de traducción automática de Microsoft (http://support.microsoft.com/gp/mtdetails) en lugar de un traductor humano. Microsoft le ofrece artículos traducidos por un traductor humano y artículos traducidos automáticamente para que tenga acceso en su propio idioma a todos los artículos de nuestra base de conocimientos (Knowledge Base). Sin embargo, los artículos traducidos automáticamente pueden contener errores en el vocabulario, la sintaxis o la gramática, como los que un extranjero podría cometer al hablar el idioma. Microsoft no se hace responsable de cualquier imprecisión, error o daño ocasionado por una mala traducción del contenido o como consecuencia de su utilización por nuestros clientes. Microsoft suele actualizar el software de traducción frecuentemente.

304313
Este artículo se ha archivado. Se ofrece "tal cual" y no se volverá a actualizar.
Avanzado: Requiere codificación experto, interoperabilidad, conocimientos y multiusuario.

Este artículo hace referencia a una base de datos de Microsoft Access (.mdb) y a un proyecto de Microsoft Access (.adp).

En esta tarea

Resumen
En este artículo se muestra cómo quitar mediante programación el cuadro de controles (los botones Minimizar , Maximizar y Cerrar ) de una ventana de informe. En Access 2000, no puede utilizar la interfaz de usuario para hacerlo.

Nota : Microsoft ha agregado esta característica a Microsoft Access 2002.

back to the top

OBTENER MÁS INFORMACIÓN

En este artículo se utiliza la función SetWindowLong de la API de Windows para quitar el cuadro de control desde la ventana de informe.

En el siguiente ejemplo de código incluye una sección declaración que establece una referencia a la GetWindowLong y la SetWindowLong funciones en la biblioteca User32 API. Estas funciones establecen y devuelven el estilo de la ventana que se indica en la variable de hwnd .

Cuando ejecuta el código, primero utilizar la función GetWindowLong para almacenar el estilo de ventana actual a una variable largo. A continuación, modifique esa variable para excluir el cuadro de control, cuyas constantes también se incluyen en la sección de declaraciones. Por último, utilice la función SetWindowLong para insertar la variable larga modificada en el parámetro dwNewLong para restablecer el estilo de ventana.

Puesto que el evento Report_Activate() se ejecuta antes de pinta la ventana, el código siguiente hará que la ventana del informe que se mostrará sin un cuadro de control o un botón Cerrar .

Nota : después de que el cuadro de control se ha quitado la ventana del informe, el cuadro de controles no estarán disponible cuando vuelva a la vista Diseño. Para devolver el cuadro de control a la ventana informe en la vista Diseño, manualmente cierre la ventana informe haciendo clic en Cerrar en el menú archivo y vuelva a abrir el informe en la vista Diseño.

back to the top

CÓDIGO

Microsoft proporciona ejemplos de programación con fines ilustrativos únicamente, sin ninguna garantía tanto expresa como implícita. Esto incluye, entre otras, las garantías implícitas de comerciabilidad e idoneidad para un fin determinado. Este artículo se supone que está familiarizado con el lenguaje de programación que se muestra y con las herramientas que se utilizan para crear y depurar procedimientos. Los ingenieros de soporte técnico de Microsoft pueden explicarle la funcionalidad de un determinado procedimiento, pero no modificarán estos ejemplos para ofrecer mayor funcionalidad ni crearán procedimientos que cumplan sus requisitos específicos. Nota : Puede tener algunas funciones de API de Microsoft Windows definidas en una biblioteca Microsoft Access existente; por lo tanto, las declaraciones pueden estar duplicados. Si recibe un mensaje de error de nombre de procedimiento duplicados, quite o comente la instrucción de declaraciones en el código.
Option Compare DatabaseOption Explicit   Private Declare Function SetWindowLong Lib "user32" Alias _        "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, _        ByVal dwNewLong As Long) As Long   Private Declare Function GetWindowLong Lib "user32" Alias _        "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) _        As Long      'Establish constants for elements of the Window.     Const WS_MINIMIZEBOX = &H20000 'creates a window with a maximize box   Const WS_MAXIMIZEBOX = &H10000 'creates a window with a minimize box   Const WS_SYSMENU = &H80000 'creates window with a System-Menubox in its titlebar.          Const GWL_STYLE = (-16)       Private Sub Report_Activate()            Dim L As Long            'Get the current style.            L = GetWindowLong(Me.hwnd, GWL_STYLE)            'Modify the current style, subtracting            'the System Menu, thereby removing the Close Button also.            L = L And Not (WS_SYSMENU)                        'Further modify the current style, subtracting            'the Minimize Button, by uncommenting the following line.              ''L = L And Not (WS_MINIMIZEBOX)                        'Further modify the current style, subtracting            'the Maximize Button, by uncommenting the following below.            ''L = L And Not (WS_MAXIMIZEBOX)                                    L = SetWindowLong(Me.hwnd, GWL_STYLE, L)End Sub				
back to the top
Referencias
Para obtener información adicional acerca de Visual Basic para aplicaciones, haga clic en el número de artículo siguiente para verlo en Microsoft Knowledge Base:
226118OFF2000: Recursos de programación para Visual Basic para aplicaciones
back to the top
ACC2000

Advertencia: este artículo se ha traducido automáticamente

Propiedades

Id. de artículo: 304313 - Última revisión: 02/04/2014 14:09:09 - Revisión: 2.0

  • Microsoft Access 2000 Standard Edition
  • kbnosurvey kbarchive kbmt kbhowto kbhowtomaster KB304313 KbMtes
Comentarios