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") kaynak.Add("Adıyaman") kaynak.AddRange(New String() {"Adana", "Antalya", "Bolu", "Balıkesir"}) 'Generic koleksiyon tanımlıyoruz. Dim liste As New List(Of String)(New String() {"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 With
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
With ComboBox1 'Otomatik tamamlama kaynağı olarak veri tabanına attığımız verileri de kullanabiliriz. Dim con As New SqlConnection("connection string") : con.Open() Dim cmd As New SqlCommand("SELECT DISTINCT alanadi FROM tabloadi", con) Dim dr As 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")) End While : 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. .AutoCompleteMode = AutoCompleteMode.Suggest .AutoCompleteSource = AutoCompleteSource.ListItemsEnd With
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. Dim kaynak As New AutoCompleteStringCollection Private Sub DataGridView1_CellEndEdit(sender As Object, e As 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 As DataGridViewRow In DataGridView1.Rows If row.Cells(0).Value <> Nothing Then kaynak.Add(row.Cells(0).Value.ToString) End If Next End Sub Private Sub DataGridView1_EditingControlShowing(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewEditingControlShowingEventArgs) Handles DataGridView1.EditingControlShowing 'Hücremizi TextBox'a cast ediyor ve otomatik tamamlama özelliğini kullanılabilir hale getiriyoruz. With DirectCast(e.Control, TextBox) .AutoCompleteMode = AutoCompleteMode.SuggestAppend .AutoCompleteSource = AutoCompleteSource.CustomSource .AutoCompleteCustomSource = kaynak End With End Sub
'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