Se aplică la
Obiectul BoundObjectFrame |
Obiectul Image |
Obiectul OptionButton |
Obiectul SubForm |
Obiectul CheckBox |
Obiectul Label |
Obiectul OptionGroup |
Obiecte TabControl |
Obiectul ComboBox |
Obiectul Line |
Obiectul Page |
Obiectul TextBox |
Obiectul CommandButton |
Obiectul ListBox |
Obiectul PageBreak |
Obiectul ToggleButton |
Obiectul CustomControl |
Obiectul ObjectFrame |
Obiectul Rectangle |
Puteți utiliza proprietatea IsVisible în codul Visual Basic for Applications (VBA) pentru a determina dacă un control pe un raport este vizibil. Boolean în citire/scriere.
expresie.IsVisible
expresie Obligatoriu. O expresie care returnează unul dintre obiectele din lista Se aplică la.
Observații
Proprietatea IsVisible utilizează următoarele setări.
Setare |
Descriere |
True |
(Implicit) Controlul este vizibil. |
False |
Controlul nu este vizibil. |
Notă: Puteți seta proprietatea IsVisible doar în evenimentul Print al unei secțiuni de raport care conține controlul.
Puteți utiliza proprietatea IsVisible împreună cu HideDuplicates pentru a determina când este vizibil un control dintr-un raport și a afișa sau a ascunde în consecință alte controale. De exemplu, puteți ascunde un control de linie atunci când un control casetă text este ascuns deoarece conține valori dublate.
Exemplu
Următorul exemplu utilizează proprietatea IsVisible a unei casete text pentru a controla afișarea unui control de linie într-un raport. Raportul se bazează pe un tabel Products (Produse) și utilizează trei controale cu următoarele proprietăți.
Proprietăți |
Control linie |
Casetă text 1 |
Casetă text 2 |
Name |
Linie0 |
IDCategorie |
NumeProdus |
ControlSource |
IDCategorie |
NumeProdus |
|
HideDuplicates |
Da |
Nu |
|
Left |
0 |
0 |
2,0 |
Top |
0 |
0,1 |
0,1 |
Width |
4,0 |
1,0 |
1,0 |
Lipiți codul următor în secțiunea de declarații a modulului de raport, apoi vizualizați raportul pentru a vedea formatarea de linie controlată de proprietatea 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