Displaying the controls of page

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("
" & "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