ADICIONAR NOMES AO AUTOCOMPLETE DA TEXTBOX?
Tenho uma textbox com alguns nomes que já inseri para o autocomplete, porem como adiciono um novo nome via botão?
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.TextBox1.AutoCompleteCustomSource.Add([Ô]Test1[Ô])
Me.TextBox1.AutoCompleteCustomSource.Add([Ô]Test2[Ô])
Me.TextBox1.AutoCompleteCustomSource.Add([Ô]Test2[Ô])
End Sub
Estou tentando fazer isso, porem quando fecho e abro novamente não salva o nome que foi incluÃdo!
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.TextBox1.AutoCompleteCustomSource.Add(TextBox2.Text)
End Sub
Preciso salvar a alteração.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.TextBox1.AutoCompleteCustomSource.Add(TextBox2.Text)
End Sub
Preciso salvar a alteração.
Explique melhor
Na minha textbox1 eu coloquei configurei para autocomplete colocando nomes de clientes.
Salvo o projeto abro e funciona normalmente, mas e quando eu eu for adicionar um novo cliente se eu usar assim:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.TextBox1.AutoCompleteCustomSource.Add(TextBox2.Text)
End Sub
Adiciona o novo cliente no autocomplete, porem se eu fechar o programa e abrir novamente Ele não guarda.
Salvo o projeto abro e funciona normalmente, mas e quando eu eu for adicionar um novo cliente se eu usar assim:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.TextBox1.AutoCompleteCustomSource.Add(TextBox2.Text)
End Sub
Adiciona o novo cliente no autocomplete, porem se eu fechar o programa e abrir novamente Ele não guarda.
Pelo o que vi você esta usando o componente DataSet se for isso não pode fechar a conexão, pois o TextBox esta vinculado a ele!
Eu não estou usando nenhuma database, é preciso? Só o form mesmo..
Cabra, tenta deste jeito.
Dim lista As New AutoCompleteStringCollection
lista.Add([Ô]Cruzeiro[Ô])
lista.Add([Ô]São Paulo[Ô])
lista.Add([Ô]América[Ô])
lista.Add([Ô]Vila Nova[Ô])
TextBox1.AutoCompleteCustomSource = lista
Dim lista As New AutoCompleteStringCollection
lista.Add([Ô]Cruzeiro[Ô])
lista.Add([Ô]São Paulo[Ô])
lista.Add([Ô]América[Ô])
lista.Add([Ô]Vila Nova[Ô])
TextBox1.AutoCompleteCustomSource = lista
Tenta salvar a lista em um [Ô]Settings[Ô]
Resolvido!
Pessoal do jeito que me passaram, ele adiciona porem não grava ou seja se fechar e abrir novamente não vai ter adicionado ao auto complete!
Aqui a solução:
Propriedades > Browse.. > System.Windows.Form > {} System.Windows.Form > AutoCompleteStringCollection
Public Class Form1
Dim Cities As New AutoCompleteStringCollection()
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
[ô] Careega tudo do TextBo1 para a ListBox[ô]
ListBox1.Items.Add(TextBox1.Text)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
If My.Settings.MyCities.Count = 0 Then
Cities.AddRange((New String() {TextBox1.Text}))
Else
Cities = My.Settings.MyCities
End If
With TextBox1
.AutoCompleteCustomSource = Cities
.AutoCompleteMode = AutoCompleteMode.SuggestAppend
.AutoCompleteSource = AutoCompleteSource.CustomSource
End With
Catch
End Try
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
[ô]Aqui o nome colocado na textbox 2 vai ficar gravado no autocomplete da textbox1[ô]
Cities.Add(TextBox2.Text)
My.Settings.MyCities = Cities
End Sub
End Class
Pessoal do jeito que me passaram, ele adiciona porem não grava ou seja se fechar e abrir novamente não vai ter adicionado ao auto complete!
Aqui a solução:
Propriedades > Browse.. > System.Windows.Form > {} System.Windows.Form > AutoCompleteStringCollection
Public Class Form1
Dim Cities As New AutoCompleteStringCollection()
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
[ô] Careega tudo do TextBo1 para a ListBox[ô]
ListBox1.Items.Add(TextBox1.Text)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
If My.Settings.MyCities.Count = 0 Then
Cities.AddRange((New String() {TextBox1.Text}))
Else
Cities = My.Settings.MyCities
End If
With TextBox1
.AutoCompleteCustomSource = Cities
.AutoCompleteMode = AutoCompleteMode.SuggestAppend
.AutoCompleteSource = AutoCompleteSource.CustomSource
End With
Catch
End Try
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
[ô]Aqui o nome colocado na textbox 2 vai ficar gravado no autocomplete da textbox1[ô]
Cities.Add(TextBox2.Text)
My.Settings.MyCities = Cities
End Sub
End Class
Tópico encerrado , respostas não são mais permitidas