📄 controls.aspx

📁 asp.net技术内幕的书配源码

💻 ASPX

字号:

<Script Runat="Server">

Dim strControlList As String

Sub Page_Load
  strControlList = "<ul>"
  DisplayControls( Page )
  strcontrolList &= "</ul>"
  lblOutput.Text = strControlList
End Sub

Sub DisplayControls( s As Object )
  Dim ctlControl As Control

  For Each ctlControl in s.Controls
    DisplayControlInfo( ctlControl )
    strControlList &= "<ul>"
    DisplayControls( ctlControl )
    strControlList &= "</ul>"
  Next
End Sub

Sub DisplayControlInfo( s As Object )
  strControlList &= "<li> Client ID: " & s.ClientID
  strControlList &= "<br> Type: " & s.GetType().ToString()
  strControlList &= "<br> ID: " & s.ID
  strControlList &= "<br> Naming Container: " & s.NamingContainer.ToString()
  strControlList &= "<br> Page: " & s.Page.ToString()
  strControlList &= "<br> Parent: " & s.Parent.ToString()
  strControlList &= "<br> Unique ID: " & s.UniqueID
  strControlList &= "<p>"
End Sub

</Script>

<html>
<head><title>Controls.aspx</title></head>
<body>

<form Runat="Server">

<asp:Panel
  ID="pnlPanel"
  Runat="Server">

  <asp:Label
    id="lblNewLabel"
    Runat="Server"/>

</asp:Panel>

Username:
<br>
<asp:TextBox
  ID="txtUsername"
  Runat="Server" />
<p>
<asp:Button
  ID="btnButton"
  Text="Submit Name!"
  Runat="Server" />

<hr>
<asp:Label
  ID="lblOutput"
  Runat="Server" />

</form>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -