公交车上荫蒂添的好舒服的电影-公用玩物(np双xing总受)-公用小荡货芊芊-公与妇仑乱hd-攻把受做哭边走边肉楼梯play-古装一级淫片a免费播放口

在TEXTBOX里面每輸入一個(gè)字符，listbox就自動(dòng)搜索相似的內(nè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

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

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