<%@ Control Language="VB" %>
<%@ Import Namespace="System.Drawing" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.SqlClient" %>
<script runat="Server">
' BgColor属性の値を格納するプライベート変数 Private _bgcolor As Color
' ForeColor属性の値を格納するプライベート変数 Private _forecolor As Color
' BgColorプロパティの定義 Public WriteOnly Property BgColor As String Set _bgcolor=Color.FromName(Value) End Set End Property
' ForeColorプロパティの定義 Public WriteOnly Property ForeColor As String Set _forecolor=Color.FromName(Value) End Set End Property
Sub Page_Load(sender As Object, e As EventArgs) ' PanelコントロールのBackColor属性、ForeColor属性に ' 対応するプライベート変数の値をセット pnl.BackColor=_bgcolor pnl.ForeColor=_forecolor
Dim db As New SqlConnection("Data Source=(local);User ID=sa;Password=sa;Persist Security Info=True;Initial Catalog=dotnet")
Dim objCom As New SqlCommand("SELECT url,title,target FROM menu ORDER BY indexNumber ASC",db)
db.Open()
Dim objDr As SqlDataReader=objCom.ExecuteReader()
Do While objDr.Read()
Dim ctrl As New HyperLink()
ctrl.NavigateUrl=objDr.GetString(0)
ctrl.Text=objDr.GetString(1)
ctrl.Target=objDr.GetString(2)
Dim ctrl2 As New LiteralControl()
ctrl2.Text=" | "
pnl.Controls.Add(ctrl)
pnl.Controls.Add(ctrl2)
Loop
End Sub
</script>
<asp:Image id="img" runat="Server" Height="90" Width="150"
ImageUrl="http://www.wings.msn.to/image/wings.jpg" AlternateText="Wings" />
<br />
<asp:Panel id="pnl" runat="Server"
BorderStyle="Outset" BackColor="#FFFFFF" ForeColor="#000000"
Wrap="False" width="500" Height="20" />