Поделиться через


Свойство ComboBox.InSelection (Access)

Используйте свойство InSelection , чтобы определить или указать, выбран ли элемент управления в форме в режиме конструктора. Для чтения и записи, Boolean.

Синтаксис

expression. InSelection

Выражение Переменная, представляющая объект ComboBox .

Замечания

При выборе элемента управления отображаются его дескрипторы изменения размера, которые могут быть изменены пользователем. Одновременно можно выбрать несколько элементов управления.

Пример

Следующая функция использует свойство InSelection , чтобы определить, выбран ли элемент управления strControlName в форме.

Чтобы протестировать этот код, вставьте код функции IsControlSelected в раздел Объявления модуля кода в образце базы данных Northwind, откройте форму Клиенты в режиме конструктора и выберите элемент управления CompanyName . Введите следующую строку в окне Отладка.

? IsControlSelected (Forms!Customers, "CompanyName") 
 
Function IsControlSelected(frm As Form, _ 
 strControlName As String) As Boolean 
 Dim intI As Integer, ctl As Control 
 If frm.CurrentView <> 0 Then 
 ' Form is not in Design view. 
 Exit Function 
 Else 
 For intI = 0 To frm.Count - 1 
 Set ctl = frm(intI) 
 If ctl.InSelection = True Then 
 ' Is desired control selected? 
 If UCase(ctl.Name) = UCase(strControlName) Then 
 IsControlSelected = True 
 Exit Function 
 End If 
 Else 
 IsControlSelected = False 
 End If 
 Next intI 
 End If 
End Function

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.