Çevrimdışı

Combobox'ta aynı kelimeden bir den fazla olmasın diyorsanız; Formumuza 1 adet listbox, 1adet combobox ve bir adet command buton ekleyelim. ve aşağıdaki kodları formumuzun general declarations kısmına ekleyelim.

Kod:
Private Sub Command1_Click()

Dim X As Integer
Dim Y As Integer
Dim var As Boolean
For X = 0 To List1.ListCount - 1
List1.Selected(X) = True
var = False
For Y = 1 To Combo1.ListCount + 1
If List1.Text = Combo1.List(Y - 1) Then var = True: Exit For
Next Y
If var = False Then
Combo1.AddItem List1.Text
End If
Next X
End Sub

Private Sub Form_Load()
List1.AddItem "ahmet"
List1.AddItem "ahmet"
List1.AddItem "ahmet"
List1.AddItem "ali"
List1.AddItem "ali"
List1.AddItem "ali"


End Sub