Çok Seçenekli Liste Kutuları
Liste kutuları Visual Basic 3.0’dan itibaren bir den çok seçeneği kabul eder duruma gelmişlerdir.
Liste kutusu kontrolünün nasıl kullanılacağını önceki aylarda göstermiştik. Aşağıdaki örneğimiz birden fazla seçeneği kabul eden liste kutularının nasıl kullanıldığını göstermektedir.
Sub Command1_Click ()
Dim I
'2.Liste kutusunu temizle
List2.Clear
'Eğer seçili bir nesne varsa bunu 2.liste kutusuna gönder
For I = 0 To List1.ListCount - 1
If List1.Selected(I) Then
List2.AddItem List1.List(I)
End If
Next I
End Sub
Sub Command2_Click ()
msg$ = ""
msg$ = msg$ + "Seçili Öğeler"
For I = 0 To List2.ListCount - 1
If List2.Selected(I) Then
msg$ = msg$ + Chr$(13) + List2.List(I)
End If
Next I
MsgBox msg$, 64, "Seçililer"
End Sub
Sub Form_Load ()
Dim I
'1. Liste Kutusunu ekranda görünen yazı tipleriyle doldur.
For I = 0 To Screen.FontCount - 1
List1.AddItem Screen.Fonts(I)
Next I
End Sub
Program çalıştırıldığında ekran yazıtipleri 1. Liste kutusunda belirecektir, "Gönder" tuşuna basıldığında 1. Liste kutusunda seçtiğiniz yazı tipleri 2.liste kutusuna kopyalanacak, "Liste" tuşuna basıldığında ise 2.liste kutusunda seçili olan öğeler mesaj kutusu kullanılarak görüntülenecektir.
Örneğimiz çok seçenekli liste kutularına tam erişim sağlamaktadır, siz de kodları programlarınızda kullanabilirsiniz.
Not: Programınızı çalıştırmadan önce liste kutularının "Multiselect" özelliğini Properties kutucuğundan "2"(Extended) yapın.