With
TextBox1
'Yeni bir AutoCompleStringCollection tanımlıyoruz
Dim
kaynak
As
New
AutoCompleteStringCollection()
'Yeni oluşturduğumuz kaynağa farklı yöntemlerle veri ekliyoruz
kaynak.Add(
"Ankara"
)
"Adıyaman"
kaynak.AddRange(
String
() {
"Adana"
,
"Antalya"
"Bolu"
"Balıkesir"
})
'Generic koleksiyon tanımlıyoruz.
liste
List(Of
)(
"Artvin"
"Bilecik"
'Aynı koleksiyon içeriğini de kaynağımıza ekliyoruz.
kaynak.AddRange(liste.ToArray())
'Otomatik tamamlama modunu belirliyoruz
.AutoCompleteMode = AutoCompleteMode.Suggest
'Otomatik tamamlama için kaynak belirtiyoruz
.AutoCompleteSource = AutoCompleteSource.CustomSource
'Kaynak olarak CustomSource seçtiğimiz için
'bu özelliğe bir AutoCompleStringCollection nesnesi atamamız gerekiyor.
'Burada da o atamayı yapıyoruz.
.AutoCompleteCustomSource = kaynak
End
ComboBox1
'Otomatik tamamlama kaynağı olarak veri tabanına attığımız verileri de kullanabiliriz.
con
SqlConnection(
"connection string"
) : con.Open()
cmd
SqlCommand(
"SELECT DISTINCT alanadi FROM tabloadi"
, con)
dr
SqlDataReader = cmd.ExecuteReader
'Tüm combobox içindeki verileri temizliyoruz.
.Items.Clear()
'Reader ile tüm okunan verileri combobox'ımıza ekliyoruz.
While
dr.Read
.Items.Add(dr(
"alanadi"
))
: con.Close()
'Dikkat ederseniz, üstteki örneklerde
'AutoCompleStringCollection oluşturuyor ve verileri ona ekliyorduk.
'Bu örnekte, veritabanından çektiğimiz verilerle combobox'ımızı dolduruyoruz.
'Ayrı bir AutoCompleStringCollection nesnesi oluşturmuyoruz.
'AutoCompleteSource özelliğini, ListItem yapmamız, burada combo içindeki
'verileri otomatik tamamlama kaynağı olarak kullanmamız için yeterli oluyor.
.AutoCompleteSource = AutoCompleteSource.ListItems
'Otomatik tamamlama koleksiyonumuzu tanımlıyoruz.
AutoCompleteStringCollection
Private
Sub
DataGridView1_CellEndEdit(sender
Object
, e
DataGridViewCellEventArgs)
Handles
DataGridView1.CellEndEdit
'Listemizi boşaltıyoruz.
kaynak.Clear()
'DataGridView kontrolümüzde yer alan ve değer içeren hücrelerdeki verileri
'kaynak adlı koleksiyonumuza ekliyoruz.
For
Each
row
DataGridViewRow
In
DataGridView1.Rows
If
row.Cells(0).Value <>
Nothing
Then
kaynak.Add(row.Cells(0).Value.ToString)
Next
DataGridView1_EditingControlShowing(
ByVal
sender
e
System.Windows.Forms.DataGridViewEditingControlShowingEventArgs)
DataGridView1.EditingControlShowing
'Hücremizi TextBox'a cast ediyor ve otomatik tamamlama özelliğini kullanılabilir hale getiriyoruz.
DirectCast
(e.Control, TextBox)
.AutoCompleteMode = AutoCompleteMode.SuggestAppend