<%@ Page language="vb" src="Codebehind.vb"
Inherits="aspnetian.CodeBehind" %>
<html>
<head></head>
<body>
<form runat="server">
<h1>Code-behind demonstration</h1>
<p>
<asp:label id="message" runat="server">
Enter your name to sign in:
</asp:label>
</p>
<p>
<table id="SignInTable" cellpadding="5"
cellspacing="1" bgcolor="Silver" runat="server">
<tr>
<td align="right">Name:</td>
<td align="left">
<asp:textbox id="SignInBox" width="200" runat="server"/>
</td>
</tr>
<tr>
<td colspan="2" align="middle">
<asp:button id="SignInButton" runat="server" text="Sign in"/>
</td>
</tr>
</table>
</p>
</form>
</body>
</html>
<%--
Imports System
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.HtmlControls
Namespace aspnetian
Public Class CodeBehind : Inherits System.Web.UI.Page
Protected Message As Label
Protected SignInTable As HtmlTable
Protected WithEvents SignInButton As Button
Protected SignInBox As TextBox
Protected Sub Page_Load(sender As Object, e As EventArgs)
If Page.IsPostBack Then
Message.Text = "Time is: " & DateTime.Now() & "<br>" & Message.Text
End If
End Sub
Protected Sub SignInButton_Click(obj As Object, e As EventArgs ) Handles SignInButton.Click
Message.Text = "Congratulations, " & SignInBox.Text & _
"!!! You have successfully signed in."
SignInTable.Visible = false
End Sub
End Class
End Namespace
--%>
|