Taikoma
|
Objektas ListBox |
Ypatybę MultiSelect galite naudoti norėdami nurodyti, ar vartotojas gali atlikti kelis pasirinkimus sąrašo laukasforma ir kaip galima atlikti kelis pasirinkimus. Skaityti/rašyti Byte.
reiškinys.MultiSelect
reiškinys Būtina. Reiškinys, kuris pateikia vieną iš sąrašo „Taikoma“ objektų.
Pastabos
Ypatybė MultiSelect naudoja toliau pateiktus parametrus.
|
Parametras |
Visual Basic |
Aprašas |
|
Nėra |
0 |
(Numatytasis parametras) Kelių elementų žymėjimas neleidžiamas. |
|
Paprastas |
1 |
Keli elementai pažymimi arba atžymimi juos spustelėjant pele arba paspaudžiant tarpo klavišą. |
|
Išplėstinis |
2 |
Keli elementai pažymimi laikant nuspaudus klavišą SHIFT ir spustelėjant juos pele arba laikant nuspaudus klavišą SHIFT ir paspaudžiant rodyklės klavišą, norint išplėsti pažymėtą sritį nuo anksčiau pasirinkto elemento iki dabartinio elemento. Taip pat galite pažymėti elementus vilkdami pele. Laikant nuspaudus klavišą CTRL ir spustelėjant elementą, tas elementas pažymimas arba atžymimas. |
Pastaba: Ypatybę MultiSelect galite nustatyti naudodami sąrašo lauko ypatybės lapas, makrokomanda arba "Visual Basic for Applications" (VBA) kodą.
Šią ypatybę galima nustatyti tik formos dizaino rodinyje.
Ypatybę ListIndex galite naudoti, kad būtų pateiktas pasirinkto elemento rodyklės numeris. Kai nustatytas ypatybės MultiSelect parametras Išplėstinis arba Paprastas, galite naudoti sąrašo lauko ypatybę Selected arba rinkinį ItemsSelected, kad nustatytumėte pasirinktus elementus. Be to, kai nustatytas ypatybės MultiSelect parametras Išplėstinis arba Paprastas, sąrašo lauko valdiklio reikšmė visada bus Null.
Jei nustatytas ypatybės MultiSelect parametras Išplėstinis, pakartotina sąrašo lauko užklausa išvalo visus vartotojo atliktus pasirinkimus.
Pavyzdys
Norėdami, kad būtų pateikta užsakymo įvedimo formos sąrašo elemento „Šalis“ ypatybės MultiSelect reikšmė, galite naudoti:
Dim b As Byte
b = Forms("Order Entry").Controls("Country").MultiSelect
Norėdami nustatyti ypatybę MultiSelect, galite naudoti:
Forms("Order Entry").Controls("Country").MultiSelect = 2 ' Extended.
