listing0506.aspx

来自「asp入门到精通的源代码」· ASPX 代码 · 共 44 行

ASPX
44
字号
<%@ Page Language="VB" %>

<script runat="server">
   Sub Click(obj as object, e as EventArgs)
      select case obj.Value
         case "Left"
            word_image.align = "left"
         case "Right"
            word_image.align = "right"
         case "Center"
            word_image.align = "center"
      end select
		
      Left.Style("Border-Style") = "notset"
      Right.Style("Border-Style") = "notset"
      Center.Style("Border-Style") = "notset"
		
      obj.Style("Border-Style") = "inset"
    end Sub
</script>

<html><body>
    <font size="5">Sam's Teach Yourself ASP.NET in 
    21 Days: Day 5 </font><hr><p>

    <form runat="server">
       <input type="Button" id="Left" runat="server" 
          Value="Left" OnServerClick="Click" />
       <input type="Button" id="Center" runat="server" 
          Value="Center" OnServerClick="Click" />
       <input type="Button" id="Right" runat="server" 
          Value="Right" OnServerClick="Click" />
    </form>
 
    <img src="word.gif" id="word_image" runat="server">
    <div id="Label1" runat="server">This is an example 
    of text. By pressing the buttons above, the image 
    will move around the text accordingly.<p> This example 
    demonstrates the HtmlImage and HtmlInputButton controls.
    </div>
 
 </BODY>
 </HTML>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?