i want to auto complete text box code

Private Sub Form1_Load(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles MyBase.Load

'Manually added some items

lst.Add("apple")

lst.Add("applle")

lst.Add("appple")

lst.Add("appplee")

lst.Add("bear")

lst.Add("pear")

'Records binded to the AutocompleteStringCollection.

MySource.AddRange(lst.ToArray)

'this AutocompleteStringcollection binded to the textbox as custom

'source.

TextBox1.AutoCompleteCustomSource = MySource

'Auto complete mode set to suggest append so that it will sugesst one

'or more suggested completion strings it has bith 'Suggest' and

''Append' functionality

TextBox1.AutoCompleteMode = AutoCompleteMode.SuggestAppend

'Set to Custom source we have filled already

TextBox1.AutoCompleteSource = AutoCompleteSource.CustomSource

End Sub

The event uses this task to achieve is KeyDown event.

Here is the source with explanation:

Private Sub TextBox1_KeyDown(ByVal sender As System.Object, _

ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown

If e.KeyCode = Keys.Enter Then ' On enter I planned to add it the list

If Not lst.Contains(TextBox1.Text) Then ' If item not present already

' Add to the source directly

TextBox1.AutoCompleteCustomSource.Add(TextBox1.Text)

End If

ElseIf e.KeyCode = Keys.Delete Then 'On delete key, planned to remove entry

' declare a dummy source

Dim coll As AutoCompleteStringCollection = TextBox1.AutoCompleteCustomSource

' remove item from new source

coll.Remove(TextBox1.Text)

' Bind the updates

TextBox1.AutoCompleteCustomSource = coll

' Clear textbox

TextBox1.Clear()

End If ' End of 'KeyCode' condition

End Sub

2 Replies

Know the answer? Post it — somebody with the same question will find it here.

Dipankar Biswas12y ago
Private Sub Form1_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load

'Manually added some items
lst.Add("apple")
lst.Add("applle")
lst.Add("appple")
lst.Add("appplee")
lst.Add("bear")
lst.Add("pear")

'Records binded to the AutocompleteStringCollection.
MySource.AddRange(lst.ToArray)

'this AutocompleteStringcollection binded to the textbox as custom
'source.
TextBox1.AutoCompleteCustomSource = MySource

'Auto complete mode set to suggest append so that it will sugesst one
'or more suggested completion strings it has bith 'Suggest' and
''Append' functionality
TextBox1.AutoCompleteMode = AutoCompleteMode.SuggestAppend

'Set to Custom source we have filled already
TextBox1.AutoCompleteSource = AutoCompleteSource.CustomSource
End Sub

The event uses this task to achieve is KeyDown event.

Here is the source with explanation:

Private Sub TextBox1_KeyDown(ByVal sender As System.Object, _
ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown

If e.KeyCode = Keys.Enter Then ' On enter I planned to add it the list
If Not lst.Contains(TextBox1.Text) Then ' If item not present already
' Add to the source directly
TextBox1.AutoCompleteCustomSource.Add(TextBox1.Text)
End If
ElseIf e.KeyCode = Keys.Delete Then 'On delete key, planned to remove entry

' declare a dummy source
Dim coll As AutoCompleteStringCollection = TextBox1.AutoCompleteCustomSource

' remove item from new source
coll.Remove(TextBox1.Text)

' Bind the updates
TextBox1.AutoCompleteCustomSource = coll

' Clear textbox
TextBox1.Clear()

End If ' End of 'KeyCode' condition

End Sub
Lakshmanan Sethu Sankaranarayan12y ago
Hi Prafulla,
Check this

http://www.c-sharpcorner.com/UploadFile/mahesh/AutoCompletion02012006113508AM/AutoCompletion.aspx