Non riesco a collegare una textbox2 a un file di testo contenente una serie di nomi in modo tale che sia in modalità autocomplete mi spiego meglio in vb2010 creo cartella contenente un file di testo dove vado a scrivere tramite textbox1 una lista di nomi c:\elenco\nomi.txt. Ora vorrei che digitando una lettera in una texbox2 si attivasse la modalità di autocompletamento delle parole in riferimento al contenuto del file di testo ( in pratica autocompletamento automatico sulla textbox2 grazie ho trovato sul sito microsoft il codice elencato sotto ma non si riferisce alla lettura di un txt ma ad un elenco di mesi aggiunti in fase di programmazione Come posso cambiarlo? ) Qualcuno puo darmi un aiuto sul codice da inserire?
Imports System.IO.File
Public Class Form1
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
If My.Computer.FileSystem.FileExists("c:\elenco\") Then
Else
My.Computer.FileSystem.CreateDirectory("c:\elenco\")
End If
If My.Computer.FileSystem.FileExists("c:\elenco\nomi.txt") = False Then
Dim scrivi As New IO.StreamWriter("c:\elenco\nomi.txt")
scrivi.Close()
End If
Private Sub cmdsalva_Click(sender As System.Object, e As System.EventArgs) Handles cmdsalva.Click
Dim scrivi = TextBox1.Text ' scrive nel file di testo un elenco di nominativi
Dim aggiorna As IO.StreamWriter
aggiorna = IO.File.AppendText("c:\elenco\nomi.txt aggiorna.WriteLine(scrivi)
aggiorna.Close()
End Sub
Dim MySource As New AutoCompleteStringCollection()
MySource.AddRange(New String() _
{ _
"January", _
"February", _
"March", _
"April", _
"May", _
"June", _
"July", _
"August", _
"September", _
"October", _
"November", _
"December" _
})
' Create and initialize the text box.
Dim MyTextBox2 As New TextBox()
With MyTextBox2
.AutoCompleteCustomSource = MySource
.AutoCompleteMode = AutoCompleteMode.SuggestAppend
.AutoCompleteSource = AutoCompleteSource.CustomSource
.Location = New Point(20, 20)
.Width = Me.ClientRectangle.Width - 40
.Visible = True
End With
' Add the text box to the form.
Me.Controls.Add(MyTextBox2)
End Class