国产高清在线免费观看-国产高清在线免费无码-国产高清在线男人的天堂-国产高清在线视频-国产高清在线视频精品视频-国产高清在线视频伊甸园

在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

提問者評價

謝謝，確實可以。