[VB.NET] Usare valore stringa per puntare a un oggetto

[Veronica80]

Ciao carissimi!
Avrei un piccolo dubbio...

E' possibile puntare a un oggetto avendo il suo nome salvato in una variabile?

Mi spiego meglio....mettiamo che io ho 10 textbox che si chiamano:

miaTxt1
miaTxt2
miaTxt3
...
miaTxt10

E volessi utilizzare un ciclo dove punto a una per una segnalandone il nome dalla stringa tipo:

for i=1 to 10
          dim miaTextBox as Textbox="miaTxt" & i
          miaTextBox.text="Ciao!"
next

Una cosa del genere. Ovviamente così non funziona perchè "miaTxt" & i è una stringa e VB.NET non vuole il nome dell'oggetto bensì l'oggetto vero e proprio! Ma se io il nome non lo ho come faccio a compormelo senza usare stringhe?

Spero di essermi spiegata!

Grazie a tutti coloro che risponderanno!

:*

[Pirelli72]

Ovviamente si, potresti usare il DirectCast e una funzione che trova il controllo che corrisponde al contenuto della variabile.

[Pirelli72]

Ops piccolo esempio grezzo grezzo:

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        DirectCast(FindControl("TextBox1"), TextBox).Text = "Find it"
    End Sub

    Function FindControl(ByVal name As String) As Control
        For Each ctr As Control In Me.Controls
            If ctr.Name = name Then
                Return ctr
            End If
        Next
    End Function

[Veronica80]

Non riesco a farlo andare Pirex

E' che non ho proprio capito come funziona il tutto e così a copia/incolla poi mi perdo xD

[MdE2005]

Riprendendo il tuo esempio e il codice di Pirelli72, inserisci 2 o + textbox denominate TextBox1, 2, 3 ecc.. e scrivi questo nell'evento Load del form:

        For Each ctr As Control In Me.Controls
            If ctr.Name.ToString.Substring(0, 7) = "TextBox" Then
                ctr.Text = "CIAO"
            End If
        Next

Capirai così cosa fa questo codice..


Ciao

[Veronica80]

Si si così l'ho capito meglio!

A dire il vero mi si è accesa anche la lampadina per il codice di Pirelli! La funzione l'avevo capita non capivo a che servisse il directcast!

Serve in sostanza a trattare l'oggetto restituito dalla funzione usando le proprietà della classe dell'oggetto stesso prima di sapere che tipo di oggetto è!

(io metto listview e mi da tutte le proprietà della stessa anche da progettazione non ho il risultato della funzione)

[MdE2005]

Originariamente inviato da Veronica80
Si si così l'ho capito meglio!

Lo sapevo..


Ciao

[albgen]

Piccola precisazione:
Conviene fare una funzione ricorsiva che ti ritorna tutte le textbox e non usare me.controls per un semplice motivo che se hai un panello o groupbox che contiene queste textbox allora quel me.controls non ti funziona.

[Pirelli72]

Ovvio, sarebbe stato il passo successivo:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        DirectCast(FindControl("TextBox1",Me), TextBox).Text = "Find it"
    End Sub

 Public Function FindControl(ByVal ControlName As String, ByVal CurrentControl As Control) As Control
        For Each ctr As Control In CurrentControl.Controls
            If ctr.Name = ControlName Then
                Return ctr
            Else
                ctr = FindControl(ControlName, ctr)
                If Not ctr Is Nothing Then
                    Return ctr
                End If
            End If
        Next ctr
        Return Nothing
    End Function

[albgen]