Gælder for
|
BoundObjectFrame-objekt |
Image-objekt |
OptionButton-objekt |
SubForm-objekt |
|
CheckBox-objekt |
Label-objekt |
OptionGroup-objekt |
TabControl-samling |
|
ComboBox-objekt |
Line-objekt |
Page-objekt |
TextBox-objekt |
|
CommandButton-objekt |
ListBox-objekt |
PageBreak-objekt |
ToggleButton-objekt |
|
CustomControl-objekt |
ObjectFrame-objekt |
Rectangle-objekt |
Du kan bruge egenskaben IsVisible i VBA-kode (Visual Basic for Applications ) for at afgøre, om et kontrolelement på en Rapport er synligt. Læs/skriv boolesk.
udtryk.IsVisible
udtryk Påkrævet. Et udtryk, der returnerer et af objekterne på listen Gælder for.
Bemærkninger
Egenskaben IsVisible anvender følgende indstillinger.
|
Indstilling |
Beskrivelse |
|
Sand |
(Standard) Kontrolelementet er synligt. |
|
Falsk |
Kontrolelementet er ikke synligt. |
Bemærk!: Du kan angive egenskaben IsVisible i hændelsen Udskriv begivenhed i en rapportsektion, som indeholder kontrolelementet.
Du kan bruge egenskaben IsVisible sammen med egenskaben HideDuplicates til at bestemme, hvornår et kontrolelement i en rapport er synligt, og vise eller skjule andre kontrolelementer som et resultat. Du kan f.eks. skjule et linjekontrolelement, når et tekstfelt kontrolelement er skjult, fordi det indeholder dublerede værdier.
Eksempel
I følgende eksempel anvendes egenskaben IsVisible for et tekstfelt til at styre visningen af et linjekontrolelement i en rapport. Rapporten er baseret på tabellen Produkter og anvender tre kontrolelementer med følgende egenskaber.
|
Egenskaber |
Linjekontrolelement |
Tekstfelt 1 |
Tekstfelt 2 |
|
Name |
Line0 |
CategoryID |
ProductName |
|
.Kontrolelementkilde |
CategoryID |
ProductName |
|
|
.SkjulDubletter |
Ja |
Nej |
|
|
Venstre |
0 |
0 |
2.0 |
|
Top |
0 |
.1 |
.1 |
|
Bredde |
4.0 |
1.0 |
1.0 |
Indsæt følgende kode i sektionen Declarations i rapportmodulet, og få derefter vist rapporten for at se linjeformateringen blive styret af egenskaben 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
