[分享]呵呵，用了这个，俺不知怎样关闭报表了

secowu

2002

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. This removes the Close button also.

   L = L And Not (WS_SYSMENU)



   'Also modify the current style, subtracting the

   'Minimize & Maximize buttons, by uncommenting the following

   'line and commenting the line above.

   'If you subtract the Minimize button, the Maximize button is

   'also subtacted and vice versa.

   ''L = L And Not (WS_MINIMIZEBOX)

   ''L = L And Not (WS_MAXIMIZEBOX)



   L = SetWindowLong(Me.hwnd, GWL_STYLE, L)



End Sub

http://support.microsoft.com/default.aspx?scid=kb;en-us;304312

http://support.microsoft.com/default.aspx?scid=kb;en-us;304313