Private Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
Me.TextBox1.AutoCompleteMode = AutoCompleteMode.Suggest
Me.TextBox1.AutoCompleteSource = AutoCompleteSource.CustomSource
for i as integer=0 to 20
Me.TextBox1.AutoCompleteCustomSource.Add(textbox1.text & i & "safasdf")
next
End Sub
原来还有这用法~这回SB一回了~丢人啊~