Public Class Form1
Private Sub
Form1_Load(sender As System.Object, e As
System.EventArgs) Handles
MyBase.Load
'Informamos o modo do Complemento
txtComplete.AutoCompleteMode = AutoCompleteMode.SuggestAppend
'Informamos que a
consulta será customizada
txtComplete.AutoCompleteSource = AutoCompleteSource.CustomSource
'Criamos a lista
que será consultada
Dim lista As New AutoCompleteStringCollection
lista.Add("VB .Net")
lista.Add("Java")
lista.Add("Oracle")
lista.Add("SQL")
'Informamos a
fonts customizada para a consulta
txtComplete.AutoCompleteCustomSource = lista
End Sub
End Class
0 comentários:
Postar um comentário