Lastnost Properties

Velja za

Lastnost Properties (Lastnosti) kot velja za predmete AccessObject, CodeProject in CurrentProject.

Vrne sklic na zbirko AccessObjectProperties predmeta AccessObject, CurrentProject ali CodeProject.

izraz.Properties

izraz Obvezen. Izraz, ki vrne enega od zgornjih predmetov.

Pripombe

Predmet zbirke AccessObjectProperties je zbirka vseh lastnosti, povezanih s predmetom AccessObject, CurrentProject ali CodeProject. Na posamezne člane zbirke se sklicujete tako, da uporabite indeks predmeta člana ali izraz niza, ki je ime predmeta člana. Prvi predmet člana v zbirki ima vrednost indeksa 0 in skupno število predmetov članov v zbirki je vrednost lastnosti Count zbirke AccessObjectProperties minus 1.

Z lastnostjo Properties (Lastnosti) ni mogoče vrniti lastnosti iz predmeta AccessObject, ki je član zbirke, do katere dostopate prek predmeta CurrentData.

Lastnosti Properties kot velja za predmet SmartTag.

Vrne zbirko SmartTagProperties, ki predstavlja zbirko lastnosti za določeno pametno oznako.

izraz.Properties()

izraz Obvezen. Izraz, ki vrne predmet SmartTag .

Lastnost Properties, kot velja za vse druge predmete na seznamu Velja za.

Vrne sklic na predmet zbirke Properties v kontrolniku.

izraz.Properties

izraz Obvezen. Izraz, ki vrne enega od predmetov s seznama »Velja za«.

Pripombe

Predmet zbirke Properties je zbirka vseh lastnosti, ki so povezane s kontrolnikom. Na posamezne člane zbirke se sklicujete tako, da uporabite indeks predmeta člana ali izraz niza, ki je ime predmeta člana. Prvi predmet člana v zbirki ima vrednost indeksa 0 in skupno število predmetov članov v zbirki je vrednost lastnosti Count zbirke Properties minus 1.

Primer

Spodnja procedura uporablja lastnost Properties za tiskanje vseh lastnosti, povezanih s kontrolniki v obrazcu, v okno za iskanje napak. Če želite zagnati to kodo, postavite ukazni gumb cmdListProperties v obrazec in prilepite to kodo v odsek »Declarations« (Deklaracije) v obrazcu. Kliknite gumb ukaz, če želite natisniti seznam lastnosti v oknu za iskanje napak.

Private Sub cmdListProperties_Click()
    ListControlProps Me
End Sub
Public Sub ListControlProps(ByRef frm As Form)
    Dim ctl As Control
    Dim prp As Property
    On Error GoTo props_err
    For Each ctl In frm.Controls
        Debug.Print ctl.Properties("Name")
        For Each prp In ctl.Properties
            Debug.Print vbTab & prp.Name & _
                " = " & prp.Value
        Next prp
    Next ctl
props_exit:
    Set ctl = Nothing
    Set prp = Nothing
Exit Sub
props_err:
    If Err = 2187 Then
        Debug.Print vbTab & prp.Name & _
            " = Only available at design time."
        Resume Next
    Else
        Debug.Print vbTab & prp.Name & _
            " = Error Occurred: " & Err.Description
        Resume Next
    End If
End Sub