Ricorsività su Controls

[djciko]

Sto tentando di fare un metodo che aggiunge uno script a tutte le textbox della pagina (passandogli il form principale):

         Public Shared Sub HighLight_TextBox(ByVal form_pagina As HtmlForm)
            For Each controllo As Control In form_pagina.Controls
                If TypeOf controllo Is TextBox Then
                    Dim tb As New TextBox
                    tb = DirectCast(controllo, TextBox)

                    tb.Attributes.Add("onMouseOver", "this.style.backgroundColor='#FFFFE0';")
                    tb.Attributes.Add("onMouseOut", "this.style.backgroundColor='#FFFFFF';")

                    tb.Attributes.Add("onFocus", "this.style.backgroundColor='#FFFFE0';this.style.borderWidth='2px';")
                    tb.Attributes.Add("onBlur", "this.style.backgroundColor='#FFFFFF';this.style.borderWidth='2px';")
                End If
            Next
        End Sub

Ma ovviamente, se una textbox è contenuta in un'altro controllo (es. FieldSet), non viene considerata.

Ricordo che una volta se ne è parlato, di ricorsività. Ma non trovo il thread...Qualcuno ricorda come fare ?

[pietro09]

Ma scusa, perchè non usi i temi?

Basta fare un tema con uno SkinFile, per esempio con l'istruzione:

<asp:TextBox runat="server" BorderStyle="Solid" BorderWidth="1px" BorderColor="#A5A5A2"></asp:TextBox>

e non ci pensi più

[pietro09]

HighLight_TextBox(Me.Form)

    Public Shared Sub HighLight_TextBox(ByVal container As Control)
        For Each controllo As Control In container.Controls
            If TypeOf controllo Is TextBox Then
                Dim tb As New TextBox
                tb = DirectCast(controllo, TextBox)

                tb.Attributes.Add("onMouseOver", "this.style.backgroundColor='#FFFFE0';")
                tb.Attributes.Add("onMouseOut", "this.style.backgroundColor='#FFFFFF';")

                tb.Attributes.Add("onFocus", "this.style.backgroundColor='#FFFFE0';this.style.borderWidth='2px';")
                tb.Attributes.Add("onBlur", "this.style.backgroundColor='#FFFFFF';this.style.borderWidth='2px';")

                tb.Style.Add("border", "2px green solid")
            End If
            HighLight_TextBox(controllo)
        Next
    End Sub

[djciko]

Originariamente inviato da pietro09
HighLight_TextBox(Me.Form)

    Public Shared Sub HighLight_TextBox(ByVal container As Control)
        For Each controllo As Control In container.Controls
            If TypeOf controllo Is TextBox Then
                Dim tb As New TextBox
                tb = DirectCast(controllo, TextBox)

                tb.Attributes.Add("onMouseOver", "this.style.backgroundColor='#FFFFE0';")
                tb.Attributes.Add("onMouseOut", "this.style.backgroundColor='#FFFFFF';")

                tb.Attributes.Add("onFocus", "this.style.backgroundColor='#FFFFE0';this.style.borderWidth='2px';")
                tb.Attributes.Add("onBlur", "this.style.backgroundColor='#FFFFFF';this.style.borderWidth='2px';")

                tb.Style.Add("border", "2px green solid")
            End If
            HighLight_TextBox(controllo)
        Next
    End Sub

Grazie, nel frattempo ci ero arrivato, anche io rimuovendo il vincolo di HtmlForm.
Complimenti per il bordino verde

[pietro09]

Originariamente inviato da djciko
Complimenti per il bordino verde

ERA SOLO UNA PROVA...

[pietro09]

Dim tb As New TextBox
tb = DirectCast(controllo, TextBox)



:quote: a parte il bordino verde-pisello di 2 px, quello è meglio scriverlo così:

Dim tb as TextBox = DirectCast(controllo, TextBox)

il new non ci sta a fare niente

[djciko]

   If TypeOf controllo Is TextBox Then
       DirectCast(controllo, TextBox).Attributes.Add("onMouseOver", "this.style.backgroundColor='#FFFFE0';")
       DirectCast(controllo, TextBox).Attributes.Add("onMouseOut", "this.style.backgroundColor='#FFFFFF';")

       DirectCast(controllo, TextBox).Attributes.Add("onFocus", "this.style.backgroundColor='#FFFFE0';")
       DirectCast(controllo, TextBox).Attributes.Add("onBlur", "this.style.backgroundColor='#FFFFFF';")
   End If

[pietro09]

ma quanti trilioni di volte fai il direct cast? :master:

[djciko]

Originariamente inviato da pietro09
ma quanti trilioni di volte fai il direct cast? :master:

dici che e' dispendioso ? era per discuterne... :master:

[pietro09]

Originariamente inviato da djciko
dici che e' dispendioso ? era per discuterne... :master:

Boh! non so, forse :master: