Lab 2 Code

Default.aspx

Code

<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" %> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head runat="server"> <title>Page Title.....</title> <style type="text/css"> #Text1 { width: 582px; height: 107px; } </style>

Default.aspx.vb

Code

Imports System.Web.UI Partial Class _Default Inherits Page Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.ServerClick 'Text1.Value &= "123" msg.InnerHtml &= "<br/>123" End Sub Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load 'Text1.Value &= "Page Load" msg.InnerHtml &= "<br/>Page Load" End Sub Protected Sub Page_Unload(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Unload 'Text1.Value &= "<br>Page Un Load" msg.InnerHtml &= "<br/>Page Un Load" End Sub Protected Sub Page_Init(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Init 'Text1.Value &= "<br>Page Init" 'If Me.IsPostBack = False Then 'Text1.Value = "It is confirmed that page initialization has occurred during FIRST REQUEST" 'Else 'Text1.Value = "It is confirmed that page initialization has occurred during POSTBACK" 'End If msg.InnerHtml &= "<br/>Page Init" End Sub Protected Sub Page_PreRender(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.PreRender 'Text1.Value &= "<br/>Page Pre Render" If Me.IsPostBack = False Then Text1.Value = "It is confirmed that page Pre Render has occurred during FIRST REQUEST" Else Text1.Value = "It is confirmed that page Pre Render has occurred during POSTBACK" End If msg.InnerHtml &= "<br/>Page Pre Render" End Sub End Class
Web hosting by Somee.com