Language Basics ASP.Net

  1. Home
  2. ASP.Net
  3. Language Basics
  4. Page level procedure (VB net)
<%@ Page Language=VB Debug=true %>

Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)
    If IsPostBack Then
        DisplayInstructions("Final")
    Else
        DisplayInstructions("Initial")
    End If    
End Sub
Sub SubmitBtn_Click(Sender As Object, E As EventArgs)
    lblResult.Text = "Result: " & AddNums( _
        txtNumber1.Text, txtNumber2.Text)
End Sub
Sub DisplayInstructions(Mode as String)
    If Mode = "Initial" Then
      lblInstructions.Text = "Enter two numbers that " _
          & "you want to add."
    Else
      lblInstructions.Text = "The results are " _
          & "below."
    End If
End Sub
Function AddNums(Num1 as Single, Num2 as Single) as Single
   AddNums = Num1 + Num2
End Function



Creating Your Own Procedures



    id="lblInstructions" 
    runat="server"
/>



Enter a number:

    id="txtNumber1" 
    runat=server 
/>



Enter a second number:

    id="txtNumber2" 
    runat=server 
/>



    id="butOK"
    text="Add"
    onclick="SubmitBtn_Click" 
    runat="server"
/>



    id="lblResult" 
    runat="server"
/>