Применение
| Объект BoundObjectFrame | Объект Image | Объект OptionButton | Объект SubForm |
|---|---|---|---|
| Объект CheckBox | Объект Label | Объект OptionGroup | Объект TabControl |
| Объект ComboBox | Объект Line | Объект Page | Объект TextBox |
| Объект CommandButton | Объект ListBox | Объект PageBreak | Объект ToggleButton |
| Объект CustomControl | Объект ObjectFrame | Объект Rectangle |
Чтобы определить, виден ли элемент управления в отчете, можно использовать свойство IsVisible в коде Visual Basic для приложений (VBA). Свойство имеет значение типа Boolean, доступное для чтения или записи.
выражение.IsVisible
выражение Обязательно. Выражение, возвращающее один из объектов в списке "Применяется к".
Замечания
Свойство IsVisible может принимать следующие значения:
| Параметр | Описание |
|---|---|
| True | (Значение по умолчанию.) Элемент управления отображается. |
| False | Элемент управления не отображается. |
Примечание
Свойство IsVisible задается только в событии Print (Печать) раздела отчета, содержащего этот элемент управления.
Чтобы определить, когда выводить на экран элемент управления в отчете, и в результате этого скрывать или выводить другие элементы управления, можно использовать свойство IsVisible вместе со свойством HideDuplicates (Не выводить повторы). Например, можно скрыть элемент управления "Строка", если элемент управления текстовым полем скрыт, так как он содержит повторяющиеся значения.
Пример
В приведенном ниже примере свойство IsVisible текстового поля используется для управления отображением строк в отчете. Отчет основан на таблице "Товары" и использует три элемента управления со следующими свойствами.
| Свойства | Элемент управления "Линия" | Текстовое поле 1 | Текстовое поле 2 |
|---|---|---|---|
| Имя | Line0 | CategoryID | ProductName |
|
|
CategoryID | ProductName | |
|
|
Да | Нет | |
|
|
0 | 0 | 2,0 |
|
|
0 | 0,1 | 0,1 |
| Ширина | 4,0 | 1,0 | 1,0 |
Вставьте следующий код в раздел описаний (Declarations) модуля отчета и просмотрите отчет, чтобы увидеть, как свойство IsVisible управляет форматированием линии:
Private Sub Detail_Print(Cancel As Integer, _
PrintCount As Integer)
If Me!CategoryID.IsVisible Then
Me!Line0.Visible = True
Else
Me!Line0.Visible = False
End If
End Sub