<%@ 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>Web Form VB</title>
    <meta name="GENERATOR" content="VS 2010" />
    <meta name="Code_Language" content="VB.NET" />
    <meta name="vs_DefaultClientscript" content="Java Script" />
    <meta name="vs_targetSchema" content="http://schemas.microsoft.com/intellisense/ie8" />
</head>
<body>
    <form id="form1" runat="server">
        <p>What Is Your Name?<br /><br />
        <asp:TextBox ID="TextBox1" runat="server"></asp:TextBox><br /><br />
        <asp:Button ID="Button1" runat="server" Text="Submit" />
        </p>
        <p>
        <asp:Label ID="Label1" runat="server"></asp:Label>   
        </p>
    </form>
</body>
</html>

Code Behind:

Partial Class _Default
    Inherits System.Web.UI.Page

#Region " Web Form Designer Generated Code"

    ' This call is required by the form Designer.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub

    'Protected WithEvents TextBox1 As System.Web.UI.WebControls.TextBox
    'Protected WithEvents Button1 As System.Web.UI.WebControls.Button
    'Protected WithEvents Label1 As System.Web.UI.WebControls.Label

    'NOTE: The following placeholder declaration is required by the web form designer.
    'Do not delete or move it

    Private designerPlaceholderDeclaration As System.Object

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: This method is requored by the web form designer.
        'Do not modify it using the code edit.
        InitializeComponent()
    End Sub

#End Region

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        'Put user code to initialize the page here.
    End Sub

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Label1.Text = "Hello " & TextBox1.Text
    End Sub
End Class


Last edited Sep 17, 2010 at 8:06 AM by johnnykobeis, version 1

Comments

No comments yet.