Ескертпе
Бұл бетке кіру үшін қатынас шегін айқындау қажет. Жүйеге кіруді немесе каталогтарды өзгертуді байқап көруге болады.
Бұл бетке кіру үшін қатынас шегін айқындау қажет. Каталогтарды өзгертуді байқап көруге болады.
Возвращает ссылку на объект коллекции Properties элемента управления. Только для чтения.
Синтаксис
expression. Свойства
выражение Переменная, представляющая объект TextBox .
Замечания
Объект коллекции Properties — это коллекция всех свойств, связанных с элементом управления . Ссылаться на отдельные члены коллекции с помощью индекса объекта-члена или строкового выражения, являющегося именем объекта-члена.
Первый объект-член в коллекции имеет значение индекса 0, а общее число объектов-членов в коллекции является значением свойства Count коллекции Properties минус 1.
Пример
Следующая процедура использует свойство Properties для вывода всех свойств, связанных с элементами управления в форме, в окно отладки. Чтобы выполнить этот код, поместите в форму кнопку с именем cmdListProperties и вставьте следующий код в раздел Объявления формы. Нажмите кнопку команды, чтобы распечатать список свойств в окне Отладка.
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 VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.