Geeks With Blogs
Gaurav Taneja Great dreams... never even get out of the box. It takes an uncommon amount of guts to put your dreams on the line, to hold them up and say, "How good or how bad am I?" That's where courage comes in.
Diplaying the controls
 
Public Sub DisplayControlName(ByVal oControl As Control, ByVal strPageName As String)
 
        Dim txtBox As TextBox
        Dim ddlLst As DropDownList
        Dim rdBtn As RadioButton
        Dim rdBtnLst As RadioButtonList
        Dim chkBx As CheckBoxList
        Dim chkBx1 As CheckBox
        Dim lblVal As System.Web.UI.WebControls.Label
        Dim htmTbl As System.Web.UI.HtmlControls.HtmlTable
        Dim btnVal As System.Web.UI.WebControls.Button
 
 
        ' Checks for all the WebBased Control in the web page
 
                Select Case oControl.GetType.ToString
 
 
 
                    'Case "System.Web.UI.WebControls.TextBox" ' for textbox control
                    '    txtBox = oControl.FindControl(oControl.ID)
                    '    If Not txtBox.ID Is Nothing Then
                    '        If Not txtBox.Text.ToString() Is Nothing Then
                    '            If txtBox.Text.Length > 0 Then
                    '                ArrayLst.Add(New String() {strPageName & "_" & txtBox.ID & "_" & "TextBox" & "_" & "N/A", txtBox.Text.ToString()})
                    '            End If
                    '        End If
                    '    End If
 
                    Case  MultiLang_DropDownListControl ' for Dropdownlist control
                        ddlLst = oControl.FindControl(oControl.ID)
                        If Not ddlLst Is Nothing Then
 
                        End If
 
                    Case  MultiLang_RadioButtonControl ' for radio button control
                        rdBtn = oControl.FindControl(oControl.ID)
                        If Not rdBtn Is Nothing Then
                            ArrayLst.Add(New String() {strPageName & "_" & rdBtn.ID & "_" MultiLang_RadioButton & "_" & MultiLang_NA, rdBtn.Text.ToString()})
                        End If
                    Case  MultiLang_RadioButtonListControl ' for radio button control
                        rdBtnLst = oControl.FindControl(oControl.ID)
                        If Not rdBtnLst Is Nothing Then
                            Dim MyItem As ListItem
                            For Each MyItem In rdBtnLst.Items
                                ArrayLst.Add(New String() {strPageName & "_" & rdBtnLst.ID & "_" &  MultiLang_RadioButtonList & "_" & MyItem.Value & "_" &  MultiLang_NA, MyItem.Text.ToString()})
                            Next
                        End If
                    Case  MultiLang_CheckBoxListControl
                        chkBx = oControl.FindControl(oControl.ID)
                        If Not chkBx Is Nothing Then
                            Dim MyItem As ListItem
                            For Each MyItem In chkBx.Items
                                ArrayLst.Add(New String() {strPageName & "_" & chkBx.ID & "_" &  MultiLang_CheckBoxList & "_" & MyItem.Value & "_" &  MultiLang_NA, MyItem.Text.ToString()})
                            Next
                        End If
                    Case  MultiLang_CheckBoxControl ' for checkbox control
                        Try
                            'Dim strVal As Object
                            If Not TypeOf oControl.NamingContainer Is CheckBoxList Then
                                chkBx1 = oControl.FindControl(oControl.ID)
                                If Not chkBx1 Is Nothing Then
                                    If Not chkBx1.Text.Equals("") Then
                                        ArrayLst.Add(New String() {strPageName & "_" & chkBx1.ID & "_" &  MultiLang_CheckBox & "_" &  MultiLang_NA, chkBx1.Text.ToString()})
                                    End If
                                End If
                            End If
                        Catch ex As Exception
 
                        End Try
 
                    Case  MultiLang_LabelControl ' for label control
                        Try
                            lblVal = oControl.FindControl(oControl.ID)
                            ' HttpContext.Current.Response.Write("<br>" & "Label:- " & lblVal.Text)
                            If Not lblVal Is Nothing Then
                                If Not lblVal.Text.Equals("") Then
                                    ArrayLst.Add(New String() {strPageName & "_" & lblVal.ID & "_" &  MultiLang_Label & "_" &  MultiLang_NA, lblVal.Text.ToString()})
                                End If
                            End If
                        Catch ex As Exception
 
                        End Try
 
 
                    Case  MultiLang_HtmlTableControl ' for fetching table control
 
                        htmTbl = oControl.FindControl(oControl.ID)
                        Dim MyRow As System.Web.UI.HtmlControls.HtmlTableRow
                        Dim mycell As System.Web.UI.HtmlControls.HtmlTableCell
                        Try
                            ' Travesing each row in the table and then traversing the cells
                            For Each MyRow In htmTbl.Rows
                                For Each mycell In MyRow.Cells
                                    If mycell.Controls(0).GetType().ToString().Equals( MultiLang_LiteralControl) Then
                                        ' If mycell.InnerText.Length > 0 Then
                                        If Not mycell.ID Is Nothing Then
                                            If Not mycell.InnerText.ToString() Is Nothing Then
                                                If mycell.InnerText.Length > 0 Then
                                                    ArrayLst.Add(New String() {strPageName & "_" & mycell.ID & "_" &  MultiLang_td & "_" &  MultiLang_NA, mycell.InnerText.ToString()})
                                                End If
                                            End If
                                        End If
                                        'End If
                                    End If
                                Next
                            Next
                        Catch ex As Exception
 
                        End Try
 
                    Case  MultiLang_ButtonControl ' for fetching button control
                        btnVal = oControl.FindControl(oControl.ID)
                        If Not btnVal Is Nothing Then
                            ArrayLst.Add(New String() {strPageName & "_" & btnVal.ID & "_" &  MultiLang_Button & "_" &  MultiLang_NA, btnVal.Text.ToString()})
                        End If
                End Select
 
    End Sub
Posted on Wednesday, December 10, 2008 10:51 PM | Back to top


Comments on this post: Displaying the controls of page

No comments posted yet.
Your comment:
 (will show your gravatar)


Copyright © Gaurav Taneja | Powered by: GeeksWithBlogs.net