AllBasic
ComboBox’a Girilen Bilgiyi ComboBox’a Eklemek
ComboBox’a Girilen Bilgiyi ComboBox’a EklemekPrivate Sub Git_Click()
Dim kontrol As Boolean
For I = 0 To Combo1.ListCount - 1
If Combo1.List(I) = Combo1.Text Then kontrol = True
Next I
If kontrol = False Then Combo1.AddItem Combo1.Text
End Sub