Odnosi se na
|
Objekat „BoundObjectFrame“ |
Objekat „Image“ |
Objekat „OptionButton“ |
SubForm objekat |
|
CheckBox objekat |
Objekat „Label“ |
Objekat „OptionGroup“ |
TabControl kolekcija |
|
ComboBox objekat |
Objekat „Line“ |
Objekat „Page“ |
TextBox objekat |
|
CommandButton objekat |
Objekat „ListBox“ |
Objekat „PageBreak“ |
ToggleButton objekat |
|
CustomControl objekat |
ObjectFrame objekat |
Objekat pravougaonika |
Možete da koristite svojstvo IsVisible u Visual Basic for Applications (VBA) kodu da biste utvrdili da li je kontrola u izveštaj vidljiv. Čitanje/pisanje Bulovih vrednosti.
expression.IsVisible
expression Obavezno. Izraz koji daje jedan od objekata sa liste „Odnosi se na“.
Primedbe
Svojstvo IsVisible koristi sledeće postavke.
|
Postavka |
Opis |
|
Tačno |
(Podrazumevano) Kontrola je vidljiva. |
|
False |
Kontrola nije vidljiva. |
Napomena: Možete da podesite svojstvo IsVisible samo u događaju Štampanje u odeljku izveštaja koji sadrži kontrolu.
Možete da koristite svojstvo IsVisible zajedno sa svojstvom HideDuplicates da biste odredili kada je kontrola u izveštaju vidljiva i da biste prikazali ili sakrili druge kontrole zbog toga. Na primer, možete da sakrijete kontrolu reda kada je okvir za tekst kontrola skrivena zato što sadrži duplirane vrednosti.
Primer
Sledeći primer koristi svojstvo IsVisible okvira za tekst za kontrolisanje prikaza kontrole reda u izveštaju. Izveštaj je zasnovan na tabeli „Proizvodi“ i koristi tri kontrole sa sledećim svojstvima.
|
Svojstva |
Kontrola reda |
Okvir za tekst #1 |
Okvir za tekst #2 |
|
Ime |
Line0 |
CategoryID |
ProductName |
|
ControlSource |
CategoryID |
ProductName |
|
|
HideDuplicates |
Da |
Ne |
|
|
Levo |
0 |
0 |
2.0 |
|
Vrh |
0 |
.1 |
.1 |
|
Širina |
4.0 |
1.0 |
1.0 |
Nalepite sledeći kôd u odeljak „Deklaracije“ modula izveštaja, a zatim prikažite izveštaj da biste videli oblikovanje reda koje kontroliše svojstvo 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
