Стосується
|
Об’єкт BoundObjectFrame |
Об’єкт Image |
Об’єкт OptionButton |
Об’єкт SubForm |
|
Об’єкт CheckBox |
Об’єкт Label |
Об’єкт OptionGroup |
Колекція TabControl |
|
Об’єкт ComboBox |
Об’єкт Line |
Об’єкт Page |
Об’єкт TextBox |
|
Об’єкт CommandButton |
Об’єкт ListBox |
Об’єкт PageBreak |
Об’єкт ToggleButton |
|
Об’єкт CustomControl |
Об’єкт ObjectFrame |
Об’єкт Rectangle |
За допомогою властивості IsVisible у коді Visual Basic for Applications (VBA) можна визначити, чи відображається елемент керування на звіт. Логічний вираз (читання й записування).
вираз.IsVisible
expression — обов’язковий аргумент. Вираз, який повертає один з об'єктів у списку "Застосовується до".
Зауваження
Властивість IsVisible має наведені нижче значення.
|
Параметр |
Опис |
|
Істина |
Елемент керування видимий (стандартне). |
|
Хибність |
Елемент керування не видимий. |
Примітка.: Установити властивість IsVisible можна тільки для події Друк у розділі звіту, що містить елемент керування.
Ви можете доповнити властивість IsVisible властивістю HideDuplicates, щоб визначити умови відображення елемента керування у звіті та, зрештою, показувати або не показувати елементи керування. Наприклад, ви можете приховати елемент керування "рядок", якщо не відображається елемент керування "текстове поле", адже останній містить такі самі значення.
Приклад
У прикладі нижче властивість IsVisible текстового поля визначає можливість відображення елемента керування "рядок" у звіті. Звіт створено на основі таблиці "Товари" й містить три елементи керування з такими властивостями:
|
Властивості |
Елемент керування "рядок" |
Текстове поле 1 |
Текстове поле 2 |
|
Name |
Line0 |
CategoryID |
ProductName |
|
ControlSource |
CategoryID |
ProductName |
|
|
HideDuplicates |
Так |
Ні |
|
|
Left |
0 |
0 |
2,0 |
|
Top |
0 |
0,1 |
0,1 |
|
Width |
4,0 |
1,0 |
1,0 |
Вставте наведений нижче код у розділ "Оголошення" модуля звіту, а потім відкрийте звіт, щоб переглянути форматування рядка, що визначається властивістю 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 IfEnd Sub
