Ypatybė Properties

Taikoma

Ypatybė Properties, taikoma objektams AccessObject, CodeProject ir CurrentProject.

Pateikia nuorodą į AccessObject, CurrentProject arba CodeProject objekto rinkinį AccessObjectProperties.

reiškinys.Properties

reiškinys Būtina. Reiškinys, kuris pateikia vieną iš anksčiau nurodytų objektų.

Pastabos

Rinkinio objektas AccessObjectProperties yra visų su objektu AccessObject, CurrentProject arba CodeProject susijusių ypatybių rinkinys. Atskirus rinkinio narius galite peržiūrėti naudodami objekto-nario rodyklę arba eilutės reiškinį, kuris yra objekto-nario pavadinimas. Pirmasis objektas-narys rinkinyje turi rodyklės reikšmę 0, o bendras objektų-narių skaičius rinkinyje yra rinkinio AccessObjectProperties ypatybės Count reikšmė atėmus 1.

Ypatybės Properties negalite naudoti norėdami, kad būtų pateikiamos ypatybės iš objekto AccessObject, kuris priklauso rinkiniui, pasiekiamam iš objekto CurrentData.

Ypatybė Properties, taikoma objektui SmartTag.

Pateikia rinkinį SmartTagProperties, kuris išreiškia konkrečios intelektualiosios žymės ypatybių rinkinį.

reiškinys.Properties()

reiškinys Būtina. Reiškinys, pateikiantis objektą SmartTag.

Ypatybė Properties, taikoma visiems likusiems sąrašo „Taikoma“ objektams.

Pateikia nuorodą į valdiklio rinkinio objektą Properties.

reiškinys.Properties

reiškinys Būtina. Reiškinys, kuris pateikia vieną iš sąrašo „Taikoma“ objektų.

Pastabos

Rinkinio objektas Properties yra visų su kokiu nors valdikliu susijusių ypatybių rinkinys. Atskirus rinkinio narius galite peržiūrėti naudodami objekto-nario rodyklę arba eilutės reiškinį, kuris yra objekto-nario pavadinimas. Pirmasis objektas-narys rinkinyje turi rodyklės reikšmę 0, o bendras objektų-narių skaičius rinkinyje yra rinkinio Properties ypatybės Count reikšmė atėmus 1.

Pavyzdys

Atliekant šią procedūrą ypatybė Properties naudojama spausdinti visas su valdikliais susijusias ypatybes derinimo lange. Norėdami vykdyti šį kodą, įdėkite komandos mygtuką cmdListProperties į formą ir įklijuokite toliau pateiktą kodą į formos deklaracijų sekciją. Spustelėkite komandos mygtuką, kad išspausdintumėte ypatybių derinimo lange sąrašą.

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