FindControl

[elisa_rm74]

Avendo una serie di Label (Label1, Label2, Label3....)
è possibile fare una cosa del genere?

For i = 1 To 12
FindControl("Label" & i).Text = ....
Next

Così ovviamente non funziona!

Grazie Elisa

[sms]

dim label1 as label
For i = 1 To 12
label1.ID = "Label" & i
label1.Text = "Il testo di 'Label" & i & "' è stato modificato"
Next

[elisa_rm74]

Ho scritto:
Dim Label As System.Web.UI.WebControls.Label
Protected WithEvents Label1 As System.Web.UI.WebControls.Label
......................

For i = 1 To 12
Label.ID = "Label" & i
Label.Text = RestituisciMese(i)
Next


Ma mi da quest'errore:
Riferimento a un oggetto non impostato su un'istanza di oggetto.

[sms]

si .. mi sono sbagliato..
prova con

<%
dim labelx as label
dim i as integer = 0
For i = 3 To 4
For each labelx in Me.Controls
If labelx.ID = "Label" & i Then
labelx.Text = "Il testo di 'Label" & i & "' è stato modificato"
Exit For
End If
Next
Next
%>
<asp:label runat="server" id="Label3" />
<asp:label runat="server" id="Label4" />

[pietro09]

For i As Integer = 1 To 4
	Dim l As Label = DirectCast(FindControlRecursive(GetForm(Me), "Label" & i), Label)
	If (Not (l Is Nothing)) Then
		l.Text = "label n° " & i
	End If
Next

[sms]

FindControlRecursive

ma non la trovo questa funzione

[pietro09]

piccola dimenticanza

'-------------------------------------------------------------------------------------------
'trova un controllo all'interno di una gerarchia di controlli
'-------------------------------------------------------------------------------------------
Public Function FindControlRecursive(ByVal ctrl As Control, ByVal id As String) As Control
	If ctrl.ID = id Then Return ctrl

	Dim childCtrl As Control
	For Each childCtrl In ctrl.Controls
		Dim resCtrl As Control = FindControlRecursive(childCtrl, id)
		If Not resCtrl Is Nothing Then Return resCtrl
	Next
End Function


'---------------------------------------------------------------------
'Restituisce un riferimento al form di nome opzionale Form1
'---------------------------------------------------------------------
Public Function GetForm(ByVal This As Page, Optional ByVal NomeForm$ = "Form1") As HtmlForm
	Return CType(This.FindControl("Form1"), HtmlForm)
End Function

[sms]

piccola dimenticanza [..]

ma non è + o - quello che ho scritto nel secondo messaggio (certo il tuo è un filo + ordinato e strutturato )

[pietro09]

Originariamente inviato da sms
ma non è + o - quello che ho scritto nel secondo messaggio (certo il tuo è un filo + ordinato e strutturato )

:master: come lo hai fatto non mi ha funzionato. Forse perchè ho VisualStudio configurato con Option Explicit = on, Option strict = on, Option Compare = Binary

Ma non è che ho voluto farti un dispetto E' che primo, la nostra Elisa usa il Basic e perciò merita attenzione, secondo, che ho una paginetta rompiballe da iniziare a fare e proprio non ne ho voglia :maLOL:

Ciao

[sms]

Forse perchè ho VisualStudio configurato con Option Explicit = on, Option strict = on, Option Compare = Binary

probabile.. l'ho fatto da blocco note (infatti x scrivere meno ho utilizzato <% .. %> al posto del blocco script runat="server" )