| Cemalizim | 21 Temmuz 2008 18:18 |
Combobox'a tekrarsız isim girmek
PHP- Kodu:
Combobox'a tekrarsız isim girmek
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
ALINTI | 