好心人给个WEB 控件编写的例子，设置要显示图片的path 控件显示图片

好心人给个WEB 控件编写的例子，设置要显示图片的path 控件显示图片

解决方案 »

  1.   

    是要用<asp:image>控件，设置其显示图片的路径吗？
    Exam3_6.aspx<%@ Page Language="vb" AutoEventWireup="false" Codebehind="Exam3_6.aspx.vb" Inherits="Chapter3.Exam3_6"%>
    <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
    <HTML>
    <HEAD>
    <title>Exam3_6</title>
    <meta name="GENERATOR" content="Microsoft Visual Studio .NET 7.0">
    <meta name="CODE_LANGUAGE" content="Visual Basic 7.0">
    <meta name="vs_defaultClientScript" content="JavaScript">
    <meta name="vs_targetSchema" content="http://schemas.microsoft.com/intellisense/ie5">
    </HEAD>
    <body>
    <form id="Form1" method="post" runat="server">
    <FONT face="宋体">
    <P>
    <asp:Image id="Image1" runat="server"></asp:Image></P>
    <P>请从列表中选择
    <asp:DropDownList id="cboList" runat="server">
    <asp:ListItem Value="Cereal1.gif" Selected="True">有益健康的谷物</asp:ListItem>
    <asp:ListItem Value="Cereal2.gif">玉米片谷类食品</asp:ListItem>
    <asp:ListItem Value="Cereal3.gif">U.F.O.S</asp:ListItem>
    <asp:ListItem Value="Cereal4.gif">Oatey O 的产品</asp:ListItem>
    <asp:ListItem Value="Cereal5.gif">打击</asp:ListItem>
    <asp:ListItem Value="Cereal6.gif">果味冰糕</asp:ListItem>
    </asp:DropDownList>
    <asp:Button id="btnOk" runat="server" Text="确定"></asp:Button></P>
    </FONT>
    </form>
    </body>
    </HTML>Public Class Exam3_6
        Inherits System.Web.UI.Page
        Protected WithEvents Image1 As System.Web.UI.WebControls.Image
        Protected WithEvents cboList As System.Web.UI.WebControls.DropDownList
        Protected WithEvents btnOk As System.Web.UI.WebControls.Button#Region " Web 窗体设计器生成的代码 "    '该调用是 Web 窗体设计器所必需的。
        <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()    End Sub    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
            'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
            '不要使用代码编辑器修改它。
            InitializeComponent()
        End Sub#End Region    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            '在此处放置初始化页的用户代码
            Image1.ImageUrl = "images/" & cboList.SelectedItem.Value
            Image1.AlternateText = cboList.SelectedItem.Text
        End Sub    Private Sub btnOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOk.Click
            Image1.ImageUrl = "images/" & cboList.SelectedItem.Value
            Image1.AlternateText = cboList.SelectedItem.Text
        End Sub
    End Class