Public Class Form1
Dim scAutoComplete As AutoCompleteStringCollection
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
scAutoComplete = New AutoCompleteStringCollection
scAutoComplete.AddRange(New String() {"معلم", "طبيب", "مزارع"})
End Sub
Private Sub DataGridView_EditingControlShowing(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewEditingControlShowingEventArgs) Handles DataGridView1.EditingControlShowing
If TypeOf e.Control Is TextBox Then
Dim tb As TextBox = DirectCast(e.Control, TextBox)
With tb
.AutoCompleteMode = AutoCompleteMode.SuggestAppend
.AutoCompleteSource = AutoCompleteSource.CustomSource
.AutoCompleteCustomSource = scAutoComplete
End With
End If
End Sub
End Class
If DataGridView1.CurrentCell.ColumnIndex = 2 Then
......Private Sub DataGridView_EditingControlShowing(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewEditingControlShowingEventArgs) Handles DataGridView1.EditingControlShowing
If DataGridView1.CurrentCell.ColumnIndex = 2 Then
If TypeOf e.Control Is TextBox Then
Dim tb As TextBox = DirectCast(e.Control, TextBox)
With tb
.AutoCompleteMode = AutoCompleteMode.SuggestAppend
.AutoCompleteSource = AutoCompleteSource.CustomSource
.AutoCompleteCustomSource = scAutoComplete
End With
End If
End If
End SubDim ItemCode As TextBox = TryCast(e.Control, TextBox)
If ItemCode IsNot Nothing Then
If DataGridView1.CurrentCell.ColumnIndex = 1 Then
ItemCode.AutoCompleteMode = AutoCompleteMode.SuggestAppend
ItemCode.AutoCompleteCustomSource = scAutoComplete
ItemCode.AutoCompleteSource = AutoCompleteSource.CustomSource
Else
'Not columnn 1, turn of Autocomplete
ItemCode.AutoCompleteMode = AutoCompleteMode.None
End If
End If