Public Partial Class WebForm1 Inherits System.Web.UI.Page Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load End Sub Protected Sub RadioButtonList1_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) If RadioButtonList1.SelectedValue = "blue" Then TextBox1.BackColor = System.Drawing.Color.Blue TextBox1.ForeColor = System.Drawing.Color.White ElseIf RadioButtonList1.SelectedValue = "red" Then TextBox1.BackColor = System.Drawing.Color.Red TextBox1.ForeColor = System.Drawing.Color.Black ElseIf RadioButtonList1.SelectedValue = "white" Then TextBox1.BackColor = System.Drawing.Color.White TextBox1.ForeColor = System.Drawing.Color.Black End If End Sub Protected Sub RadioButtonList2_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles RadioButtonList2.SelectedIndexChanged Response.Write(RadioButtonList2.SelectedValue) Dim index As Integer For index = 1 To Me.RadioButtonList2.SelectedValue Dim newdiv As New HtmlGenericControl("div") newdiv.EnableViewState = True Dim ht As New HtmlTable() ht.ID = "mytable" & index ht.EnableViewState = True ht.Width = "100%" ht.CellSpacing = "0" ht.CellPadding = "0" ht.Border = 0
Dim htr, htr1, htr2 As New HtmlTableRow() Dim cell, htc, htc1, htc2, htc3, htc4, htc5, htc6, htc7, htc8 As New HtmlTableCell() Dim name_tb As New TextBox() Dim sal_ddl As New DropDownList 'validator Dim name_req As New RequiredFieldValidator Dim tel_req As New RequiredFieldValidator Dim email_req As New RequiredFieldValidator
name_tb.ID = "name_tb" & index sal_ddl.ID = "sal_ddl" & index name_req.ID = "name_req" & index tel_req.ID = "tel_req" & index email_req.ID = "email_req" & index name_tb.EnableViewState = True sal_ddl.EnableViewState = True tel_req.EnableViewState = True sal_ddl.Items.Add("MR") sal_ddl.Items.Add("Ms") sal_ddl.Items.Add("Mrs")
Dim Tel_tb1 As New TextBox Tel_tb1.ID = "Tel_tb1" & index Tel_tb1.EnableViewState = True name_tb.TextMode = TextBoxMode.SingleLine Dim email_tb1 As New TextBox email_tb1.ID = "email_tb1" & index email_tb1.TextMode = TextBoxMode.SingleLine htc.InnerText = "Name : " htc.Width = "20%" htc.Align = "Left"
htc1.Controls.Add(sal_ddl) htc1.Width = "10%" htc2.Width = "70%" htc2.Align = "left"
htc2.Controls.Add(name_tb) htc2.Controls.Add(name_req) htr.Controls.Add(htc) htr.Controls.Add(htc1) htr.Controls.Add(htc2)
ht.Controls.Add(htr) name_req.ControlToValidate = "name_tb" & index name_req.Display = ValidatorDisplay.Dynamic name_req.ErrorMessage = ("Please Enter name of attendenes")
'make 2nd row htc3.InnerText = "Telephone : " htc3.Width = "20%" htc3.Align = "Left"
htc4.InnerHtml = "<strong></strong>" htc4.Width = "10%" htc5.Width = "70%" htc5.Align = "left" htc5.Controls.Add(Tel_tb1) htc5.Controls.Add(tel_req) htr1.Controls.Add(htc3) htr1.Controls.Add(htc4) htr1.Controls.Add(htc5)
ht.Controls.Add(htr1) tel_req.ControlToValidate = "Tel_tb1" & index tel_req.Display = ValidatorDisplay.Dynamic tel_req.ErrorMessage = ("Please Enter Phone")
'make 3rd row htc6.InnerText = "Email : " htc6.Width = "20%" htc6.Align = "Left"
htc7.InnerHtml = "<strong></strong>" htc7.Width = "10%" htc8.Width = "70%" htc8.Align = "left" htc8.Controls.Add(email_tb1) htc8.Controls.Add(email_req) htr2.Controls.Add(htc6) htr2.Controls.Add(htc7) htr2.Controls.Add(htc8) ht.Controls.Add(htr2) email_req.ControlToValidate = "email_tb1" & index email_req.Display = ValidatorDisplay.Dynamic email_req.ErrorMessage = ("Please Enter Email") 'Add a blank row cell.ColSpan = 3 cell.InnerHtml = "<br/>" Dim row As New HtmlTableRow row.Cells.Add(cell) ht.Rows.Add(row) newdiv.Controls.Add(ht) newdiv.Attributes.Add("table", "ht")
newdiv.Attributes.Add("Style", "border-bottom :#ccc solid 0px") newdiv.Attributes.Add("style", "height:23px") newdiv.Attributes.Add("style", "padding-left:20px")
Me.PlaceHolder1.Controls.Add(newdiv) PlaceHolder1.EnableViewState = True Next
End Sub End Class
|