<%@ Page language="vb" src="Codebehind.vb"
Inherits="aspnetian.CodeBehind" %>
Code-behind demonstration
Enter your name to sign in:
Name:
<%--
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() & "
" & 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
--%>