ComboBox com autocomplete
Olá galera
Será que alguem ai sabe como posso fazer um auto complete no combobox, tipo eu carrego os dados direto do banco e preencho o meu combobox, dai quando a pessoa vai digitando ele vai preenchendo com os nomes que estão nele.
Eu estou programando em .Net Windows Forms com c#
Até Mais
Será que alguem ai sabe como posso fazer um auto complete no combobox, tipo eu carrego os dados direto do banco e preencho o meu combobox, dai quando a pessoa vai digitando ele vai preenchendo com os nomes que estão nele.
Eu estou programando em .Net Windows Forms com c#
Até Mais
Valter Vinicius
Curtidas 0
Respostas
Eleuterio Gonzalez
04/12/2009
Private Sub cboName_Leave(ByVal sender As Object, ByVal e As System.EventArgs)
Handles cboName.Leave
Dim recRowView As DataRowView
Dim recName As DB.tblNameRow
AutoCompleteCombo_Leave(cboName)
'OPTIONAL: Now you can do some extra handling if you want
'Get the Selected Record from my Data Bound Combo (Return Type is DataRowView)
recRowView = cboName.SelectedItem
If recRowView Is Nothing Then Exit Sub
'Display the Name Info (Row Type comes from my bound Dataset)
recName = recRowView.Row
lblAccountNum.Text = recName.AccountNum
lblCompanyName.Text = recName.CompanyName
End Sub
Private Sub cboName_KeyUp(ByVal sender As Object,
ByVal e As System.Windows.Forms.KeyEventArgs) Handles cboName.KeyUp
AutoCompleteCombo_KeyUp(cboName, e)
End Sub
Handles cboName.Leave
Dim recRowView As DataRowView
Dim recName As DB.tblNameRow
AutoCompleteCombo_Leave(cboName)
'OPTIONAL: Now you can do some extra handling if you want
'Get the Selected Record from my Data Bound Combo (Return Type is DataRowView)
recRowView = cboName.SelectedItem
If recRowView Is Nothing Then Exit Sub
'Display the Name Info (Row Type comes from my bound Dataset)
recName = recRowView.Row
lblAccountNum.Text = recName.AccountNum
lblCompanyName.Text = recName.CompanyName
End Sub
Private Sub cboName_KeyUp(ByVal sender As Object,
ByVal e As System.Windows.Forms.KeyEventArgs) Handles cboName.KeyUp
AutoCompleteCombo_KeyUp(cboName, e)
End Sub
GOSTEI 0