おぼえがき

「お知らせ表」を部品化しておく。

[Info.ascx.vb]
    Private Sub Page_Load(ByVal sender As System.Object, _
                    ByVal e As System.EventArgs) Handles MyBase.Load
        ' ページを初期化するユーザー コードをここに挿入します。


        Dim config As System.Configuration.ConfigurationSettings
        Dim ds As New DataSet

        Dim strXMLfile As String = config.AppSettings("AnnounceFile")

        ds.ReadXml(strXMLfile)
        Me.dtlAnnounce.DataSource = ds.Tables("info")
        Me.dtlAnnounce.DataBind()


    End Sub