Auto Complete combo Box(VB.NET Source Use API)

來源:互聯網
上載者:User
Private Declare Function LockWindowUpdate Lib "user32" (ByVal hWndLock As System.IntPtr) As Long
Private Structure SIZE
    Dim cx As Long
    Dim cy As Long
End Structure
Public Sub LockWindow(ByVal hwnd As System.IntPtr)
    Dim lRet As Long
    lRet = LockWindowUpdate(hwnd)
End Sub
Private Sub ReleaseWindow()
    Dim lRet As Long
    lRet = LockWindowUpdate(Nothing)
End Sub
Private Sub ComboDropdown(ByRef comboObj As ComboBox)
    Call SendMessage(comboObj.Handle, CB_SHOWDROPDOWN, 1, 0&)
End Sub
Private Sub ComboRetract(ByRef comboObj As ComboBox)
    Call SendMessage(comboObj.Handle, CB_SHOWDROPDOWN, 0, 0&)
End Sub
Public Function ComboAutoComplete(ByRef comboObj As ComboBox) As Boolean
    Dim lngItemNum As Long
    Dim lngSelectedLength As Long
    Dim lngMatchLength As Long
    Dim strCurrentText As String
    Dim strSearchText As string
    Dim sTypedText As String Const CB_LOCKED = &H255
    Try
        With (comboObj)
            If .Text = Nothing Then
                Exit Function
            End If
        Call LockWindow(.Handle)
        If ((InStr(1, .Text, .Tag, vbTextCompare) <> 0 And Len(.Tag) = Len(.Text) - 1) Or (Left(.Text, 1) <> Left(.Tag, 1) And .Tag <> Nothing)) And .Tag <> CStr(CB_LOCKED) Then
        strSearchText = .Text
        lngSelectedLength = Len(strSearchText)
        lngItemNum = .FindString(strSearchText)
        ComboAutoComplete = Not (lngItemNum = -1)
        If ComboAutoComplete Then
            lngMatchLength = Len(.Items.Item(lngItemNum)) - lngSelectedLength .Tag = CB_LOCKED
            sTypedText = strSearchText
            .Text = .Text & Right(.Items.Item(lngItemNum), lngMatchLength)
            .SelectionStart = lngSelectedLength
            Dim Temp As Integer Temp = lngMatchLength .SelectionLength = Temp
            '.Text = .Text & Right(.Items.Item(lngItemNum), lngMatchLength) .Tag = sTypedText
        End If
        ElseIf .Tag <> CStr(CB_LOCKED) Then
        .Tag = .Text
        End If
        Call ReleaseWindow()
    End With
    Catch err As Exception
        MsgBox(err.Message & err.StackTrace)
    End Try
End Function

相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。