Showing posts with label Web. Show all posts
Showing posts with label Web. Show all posts

Friday, June 24, 2011

Manipulating HTML Server Controls

    <%@ Page Language="VB" %>

    <script runat="server">
       Sub Click(Sender as Object, e as EventArgs)
          select case Sender.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"

          Sender.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. When the buttons above are clicked, the image
        will move around the text accordingly.<p> This example
        demonstrates the HtmlImage and HtmlInputButton controls.
        </div>

   </body></html>

Saving Values in the State Bag

    <%@ Page Language="VB" %>

    <script runat="server">
       Sub Page_Load(Sender as Object, e as EventArgs)
          if not Page.IsPostBack then
             ViewState("StartTime") = DateTime.Now
             lblMessage.Text = "The time is now: " & _
                ViewState("StartTime")
          end if
       end sub

       Sub Submit(obj as object, e as EventArgs)
          lblMessage.Text = "The time is now: " & _
             DateTime.Now & "<br>started at: " & _
             ViewState("StartTime")
       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">
          <asp:Button id="btSubmit" runat="server" Text="Submit"
             onClick="Submit" />
          <p>
          <asp:Label id="lblMessage" runat=server />
       </form>
    </body></html>

Checking the IsPostBack Property

    <%@ Page Language="C#" %>

    <script runat="server">
       void Page_Load(Object Sender, EventArgs e) {
          if (!Page.IsPostBack) {
             lblMessage.Text = "Hello world!!!!";
          }
       }

       void Submit(Object Sender, EventArgs e) {
          lblMessage2.Text = "Form posted";
       }
    </script>

    <html><body>
       <form runat="server">
          <asp:Button id="btSubmit" runat="server" Text="Submit"
             onClick="Submit" />
          <p>
          <asp:Label id="lblMessage" runat=server />
          <p>
          <asp:Label id="lblMessage2" runat=server />
       </form>
    </body></html>

Event Handler

1:    <%@ Page Language="VB" %>
2:
3:    <script runat="server">
4:       Sub Button1_Click(Sender as Object, e as EventArgs)
5:          Label1.Text="You clicked <b>" & Sender.Text & "</b>"
6:       end Sub
7:    </script>
8:
9:    <html><body>
10:       <font size="5">Belajar ASP itu mudah</font><hr><p>
12:
13:       <form runat="server">
14:          <asp:Button id=Button1 runat="server" Text="Button1"
15:             onClick="Button1_Click" />
16:          <p>
17:          <asp:Label id=Label1 runat=server />
18:       </form>
19:    </body></html>

Typical Web Forms Page

1:    <%@ Page Language="VB" %>
2:
3:    <script runat="server">
4:       Sub tbMessage_Change(Sender As Object, E As EventArgs)
5:          lblMessage.Text = "Hello " + tbMessage.Text
6:       End Sub
7:    </script>
8:
9:    <html><body>
10:       <font size="5">Belajar ASP itu gampang</font><hr><p>
12:       <% Response.Write("Our First Page<p>") %>
13:
14:       <form runat="server">
15:          Please enter your name:
16:          <asp:textbox id="tbMessage"
17:             OnTextChanged="tbMessage_Change"
18:             runat=server/>
19:          <asp:button id="btSubmit" Text="Submit"
20:             runat=server/><p>
21:          <asp:label id="lblMessage" font-size="20pt"
22:             runat=server/>
23:       </form>
24:    </body></html>