i want to auto complete text box code

Question

Dipankar Biswas · Answer

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 · Answer

Hi Prafulla Check this http://www.c-sharpcorner.com/UploadFile/mahesh/AutoCompletion02012006113508AM/AutoCompletion.aspx