• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Begin finding in list box when you begin typing in Textbox Without any API use. Very easy and with

Begin finding in list box when you begin typing in Textbox Without any API use. Very easy and with

Begin finding in list box when you begin typing in Textbox Without any API use. Very easy and with only one procedure...!

API Declarations


Public Function IndexFromText(lb As ListBox, sFind As String, Optional bCaseSensitive As Boolean = False, Optional bMatchFull As Boolean = False, Optional bNoneOnBlank As Boolean = False, Optional lOUT_Error As Long = 0) As Long

On Error GoTo errIFT

Dim l As Long, lLen As Long
Dim s As String

IndexFromText = -2

If lb Is Nothing Then Exit Function
If lb.ListCount = 0 Then Exit Function

If sFind = "" Then
If bNoneOnBlank Then IndexFromText = -1
Exit Function
End If

lLen = Len(sFind)

For l = 0 To lb.ListCount - 1
s = lb.List(l)
If Len(s) >= lLen Then
If bCaseSensitive Then
If bMatchFull Then
If s = sFind Then
IndexFromText = l
Exit For
End If
Else
If Left(s, lLen) = sFind Then
IndexFromText = l
Exit For
End If
End If
Else
If bMatchFull Then
If UCase(s) = UCase(sFind) Then
IndexFromText = l
Exit For
End If
Else
If UCase(Left(s, lLen)) = UCase(sFind) Then
IndexFromText = l
Exit For
End If
End If
End If
End If
Next l

Exit Function
errIFT:
lOUT_Error = Err.Number
Err.Clear
IndexFromText = -3
End Function




Rate Begin finding in list box when you begin typing in Textbox Without any API use. Very easy and with

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

'Ensure all the objects are taken with proper names...
'such as-
'TextBox - txt               - textbox for testing
'ListBox - lst               - listbox for testing
'Command - btnClose          - button for closing app
'Check   - chkNoSelOnWrong   - checkbox for option-1
'Check   - chkResetOnBlank   - checkbox for option-2
'...
'Errors, feedbacks, etc...
'[email protected]
Private Sub Form_Load()

    Dim l As Long, b As Boolean

    lst.AddItem "Dipen"
    lst.AddItem "Tropix Game"
    lst.AddItem "Tropix Paradise"
    lst.AddItem "Daisy"
    lst.AddItem "MANDIP infotech"

    For l = 5 To 25
        b = Not b

        lst.AddItem IIf(b, l, "Dipen" & l)
    Next l
End Sub

Private Sub txt_Change()

    Dim lReturn As Long, lError As Long

    lReturn = IndexFromText(lst, txt, , , (chkResetOnBlank.Value And Checked), lError)

    If Not (lError = 0) Then Exit Sub

    If (chkNoSelOnWrong.Value And Checked) And lReturn = -2 Then lst.ListIndex = -1
    If lReturn < -1 Then Exit Sub
    If lReturn > lst.ListCount Then Exit Sub

    lst.ListIndex = lReturn
End Sub