[AccessD] VB.Net labels Collection

David Emerson newsgrps at dalyn.co.nz
Sun Apr 23 17:05:05 CDT 2006


Finally found it:

         Dim myControl1 As Control, lblLoop As Label, myInt As Integer
         Dim cntContent As ContentPlaceHolder
         cntContent = 
CType(Master.FindControl("ContentPlaceHolder1"), 
ContentPlaceHolder)  <-- this was the solution
         If (Not cntContent Is Nothing) Then
             For myInt = 1 To 3
                 myControl1 = cntContent.FindControl("lbltemp" & myInt)
                 If (Not myControl1 Is Nothing) Then
                     lblLoop = CType(myControl1, Label)
                     lblLoop.Text = TextBox1.Text & myInt
                 Else
                     lblLoop.Text = "Label not found"
                 End If
             Next myInt
         Else
             lblLoop.Text = "Content not found"
         End If


Regards

David Emerson
Dalyn Software Ltd
New Zealand  


More information about the AccessD mailing list