国产一曲,伦理片a在线线2,欧美激情喷水

国产自产第一-国产自产对白一区-国产自产精品-国产自产区44页-国产自产在线-国产自产自拍-国产自产自拍视频-国产自精品

產(chǎn)品

產(chǎn)品
資訊
資源
視頻
學(xué)院
示例

金喜正規(guī)買球 > 資訊 > .NET中為組合框添加自動(dòng)查詢功能

.NET中為組合框添加自動(dòng)查詢功能

翻譯|其它|編輯：郝浩|2008-01-23 09:50:49.000|閱讀 1140 次

概述：

# 界面/圖表報(bào)表/文檔/IDE等千款熱門軟控件火熱銷售中 >>

在窗體中添加如下方法：
       第一個(gè)方法是 AutoCompleteKeyUp，它將組合框和 KeyEventArgs 對(duì)象作為參數(shù)，需要在組合框的 KeyUp 事件中調(diào)用此方法；它全根據(jù)用戶輸入的內(nèi)容選擇最接近的內(nèi)容；
       第二個(gè)方法是 AutoCompleteLeave，在激活組合框的 Leave 事件時(shí)調(diào)用，此方法僅提取用戶最終選擇的內(nèi)容，按照組合框中的每個(gè)匹配內(nèi)容修改其大小寫(xiě)。
代碼如下：
    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