おぼえがき
「お知らせ表」を部品化しておく。
[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