적용 대상
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
식 필수 요소입니다. 위의 개체 중 하나를 반환하는 식입니다.
주의
AccessObjectProperties 컬렉션 개체는 AccessObject, CurrentProject 또는 CodeProject 개체에 관련된 모든 속성의 컬렉션입니다. 멤버 개체의 인덱스 또는 멤버 개체의 이름인 문자열 식을 사용하여 컬렉션의 개별 멤버를 참조할 수 있습니다. 컬렉션의 첫 번째 멤버 개체는 인덱스 값이 0이고 컬렉션에 있는 총 멤버 개체 수는 AccessObjectProperties 컬렉션의 Count 속성에서 1을 뺀 값입니다.
CurrentData 개체에서 액세스한 컬렉션의 멤버인 AccessObject 개체에서 속성을 반환하는 데는 Properties 속성을 사용할 수 없습니다.
Properties 속성이 SmartTag 개체에 적용되는 경우.
특정 스마트 태그에 대한 속성 컬렉션을 나타내는 SmartTagProperties 컬렉션을 반환합니다.
expression.Properties()
식 필수 요소입니다. SmartTag 개체를 반환하는 식입니다.
Properties 속성이 적용 대상 목록의 모든 다른 개체에 적용되는 경우.
컨트롤의 Properties 컬렉션 개체에 대한 참조를 반환합니다.
expression.Properties
식 필수 요소입니다. 적용 대상 목록에 있는 개체 중 하나를 반환하는 식입니다.
주의
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