Private Sub Form1_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
Dim a() As String = {"Pepe Luis", "Pepe Ruiz", "Juan Francisco", _
"Luisa Lopez", "Lorenzo Llamas", "Lucio Bigote", _
"Juan Fernandez", "Pedro Picapiedra", _
"Luis Gonzalez", "Luna Soleada", _
"Luis Gordillo", "Pedro Picaron"}
' Añadir los elementos al ComboBox y ListBox
' a partir del array usando AddRange
With ComboBox1
.Items.Clear()
.Items.AddRange(a)
.SelectedIndex = 0
End With
' El ListBox no tiene propiedades de auto completar
With ListBox1
.Items.Clear()
.Items.AddRange(a)
.SelectedIndex = 0
End With
' Asignar la búsqueda incremental (auto completar)
With ComboBox1
.AutoCompleteMode = AutoCompleteMode.SuggestAppend
.AutoCompleteSource = AutoCompleteSource.ListItems
End With
' Usar los datos de un array
With TextBox1
.AutoCompleteMode = AutoCompleteMode.SuggestAppend
.AutoCompleteSource = AutoCompleteSource.CustomSource
.AutoCompleteCustomSource.AddRange(a)
End With
' Usar las direcciones del explorer
With TextBox2
.AutoCompleteMode = AutoCompleteMode.SuggestAppend
.AutoCompleteSource = AutoCompleteSource.RecentlyUsedList
End With
End Sub