Gjelder for
|
BoundObjectFrame-objektet |
Image-objektet |
OptionButton-objektet |
SubForm-objektet |
|
CheckBox-objektet |
Label-objektet |
OptionGroup-objektet |
TabControl-samlingen |
|
ComboBox-objektet |
Line-objektet |
Page-objektet |
TextBox-objektet |
|
CommandButton-objektet |
ListBox-objektet |
PageBreak-objektet |
ToggleButton-objektet |
|
CustomControl-objektet |
ObjectFrame-objektet |
Rectangle-objektet |
Du kan bruke egenskapen IsVisible i Visual Basic for Applications (VBA)-kode for å finne ut om en kontroll på en rapport er synlig. Lese/skrive Boolsk.
uttrykk.IsVisible
uttrykk Påkrevd. Et uttrykk som returnerer ett av objektene i Gjelder for-listen.
Kommentarer
Egenskapen IsVisible bruker følgende innstillinger.
|
Innstilling |
Beskrivelse |
|
True |
(Standard) Kontrollen er synlig. |
|
False |
Kontrollen vises ikke. |
Obs!: Du kan angi egenskapen IsVisible bare i hendelsen Skriv ut for en rapportinndeling som inneholder kontrollen.
Du kan bruke egenskapen IsVisible sammen med egenskapen HideDuplicates til å bestemme når en kontroll i en rapport vises, og vise eller skjule andre kontroller som et resultat. Du kan for eksempel skjule en linjekontroll når en tekstboks-kontroll skjules, siden den inneholder dupliserte verdier.
Eksempel
Følgende eksempel bruker egenskapen IsVisible for en tekstboks for å kontrollere visningen av en linjekontroll i en rapport. Rapporten er basert på en tabell med produkter og bruker tre kontroller med følgende egenskaper.
|
Egenskaper |
Linjekontroll |
Tekstboks #1 |
Tekstboks #2 |
|
Navn |
Line0 |
CategoryID |
ProductName |
|
ControlSource |
CategoryID |
ProductName |
|
|
HideDuplicates |
Ja |
Nei |
|
|
Venstre |
0 |
0 |
2.0 |
|
Øverst |
0 |
.1 |
.1 |
|
Bredde |
4.0 |
1.0 |
1.0 |
Lim inn følgende kode i deklarasjonsinndelingen i rapportmodulen, og vis deretter rapporten for å se linjeformateringen som kontrolleres av egenskapen 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