Berlaku untuk
Objek ListBox |
Anda dapat menggunakan properti MultiSelect untuk menentukan apakah pengguna dapat membuat beberapa pilihan dalam kotak daftar di formulir dan bagaimana beberapa pilihan tersebut dapat dibuat. Baca/tulis Byte.
ekspresi.MultiSelect
ekspresi Diperlukan. Ekspresi yang mengembalikan salah satu objek dalam daftar Berlaku Untuk.
Keterangan
Properti MultiSelect menggunakan pengaturan berikut.
Pengaturan |
Visual Basic |
Deskripsi |
Tidak ada |
0 |
(Default) Beberapa pilihan tidak diizinkan. |
Sederhana |
1 |
Beberapa item dipilih atau batal dipilih dengan mengklik mouse atau menekan SPACEBAR. |
Diperluas |
2 |
Beberapa item dipilih dengan menahan tombol SHIFT dan mengklik dengan mouse atau dengan menahan SHIFT dan menekan tombol panah untuk memperluas pilihan dari item yang sebelumnya dipilih ke item saat ini. Anda juga dapat memilih item dengan menyeret mouse. Menahan tombol CTRL dan mengklik item memilih atau batal memilih item tersebut. |
Catatan: Anda dapat mengatur properti MultiSelect menggunakan kotak daftar lembar properti, makro, atau kode Visual Basic for Applications (VBA).
Properti dapat diatur dalam tampilan Desain.
Anda dapat menggunakan properti ListIndex untuk mengembalikan nomor indeks untuk item yang dipilih. Ketika properti MultiSelect ditetapkan ke Diperluas atau Sederhana, Anda dapat menggunakan kotak daftar properti Dipilih atau kumpulan ItemsSelected untuk menentukan item yang dipilih. Selain itu, ketika properti MultiSelect diatur menjadi Diperluas atau Sederhana, nilai kontrol kotak daftar selalu Null.
Jika properti MultiSelect diatur menjadi Diperluas, kueri ulang kotak daftar mengosongkan semua pilihan yang dibuat pengguna.
Contoh
Untuk mengembalikan nilai properti MultiSelect untuk kotak daftar yang bernama "Negara" atau pada formulir "Urutan Entri", Anda dapat menggunakan cara berikut ini:
Dim b As Byte
b = Forms("Order Entry").Controls("Country").MultiSelect
Untuk mengatur nilai properti MultiSelect, Anda dapat menggunakan hal berikut:
Forms("Order Entry").Controls("Country").MultiSelect = 2 ' Extended.