Platí pro
Objekt BoundObjectFrame |
Objekt Image |
Objekt OptionButton |
Objekt SubForm |
Objekt CheckBox |
Objekt Label |
Objekt OptionGroup |
Kolekce TabControl |
Objekt ComboBox |
Objekt Line |
Objekt Page |
Objekt TextBox |
Objekt CommandButton |
Objekt ListBox |
Objekt PageBreak |
Objekt ToggleButton |
Objekt CustomControl |
Objekt ObjectFrame |
Objekt Rectangle |
Pomocí vlastnosti IsVisible v kódu jazyka Visual Basic for Applications (VBA) můžete určit, zda je Ovládací prvek na Sestava viditelný. Typ Boolean pro čtení/zápis.
výraz.IsVisible
Výraz Povinný argument. Výraz, který vrátí jeden z objektů v seznamu Platí pro.
Poznámky
Vlastnost IsVisible (Je viditelné) používá následující nastavení.
Nastavení |
Popis |
True |
(Výchozí) Ovládací prvek se zobrazuje. |
False |
Ovládací prvek se nezobrazuje. |
Poznámka: Vlastnost IsVisible (Je viditelné) můžete nastavit jen v události Print (Tisk) pro část sestavy, která tento ovládací prvek obsahuje.
Vlastnost IsVisible můžete použít společně s vlastností HideDuplicates k určení, kdy je ovládací prvek v sestavě viditelný, a v důsledku toho zobrazit nebo skrýt jiné ovládací prvky. Můžete například skrýt ovládací prvek řádku, když je ovládací prvek Textové pole skrytý, protože obsahuje duplicitní hodnoty.
Příklad
V následujícím příkladu se vlastnost IsVisible (Je viditelné) textového pole používá k nastavení zobrazení ovládacího prvku řádku v sestavě. Sestava je založená na tabulce Products (Výrobky) a používá tři ovládací prvky s následujícími vlastnostmi.
Vlastnosti |
Ovládací prvek řádku |
Textové pole č. 1 |
Textové pole č. 2 |
Název |
Řádek 0 |
ID kategorie |
Název výrobku |
Zdroj ovládacího prvku |
ID kategorie |
Název výrobku |
|
Skrýt duplikáty |
Ano |
Ne |
|
Doleva |
0 |
0 |
2,0 |
Nahoru |
0 |
0,1 |
0,1 |
Šířka |
4,0 |
1,0 |
1,0 |
Do oddílu deklarací modulu sestavy vložte následující kód a pak v sestavě zkontrolujte formátování řádku, které je určeno vlastností IsVisible (Je viditelné):
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