動態產生控制項(Radiobutton)

Public Sub Radiobutton(ByVal Items As Integer)
        Dim RadioBut As New RadioButtonList
        RadioBut.ID = "RB" & Items
        RadioBut.Items.Add("選擇題")
        RadioBut.Items.Add("問答題")
        RadioBut.RepeatDirection = RepeatDirection.Horizontal
        PlaceHolder1.Controls.Add(New LiteralControl(" <td width=30%>"))
        PlaceHolder1.Controls.Add(RadioBut)
        PlaceHolder1.Controls.Add(New LiteralControl(" </td>"))
        PlaceHolder1.Controls.Add(New LiteralControl(" <tr>"))
        PlaceHolder1.Controls.Add(New LiteralControl(" </table>"))
    End Sub


動態產生控制項抓取
 RadioBut = PlaceHolder1.FindControl(Ite)

動態產生控制項(TextBox)

Public Sub Textbox(ByVal Items As Integer)
        Dim TexBox As New TextBox
        TexBox.ID = "TB" & Items
        TexBox.Width = 450
        TexBox.Height = 15
        PlaceHolder1.Controls.Add(New LiteralControl(" <table border=1 width=100%>"))
        PlaceHolder1.Controls.Add(New LiteralControl(" <td width=10%>"))
        PlaceHolder1.Controls.Add(New LiteralControl("題目" & Items))
        PlaceHolder1.Controls.Add(New LiteralControl(" </td>"))
        PlaceHolder1.Controls.Add(New LiteralControl(" <td width=60%>"))
        PlaceHolder1.Controls.Add(TexBox)
        PlaceHolder1.Controls.Add(New LiteralControl(" </td>"))
End Sub