''' <summary>
''' カスタム構成セクションハンドラ
''' ※.NET1.1以前で使用可能。
''' .NET2.0以降ではSystem.Configuration.ConfigurationSectionクラスを推奨
''' </summary>
''' <remarks></remarks>
Public Class MyCustomConfigHandler1_1
Implements System.Configuration.IConfigurationSectionHandler
''' <summary>
''' 構成セクションハンドラを作成する。
''' </summary>
''' <param name="parent">親オブジェクト</param>
''' <param name="configContext">構成コンテキストオブジェクト</param>
''' <param name="section">セクションXMLノード</param>
''' <returns>作成されたセクションハンドラオブジェクト</returns>
''' <remarks></remarks>
Public Function Create( _
ByVal parent As Object, _
ByVal configContext As Object, _
ByVal section As System.Xml.XmlNode) As Object _
Implements _
System.Configuration.IConfigurationSectionHandler.Create
Dim configTable As New Hashtable()
For Each areaNode As XmlNode In section.ChildNodes
For Each prefNode As XmlNode In areaNode.ChildNodes
configTable.Add( _
prefNode.Attributes("Name").Value, _
prefNode.Attributes("MajorCity").Value)
Next
Next
'取得した構成情報をメッセージボックスに表示
Dim sb As New StringBuilder()
For Each k As String In configTable.Keys
sb.Append(k & ":" & configTable(k).ToString() & vbCrLf)
Next
MessageBox.Show(sb.ToString())