Otomatik Tamamlanan Combu Kutusu

 
Private Sub Form_Load()

Dim iItem As Integer
Dim iCtr As Integer

With AutoCompleteCombo1
.Clear


For iItem = 65 To 90
.AddItem Chr(iItem) & "TEST"
.ItemData(iCtr) = iItem
iCtr = iCtr + 1
Next
.ListIndex = 0

End With
End Sub

Yorum Yapabilmek İçin Üye Girişi Yapmanız Gerekmektedir.

otomatik tamamlanan combu kutusu