您好,登錄后才能下訂單哦!
VB.NET中怎么添加自動查詢功能,很多新手對此不是很清楚,為了幫助大家解決這個難題,下面小編將為大家詳細講解,有這方面需求的人可以來學習下,希望你能有所收獲。
在窗體中添加如下方法實現(xiàn)VB.NET添加自動查詢功能:
***個方法是AutoCompleteKeyUp,它將組合框和KeyEventArgs對象作為參數(shù),需要在組合框的KeyUp事件中調(diào)用此方法;它全根據(jù)用戶輸入的內(nèi)容選擇最接近的內(nèi)容;
第二個方法是AutoCompleteLeave,在激活組合框的Leave事件時調(diào)用,此方法僅提取用戶最終選擇的內(nèi)容,按照組合框中的每個匹配內(nèi)容修改其大小寫。
VB.NET添加自動查詢功能的代碼如下:
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.CapsLockReturn
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.KeyUpAutoCompleteKeyUp(ComboBox1, e)
End Sub
Private Sub ComboBox1_Leave(ByVal sender As Object,
ByVal e As System.EventArgs) Handles ComboBox1.LeaveAutoCompleteLeave(ComboBox1)
End Sub
看完上述內(nèi)容是否對您有幫助呢?如果還想對相關知識有進一步的了解或閱讀更多相關文章,請關注億速云行業(yè)資訊頻道,感謝您對億速云的支持。
免責聲明:本站發(fā)布的內(nèi)容(圖片、視頻和文字)以原創(chuàng)、轉(zhuǎn)載和分享為主,文章觀點不代表本網(wǎng)站立場,如果涉及侵權(quán)請聯(lián)系站長郵箱:is@yisu.com進行舉報,并提供相關證據(jù),一經(jīng)查實,將立刻刪除涉嫌侵權(quán)內(nèi)容。