Отнася се за
Обект ListBox |
Можете да използвате свойството MultiSelect, за да зададете дали потребител може да избира няколко елемента в списъчно поле на формуляр и как може да се извършва изборът на няколко елемента. Byte за четене/запис.
израз.MultiSelect
израз Задължително. Израз, който връща един от обектите в списъка "Отнася се за".
Забележки
Свойството MultiSelect използва следните настройки:
Настройка |
Visual Basic |
Описание |
Няма |
0 |
(По подразбиране) Изборът на няколко елемента не е разрешен. |
Прост |
1 |
Избирането или отмяната на избора на няколко елемента се извършва чрез щракване върху тях с мишката или натискане на интервал. |
Разширен |
2 |
Избирането на няколко елемента се извършва чрез натискане и задържане на SHIFT и щракване върху елементите с мишката или чрез натискане и задържане на SHIFT и натискане на клавиш със стрелка за разширяване на селекцията от избрания по-рано елемент до текущия елемент. Можете да избирате елементи и чрез плъзгане с мишката. Натискане и задържане на CTRL и щракване върху елемент избира или отменя избора на този елемент. |
Забележка: Можете да зададете свойството MultiSelect с помощта на списък със свойства на списъчното поле , макрос или код на Visual Basic for Applications (VBA).
Това свойство може да се зададе само в изгледа за проектиране на формуляр.
Можете да използвате свойството ListIndex, за да върнете индексния номер за избрания елемент. Когато свойството MultiSelect е зададено на "Разширен" или "Прост", можете да използвате свойството Selected на списъчното поле или колекцията ItemsSelected, за да определите избраните елементи. Освен това, когато свойството MultiSelect е зададено на "Разширен" или "Прост", стойността на контролата за списъчното поле ще бъде винаги Null.
Ако свойството MultiSelect е зададено на "Разширен", заявяването на списъчното поле изчиства всички селекции, извършени от потребителя.
Пример
За да върнете стойността на свойството MultiSelect за списъчно поле, озаглавено "Country", във формуляра "Order Entry", можете да използвате следното:
Dim b As Byte
b = Forms("Order Entry").Controls("Country").MultiSelect
За да зададете свойството MultiSelect, можете да използвате следното:
Forms("Order Entry").Controls("Country").MultiSelect = 2 ' Extended.