Gælder for
ListBox-objekt |
Du kan bruge egenskaben .FlereMarkeringer til at angive, om en bruger kan foretage flere markeringer i et listefelt på en formular, og hvor der kan foretages flere markeringer. Læs/skriv Byte.
udtryk..FlereMarkeringer
udtryk Påkrævet. Et udtryk, der returnerer et af objekterne på listen Gælder for.
Bemærkninger
Egenskaben .FlereMarkeringer anvender følgende indstillinger.
Indstilling |
Visual Basic |
Beskrivelse |
Ingen |
0 |
(Standard) Flere markeringer er ikke tilladt. |
Simpel |
1 |
Flere elementer markeres eller markeringen fjernes ved at klikke på dem med musen eller trykke på mellemrumstasten. |
Udvidet |
2 |
Flere elementer markeres ved at holde Skift nede og klikke på dem med musen eller ved at holde Skift nede og trykke på en piletast for at udvide markeringen fra det tidligere markerede element til det aktuelle element. Du kan også markere elementer ved at trække med musen. Hvis du holder Ctrl nede og klikker på et element, markeres eller fjernes markeringen af det pågældende element. |
Bemærk!: Du kan indstille egenskaben .FlereMarkeringer ved hjælp af listefeltets egenskabsark, en makro eller VBA-kode (Visual Basic for Applications).
Denne egenskab kan kun indstilles i formularens designvisning.
Du kan bruge egenskaben ListIndex til at returnere indeksnummeret for det markerede element. Når egenskaben .FlereMarkeringer er angivet til Udvidet eller Simpel, kan du bruge listefeltets Markeret-egenskab eller samlingen ItemsSelected til at afgøre, hvilke elementer der er markeret. Desuden, når egenskaben .FlereMarkeringer er angivet til Udvidet eller Simpel, vil værdien af listefeltkontrolelementet altid være Null.
Hvis egenskaben .FlereMarkeringer er angivet til Udvidet, vil en gentaget forespørgsel til listefeltet rydde eventuelle markeringer, der er foretaget af brugeren.
Eksempel
Hvis du vil returnere værdien af egenskaben .FlereMarkeringer for et listefelt med navnet "Land" i formularen "Ordreindtastning", kan du bruge følgende:
Dim b As Byte
b = Forms("Order Entry").Controls("Country").MultiSelect
Hvis du vil indstille egenskaben .FlereMarkeringer, kan du bruge følgende:
Forms("Order Entry").Controls("Country").MultiSelect = 2 ' Extended.