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

Seleccione idioma Seleccione idioma
Id. de artículo: 304313 - Ver los productos a los que se aplica este artículo
Este artículo se ha archivado. Se ofrece "tal cual" y no se volverá a actualizar.
Expandir todo | Contraer todo

En esta página

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.

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.

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 Database
Option 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
				

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

Propiedades

Id. de artículo: 304313 - Última revisión: martes, 04 de febrero de 2014 - Versión: 2.0
La información de este artículo se refiere a:
  • Microsoft Access 2000 Standard Edition
Palabras clave: 
kbnosurvey kbarchive kbmt kbhowto kbhowtomaster KB304313 KbMtes
Traducción automática
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.
Haga clic aquí para ver el artículo original (en inglés): 304313

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com