Properties 속성

적용 대상

AccessObject 개체

Control 개체

Label 개체

Page 개체

SubForm 개체

BoundObjectFrame 개체

CurrentProject 개체

Line 개체

PageBreak 개체

TabControl 컬렉션

CheckBox 개체

CustomControl 개체

ListBox 개체

Rectangle 개체

TextBox 개체

CodeProject 개체

Form 개체

ObjectFrame 개체

Report 개체

ToggleButton 개체

ComboBox 개체

GroupLevel 개체

OptionButton 개체

Section 개체

CommandButton 개체

Image 개체

OptionGroup 개체

SmartTag 개체

Properties 속성이 AccessObject, CodeProject 및 CurrentProject 개체에 적용되는 경우.

AccessObject, CurrentProject 또는 CodeProject 개체의 AccessObjectProperties 컬렉션에 대한 참조를 반환합니다.

expression.Properties

expression은 필수입니다. 위 개체 중 하나를 반환하는 식입니다.

주의

AccessObjectProperties 컬렉션 개체는 AccessObject, CurrentProject 또는 CodeProject 개체에 관련된 모든 속성의 컬렉션입니다. 멤버 개체의 인덱스 또는 멤버 개체의 이름인 문자열 식을 사용하여 컬렉션의 개별 멤버를 참조할 수 있습니다. 컬렉션의 첫 번째 멤버 개체는 인덱스 값이 0이고 컬렉션에 있는 총 멤버 개체 수는 AccessObjectProperties 컬렉션의 Count 속성에서 1을 뺀 값입니다.

CurrentData 개체에서 액세스한 컬렉션의 멤버인 AccessObject 개체에서 속성을 반환하는 데는 Properties 속성을 사용할 수 없습니다.

Properties 속성이 SmartTag 개체에 적용되는 경우.

특정 스마트 태그에 대한 속성 컬렉션을 나타내는 SmartTagProperties 컬렉션을 반환합니다.

expression.Properties()

expression은 필수입니다. SmartTag 개체를 반환하는 식입니다.

Properties 속성이 적용 대상 목록의 모든 다른 개체에 적용되는 경우.

컨트롤의 Properties 컬렉션 개체에 대한 참조를 반환합니다.

expression.Properties

expression은 필수입니다. 적용 대상 목록에서 개체 중 하나를 반환하는 식입니다.

주의

Properties 컬렉션 개체는 컨트롤에 관련된 모든 속성의 컬렉션입니다. 멤버 개체의 인덱스 또는 멤버 개체의 이름인 문자열 식을 사용하여 컬렉션의 개별 멤버를 참조할 수 있습니다. 컬렉션의 첫 번째 멤버 개체는 인덱스 값이 0이고 컬렉션에 있는 총 멤버 개체 수는 Properties 컬렉션의 Count 속성에서 1을 뺀 값입니다.

다음 프로시저에서는 Properties 속성을 사용하여 폼의 컨트롤과 연결된 모든 속성을 디버그 창에 인쇄합니다. 이 코드를 실행하려면 폼에 cmdListProperties라는 명령 단추를 배치하고 폼의 Declarations 섹션에 다음 코드를 붙여넣습니다. 명령 단추를 클릭하여 디버그 창에서 속성 목록을 인쇄합니다.

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
Office 기술 확장
교육 살펴보기
새로운 기능 우선 가져오기
Office Insider 참여

이 정보가 유용한가요?

의견 주셔서 감사합니다!

피드백을 주셔서 감사합니다. Office 지원 에이전트와 연락하는 것이 도움이 될 것 같습니다.

×