addresshashtable.ascx

来自「asp.net技术内幕的书配源码」· ASCX 代码 · 共 44 行

<Script Runat="Server">

Public ReadOnly Property Values As HashTable
  Get
  Dim colHashTable As New HashTable
  Dim ctlControl As Control
  Dim txtTextBox As TextBox

  For each ctlControl in Controls
    If TypeOf ctlControl Is TextBox Then
      txtTextBox = ctlControl
      colHashTable.Add( txtTextBox.ID, txtTextBox.Text )
    End If
  Next
  Return colHashTable
  End Get
End Property

</Script>

<p>Street Address:
<br>
<asp:TextBox
  ID="Street"
  Runat="Server" />

<p>City:
<br>
<asp:TextBox
  ID="City"
  Runat="Server" />

<p>State:
<br>
<asp:TextBox
  ID="State"
  Runat="Server" />

<p>ZIP:
<br>
<asp:TextBox
  ID="ZIP"
  Runat="Server" />