TopPicLogo TopPicText

Открытие отчета и разворачивание его на всю доступную область программы

Прислал: Дмитрий Сонных sonni-dim@mail.ru

При вызове отчета на просмотр он развернется на весь экран.
А при закрытии всё вернется к исходным размерам.
Правда тут есть и свои нюансы. Если вы не выходя из отчета захотите просмотреть какую либо форму просто переключив окно, то она окажется так же развернутой на весь экран или же отчет свернется до окна. Но для большинства случаев этот способ применим. Проверено на АС97 и АС2000.


'Помещаем в модуль описание
Public Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long

А в отчет следующие операторы

Option Compare Database
Option Explicit

Private RepHwnd As Long

Private Sub Report_Close()
Dim w As Long
w = ShowWindow(RepHwnd, 9)
End Sub

Private Sub Report_Open(Cancel As Integer)
Dim w As Long
RepHwnd = Report.hWnd
w = ShowWindow(RepHwnd, 3)
End Sub


Назад ToTop
L.E. 12.11.2012
Рейтинг@Mail.ru