Uygulandığı öğe
|
ListeKutusu Nesnesi |
MultiSelect özelliğini kullanarak bir kullanıcının form üzerindeki liste kutusunda birden çok seçim yapıp yapamayacağını ve birden çok seçimin nasıl yapılabileceğini belirtebilirsiniz. Okuma/yazma Bayt.
ifade.MultiSelect
ifade Gerekli. Uygulandığı Öğe listesindeki nesnelerden birini döndüren ifade.
Notlar
MultiSelect özelliği aşağıdaki ayarları kullanır.
|
Ayar |
Visual Basic |
Açıklama |
|
Yok |
0 |
(Varsayılan) Birden çok seçime izin verilmez. |
|
Basit |
1 |
Fareyle tıklayarak veya ARA ÇUBUĞU'na basarak birden çok öğe seçilir veya seçimleri kaldırılır. |
|
Genişletilmiş |
2 |
SHIFT tuşunu basılı tutup birden çok öğeye tıklayarak veya seçimi daha önce seçilmiş olan öğeden geçerli öğeye kadar genişletmek için ok tuşuna basılarak birden çok öğe seçilir. Öğeleri fareyle sürükleyerek de seçebilirsiniz. CTRL tuşunu basılı tutmak ve öğeye tıklamak, o öğenin seçilmesine veya seçiminin kaldırılmasına neden olur. |
Not: Liste kutusunun özellik sayfasını, makro veya Visual Basic for Applications (VBA) kodunu kullanarak MultiSelect özelliğini ayarlayabilirsiniz.
Bu özellik yalnızca formun Tasarım görünümünde ayarlanabilir.
Seçili öğenin dizin numarasını döndürmek için ListIndex özelliğini kullanabilirsiniz. MultiSelect özelliği Genişletilmiş veya Basit olarak ayarlandığında, seçilecek öğeleri belirlemek için liste kutusunun Selected özelliğini veya SeçiliÖğeler koleksiyonunu kullanabilirsiniz. Buna ek olarak, MultiSelect özelliği Genişletilmiş veya Basit olarak ayarlandığında, liste kutusu denetiminin değeri her zaman Null olur.
MultiSelect özelliği Genişletilmiş olarak ayarlanırsa, liste kutusu yeniden sorgulandığında kullanıcı tarafından yapılan tüm seçimler temizlenir.
Örnek
"Sipariş Girişi" formundaki “Ülke” adlı liste kutusuna MultiSelect özelliğinin değerini döndürmek için şu yöntemi kullanabilirsiniz:
Dim b As Byte
b = Forms("Order Entry").Controls("Country").MultiSelect
MultiSelect özelliğini ayarlamak için şu yöntemi kullanabilirsiniz:
Forms("Order Entry").Controls("Country").MultiSelect = 2 ' Extended.
