退格键不能用了

zzp104

combobox 自动匹配用的这种方法
Dim V As String
V = Combo1.Text
For i = 0 To Combo1.ListCount - 1
If UCase(Combo1.List(i)) Like V & "*" Then Combo1.Text = Combo1.List(i): Combo1.SelStart = Len(V): Combo1.SelLength = Len(Combo1.Text) - Len(V): Exit For
Next
但是在COMBOBOX 中输了几个字母后发现退格键不能用了，求大神支招

JuncoJet

简单的办法就是延迟补全，比如输入后等待1秒开始补全，在1秒内如果还有动作则不补全
使用timer很容易做到的