Atribuut Properties (Atribuudid)

Rakenduskoht

Objektide AccessObject,CodeProject ja CurrentProject atribuut Properties.

Tagastab viite objekti AccessObject, CurrentProject või CodeProject kogumile AccessObjectProperties.

avaldis.Properties

avaldis Nõutav. Avaldis, mis tagastab ühe ülaltoodud objektidest.

Kommentaarid

Kogumiobjekt AccessObjectProperties on kogumi kõigist atribuutidest, mis on seotud objektiga AccessObject, CurrentProject või CodeProject object. Kogumi üksikutele liikmetele viitamiseks saate kasutada liikme objektiindeksit või stringiavaldist, mis on objekti nimi. Kogumi esimese liikmesobjekti indeksi väärtus on 0 ning kogumi liikmesobjektide koguarvuks on kogumi AccessObjectProperties atribuudi Count väärtus miinus 1.

Atribuuti Properties ei saa kasutada andmete tagastamiseks objektilt AccessObject. See objekt on liikmeks kogumis, millele pääseb juurde objekti CurrentData kaudu.

Objekt SmartTag atribuut Properties.

Tagastab kogumi SmartTagProperties, mis esindab kindla nutika sildi atribuudikogumit.

avaldis.Properties()

avaldis Nõutav. Avaldis, mis tagastab objekti SmartTag .

Atribuut Properties kõigi muude loendis Rakenduskoht olevate objektide puhul.

Tagastab viite juhtelemendi kogumiobjektile Properties.

avaldis.Properties

avaldis Nõutav. Avaldis, mis tagastab loendi Rakenduskoht objekti.

Kommentaarid

Kogumiobjekt Properties on kõigi juhtelemendiga seotud atribuutide kogum. Kogumi üksikutele liikmetele viitamiseks saate kasutada liikme objektiindeksit või stringiavaldist, mis on objekti nimi. Kogumi esimese liikmesobjekti indeksi väärtus on 0 ning kogumi liikmesobjektide koguarvuks on kogumi Properties atribuudi Count väärtus miinus 1.

Näide.

Järgmises protseduuris kasutatakse kõigi vormi juhtelementidega seostatud atribuutide printimiseks silumisaknasse atribuuti Properties. Koodi käivitamiseks paigutage vormile käsunupp nimega cmdListProperties ja kleepige järgmine kood vormi deklaratsioonide jaotisse. Atribuutide loendi printimiseks silumisaknas klõpsake käsunuppu.

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