VB.NET中怎么添加自動(dòng)查詢功能，很多新手對此不是很清楚，為了幫助大家解決這個(gè)難題，下面小編將為大家詳細(xì)講解，有這方面需求的人可以來學(xué)習(xí)下，希望你能有所收獲。

10年積累的網(wǎng)站設(shè)計(jì)制作、成都網(wǎng)站設(shè)計(jì)經(jīng)驗(yàn)，可以快速應(yīng)對客戶對網(wǎng)站的新想法和需求。提供各種問題對應(yīng)的解決方案。讓選擇我們的客戶得到更好、更有力的網(wǎng)絡(luò)服務(wù)。我雖然不認(rèn)識(shí)你，你也不認(rèn)識(shí)我。但先網(wǎng)站設(shè)計(jì)后付款的網(wǎng)站建設(shè)流程，更有冷水灘免費(fèi)網(wǎng)站建設(shè)讓你可以放心的選擇與我們合作。

在窗體中添加如下方法實(shí)現(xiàn)VB.NET添加自動(dòng)查詢功能：

***個(gè)方法是AutoCompleteKeyUp，它將組合框和KeyEventArgs對象作為參數(shù)，需要在組合框的KeyUp事件中調(diào)用此方法；它全根據(jù)用戶輸入的內(nèi)容選擇最接近的內(nèi)容；

第二個(gè)方法是AutoCompleteLeave，在激活組合框的Leave事件時(shí)調(diào)用，此方法僅提取用戶最終選擇的內(nèi)容，按照組合框中的每個(gè)匹配內(nèi)容修改其大小寫。

VB.NET添加自動(dòng)查詢功能的代碼如下：

Private Sub AutoCompleteKeyUp(ByVal Combo As ComboBox, 
ByVal e As KeyEventArgs)  
Dim strTyped As String  
Dim intFoundIndex As Integer  
Dim objFoundItem As Object  
Dim strFoundText As String  
Dim strAppendText As String  
'忽略特殊鍵  
Select Case e.KeyCode  
Case Keys.Back, Keys.Left, Keys.Right, Keys.Up, Keys.Down, 
Keys.Delete, Keys.CapsLock  
Return  
End Select  
'在查詢列表中找到  
strTyped = Combo.Text  
intFoundIndex = Combo.FindString(strTyped)  
If intFoundIndex >= 0 Then  
objFoundItem = Combo.Items(intFoundIndex)  
strFoundText = Combo.GetItemText(objFoundItem)  
strAppendText = strFoundText.Substring(strTyped.Length)  
Combo.Text = strTyped & strAppendText  
Combo.SelectionStart = strTyped.Length  
Combo.SelectionLength = strAppendText.Length  
End If  
End Sub 

Private Sub AutoCompleteLeave(ByVal Combo As ComboBox)  
Dim intFoundIndex As Integer  
intFoundIndex = Combo.FindStringExact(Combo.Text)  
Combo.SelectedIndex = -1  
Combo.SelectedIndex = intFoundIndex 
End Sub  
Private Sub ComboBox1_KeyUp(ByVal sender As Object, 
ByVal e As System.Windows.Forms.KeyEventArgs) Handles ComboBox1.KeyUp  
AutoCompleteKeyUp(ComboBox1, e)  
End Sub  
Private Sub ComboBox1_Leave(ByVal sender As Object, 
ByVal e As System.EventArgs) Handles ComboBox1.Leave  
AutoCompleteLeave(ComboBox1)  
End Sub  

看完上述內(nèi)容是否對您有幫助呢？如果還想對相關(guān)知識(shí)有進(jìn)一步的了解或閱讀更多相關(guān)文章，請關(guān)注創(chuàng)新互聯(lián)行業(yè)資訊頻道，感謝您對創(chuàng)新互聯(lián)的支持。

本文標(biāo)題：VB.NET中怎么添加自動(dòng)查詢功能
瀏覽路徑：http://www.rwnh.cn/article46/psjceg.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供做網(wǎng)站、微信小程序、虛擬主機(jī)、關(guān)鍵詞優(yōu)化、建站公司、動(dòng)態(tài)網(wǎng)站

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源： 創(chuàng)新互聯(lián)