狠狠色丁香婷婷综合尤物/久久精品综合一区二区三区/中国有色金属学报/国产日韩欧美在线观看 - 国产一区二区三区四区五区tv

在TEXTBOX里面每輸入一個字符，listbox就自動搜索相似的內容類似 VB幫助那種效果

用Instr函數就可以實現您要的程式。

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

提問者評價

謝謝，確實可以。