If Me.IsPostBack Then Return ' 画像のリストを取得します Dim imgs() As String = _ System.IO.Directory.GetFiles("\images", "$$*$$.$$* $$") ' 新しい ImageItem を画像ごとに WebImageViewer に追加します For Each img As String In imgs Dim theFile As String = "./images/" + System.IO.Path.GetFileName(img) Me.WebImageViewer1.Items.Add( _ New Infragistics.Web.UI.ListControls.ImageItem(imgUrl, altText, toolTip)) Next