[VB.NET]AutoCompleteCustomSource importato e utilizzato per più TextBox

[fedrock]

Salve, non appena risolto un problema me ne si presenta uno nuovo

Ho diverse TextBox (sulle 50), sfruttando l'AutoCompleteCustomSource volevo importare una serie di stringhe contenute in un file .txt, ci sono riuscito utilizzando l'IO.StreamReader ma essendo molte le TextBox (devo importare le stesse "voci" per tutte le TextBox) ci vorrebbe molto codice, volevo capire se c'è magari una soluzione più "intelligente":

non sono riuscito ad attuare una cosa del tipo:
dopo aver caricato l'AutoCompleteCustomSource nella TextBox1

TextBox2.AutoCompleteCustomSource = TextBox1.AutoCompleteCustomSource

(in modo da caricarlo in una sola TextBox ed uguagliare le altre)

non inoltre riuscito a fare una cosa del tipo:

Dim MySource As New AutoCompleteStringCollection()
                MySource.AddRange(New String() {Application.StartupPath & "\file.txt"})
                TextBox1.AutoCompleteCustomSource = MySource
                TextBox2.AutoCompleteCustomSource = MySource
                ecc, ecc...

[Jeremy75]

Ciao
Se le textbox sono all'interno del form puoi iterare la collection Controls del form, verificare che il tipo sia TextBox e qundi assegnargli l'origine per l'AutoCompleteCustomSource.

Facci sapere ....
Ciao

[fedrock]

Originariamente inviato da Jeremy75
Ciao
Se le textbox sono all'interno del form puoi iterare la collection Controls del form, verificare che il tipo sia TextBox e qundi assegnargli l'origine per l'AutoCompleteCustomSource.

Facci sapere ....
Ciao

Ti dispiacerebbe farmi un esempio pratico

[Jeremy75]

Uhhmm . . . . Non ci ha nemmeno provato?

For each control as control in me.controls
If typeof control is textbox
Directcast(control, textbox).autocompletecustomsource=mysource
end if
Next

Facci sapere. . . .
Ciao.

[fedrock]

Originariamente inviato da Jeremy75
Uhhmm . . . . Non ci ha nemmeno provato?

For each control as control in me.controls
If typeof control is textbox
Directcast(control, textbox).autocompletecustomsource=mysource
end if
Next

Facci sapere. . . .
Ciao.

In realtà non conoscevo la collection control e cercando su msdn non avevo capito come utilizzarla per porre fine al mio problema...

comunque ho fatto alcune prove del tipo

Dim MySource As New AutoCompleteStringCollection()
                MySource.AddRange(New String() {Application.StartupPath & "\iDAY\esercizi.txt"})
                'TextBox2.AutoCompleteCustomSource = MySource
                For Each control As Control In Me.Controls
                    If TypeOf control Is TextBox Then
                        DirectCast(control, TextBox).AutoCompleteCustomSource = MySource
                    End If
                Next
                TextBox2.AutoCompleteCustomSource = MySource
                'MsgBox(MySource)

non sembra funzionare, sbaglio io?

[Jeremy75]

Sarebbe utile se dicessi cosa non funziona ..... ad ogni modo, molto probabilmente, il problema è che le tue textbox non sono contenute direttamente nel Form ma all'interno di un Panel, od un oggetto simile.
Se fosse questo il caso ..... basterebbe semplicemente sostituire "Me." con il nome dell'oggetto contenitore.
Se le textbox fossero invece contenute in più contenitori, allora la cosa cambierebbe, e bisognerebbe gestire il tutto all'interno del ciclo ForEach della collection Controls del Form semplicemente verificando il tipo di ogni controllo e, qualore fosse a sua volta un contenitore, controllare la collection Controls dell'oggetto corrente.

Ad ogni modo, rimango a disposizione per ulteriori info.
Facci sapere....
Ciao

[fedrock]

Originariamente inviato da Jeremy75
Sarebbe utile se dicessi cosa non funziona ..... ad ogni modo, molto probabilmente, il problema è che le tue textbox non sono contenute direttamente nel Form ma all'interno di un Panel, od un oggetto simile.
Se fosse questo il caso ..... basterebbe semplicemente sostituire "Me." con il nome dell'oggetto contenitore.
Se le textbox fossero invece contenute in più contenitori, allora la cosa cambierebbe, e bisognerebbe gestire il tutto all'interno del ciclo ForEach della collection Controls del Form semplicemente verificando il tipo di ogni controllo e, qualore fosse a sua volta un contenitore, controllare la collection Controls dell'oggetto corrente.

Ad ogni modo, rimango a disposizione per ulteriori info.
Facci sapere....
Ciao

No, le TextBox sono tutte dentro il Form, NON ci sono Panel e simili...

comunque per non funziona intendo che non carica le stringhe del file .txt, ricordo che il file in questione è così strutturato:

Limone
Arancia
Pera
Mela
Banana
Ananas
Cocco

[Jeremy75]

Ma quel problema non l'avevi già risolto tu?

ci sono riuscito utilizzando l'IO.StreamReader ma essendo molte le TextBox

Se scrivi

TextBox1.AutoCompleteCustomSource = MySource

..... funziona????

Non farti strappare le informazioni con le pinze .... altrimenti facciamo Febbraio.
Facci sapere....
Ciao

[fedrock]

Originariamente inviato da Jeremy75
Ma quel problema non l'avevi già risolto tu?


Se scrivi

TextBox1.AutoCompleteCustomSource = MySource

..... funziona????

Non farti strappare le informazioni con le pinze .... altrimenti facciamo Febbraio.
Facci sapere....
Ciao

Hai ragione grazie per la pazienza comunque...

ho provato in questo modo:

 Using SR As New IO.StreamReader(Application.StartupPath() & "\file.txt")
                    While SR.EndOfStream = False
                        Dim MySource As New AutoCompleteStringCollection()
                        MySource.AddRange(New String() {SR.ReadLine})
                        For Each control As Control In Me.Controls
                            If TypeOf control Is TextBox Then
                                DirectCast(control, TextBox).AutoCompleteCustomSource = MySource
                            End If
                        Next
                    End While
                End Using

non va praticamente mi carica solo l'ultima riga del file .txt

[Jeremy75]

Il codice giusto è così:

Private MySource As New AutoCompleteStringCollection()
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Using SR As New IO.StreamReader(Application.StartupPath() & "\file.txt")
            While SR.EndOfStream = False
                MySource.AddRange(New String() {SR.ReadLine})
            End While
        End Using
        For Each control As Control In Me.Controls
            If TypeOf control Is TextBox Then
                DirectCast(control, TextBox).AutoCompleteCustomSource = MySource
            End If
        Next
    End Sub

Prima di tutto perchè il tuo codice creava una nuova istanza dell'oggetto MySource ad ogni ciclo per la lettura del file ..... e secondo perchè la valorizzazione della classe AutoCompleteCustomSource di ogni textbox basta farla una volta sola(alla fine del ciclo While..Next)

Facci sapere...
Ciao