03-06-17, 09:25 PM
كود :
Private Sub txtlabel_MouseEnter(sender As Object, e As EventArgs) Handles txtlabel.MouseEnter
cmd = New OleDb.OleDbCommand("select label from tab_pro", con)
con.Open()
Dim ds As OleDb.OleDbDataReader = cmd.ExecuteReader
ds.Read()
Dim gh As New AutoCompleteStringCollection
gh = ds(0)
txtlabel.AutoCompleteMode = AutoCompleteMode.SuggestAppend
txtlabel.AutoCompleteSource = AutoCompleteSource.CustomSource
txtlabel.AutoCompleteCustomSource = gh
End Sub