panel1.aspx
来自「《精通ASP.NET网络编程》附带实例」· ASPX 代码 · 共 95 行
ASPX
95 行
<html>
<head>
<script language="VB" runat="server">
Sub Page_Load(sender As Object, e As EventArgs)
Dim numlabels as Integer
Dim numtexts as Integer
Dim i as Integer
' Show/Hide Panel Contents
If Check1.Checked Then
Panel1.Visible = False
Else
Panel1.Visible = True
End If
' Generate label controls
numlabels = CInt(DropDown1.SelectedItem.Value)
For i = 1 To numlabels
Dim l As Label = New Label()
l.Text = "Label" & i
l.ID = "Label" & i
Panel1.Controls.Add(l)
Panel1.Controls.Add(new LiteralControl("<br>"))
Next
' Generate textbox controls
numtexts = CInt(DropDown2.SelectedItem.Value)
For i = 1 To numtexts
Dim t As TextBox = New TextBox()
t.Text = "TextBox" & i
t.ID = "TextBox" & i
Panel1.Controls.Add(t)
Panel1.Controls.Add(new LiteralControl("<br>"))
Next
End Sub
</script>
</head>
<body>
<form runat=server>
<asp:Panel id="Panel1" runat="server"
BackColor="gainsboro"
Height="200px"
Width="300px">
这是一些控件列表:
<p>
</asp:Panel>
<p>
产生 Label控件:
<asp:DropDownList id=DropDown1 runat="server">
<asp:ListItem Value="0">0</asp:ListItem>
<asp:ListItem Value="1">1</asp:ListItem>
<asp:ListItem Value="2">2</asp:ListItem>
<asp:ListItem Value="3">3</asp:ListItem>
<asp:ListItem Value="4">4</asp:ListItem>
</asp:DropDownList>
<br>
产生TextBox控件:
<asp:DropDownList id=DropDown2 runat="server">
<asp:ListItem Value="0">0</asp:ListItem>
<asp:ListItem Value="1">1</asp:ListItem>
<asp:ListItem Value="2">2</asp:ListItem>
<asp:ListItem Value="3">3</asp:ListItem>
<asp:ListItem Value="4">4</asp:ListItem>
</asp:DropDownList>
<p>
<asp:CheckBox id="Check1" Text="隐藏Panel" runat="server"/>
<p>
<asp:Button Text="刷新Panel" runat="server"/>
</font>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?