在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í)可以。