如何在列表框无匹配项时保留用户输入内容

Hey there! I totally get what you're going for right now. Your current code does a great job filtering the listbox as users type, but when there's no match, it replaces the list with that red "No items found!" message—and you want to keep the user's typed input visible instead. Let's tweak that code to make it happen.

First, let's look at the part of your class module code that handles the no-matches scenario:

If IsEmpty(items) Then
    ' No items found
    .List = Array("No items found!")
    .ForeColor = rgbRed
Else
    ' items found
    .List = items
    .ListIndex = 0
End If

The fix depends on exactly how you want the user input to be retained, so let's cover two common approaches:

Option 1: Show the user's typed text in the listbox instead of the generic message #

If you want the listbox to display what the user typed (instead of the "No items found!" message) when there's no match, here's what to do:

First, we need to pass the user's input text into the UpdateListbox sub. Modify the sub's definition to accept an extra parameter:

Private Sub UpdateListbox(items As Variant, userInput As String)

Then, update the no-items block to use the user's input instead of the generic string:

If IsEmpty(items) Then
    ' Display the user's input instead of the default message
    .List = Array(userInput)
    .ForeColor = rgbRed ' You can keep this red to signal no match, or switch to black if you prefer
Else
    ' Items found, load them as usual
    .List = items
    .ListIndex = 0
    .ForeColor = rgbBlack
End If

When you call this UpdateListbox sub (probably from a textbox's Change event where users type their filter), just pass the textbox's value as the second argument. For example, if your input textbox is named txtSearch, the call would look like:

UpdateListbox(filteredItems, txtSearch.Value)

Option 2: Leave the listbox empty but keep the user's input in the textbox #

If you'd rather have the listbox go empty when there's no match, but make sure the user's typed content stays in the input textbox, adjust the no-items block like this:

If IsEmpty(items) Then
    ' Clear the listbox instead of adding the default message
    .Clear
    .ForeColor = rgbBlack ' Optional: Set to gray if you want to visually indicate no matches
    ' Important: Don't modify your input textbox's value here—since your code is probably triggered by the textbox's change event, the user's input will stay put automatically
Else
    ' Items found, load normally
    .List = items
    .ListIndex = 0
    .ForeColor = rgbBlack
End If

Just make sure you're not clearing the input textbox anywhere in your code when no matches are found—since the listbox update is tied to the textbox's change event, the user's typed text should remain visible as long as you don't overwrite it.

Quick test tips #

After making the change, run through these checks to ensure everything works:

• Type a term that has matching items to confirm the list still loads correctly and highlights the first item
• Type something with no matches to verify the user's input is retained (either in the textbox or displayed in the listbox, depending on your choice)
• Check that text colors behave as expected (red for no matches if you kept that setting)

That should solve your problem! It's a small tweak to the existing code, but it makes the experience feel much more intuitive for users.

备注：内容来源于stack exchange，提问作者Forward Ed