日韩欧美国产精品免费一二-日韩欧美国产精品亚洲二区-日韩欧美国产精品专区-日韩欧美国产另-日韩欧美国产免费看-日韩欧美国产免费看清风阁

在TEXTBOX里面每輸入一個(gè)字符，listbox就自動(dòng)搜索相似的內(nèi)容類(lèi)似 VB幫助那種效果

用Instr函數(shù)就可以實(shí)現(xiàn)您要的程式。

Private Sub Text1_Change()
For i = 0 To List1.ListCount - 1
    If InStr(1, List1.List(i), Text1.Text, vbTextCompare) Then
        List1.Selected(i) = True
    End If
Next
End Sub

提問(wèn)者評(píng)價(jià)

謝謝，確實(shí)可以。