Development ASP.Net

  1. Home
  2. ASP.Net
  3. Development
  4. Call function in code behind
<%@ Page 
    language=VB 
    debug=true 
    src="ProcsInCodeBehind.vb" 
    Inherits="clsProcsInCodeBehind" 
%>

Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)
    lblMessage1.Text = "Pi to three digits: " & RoundPI(3)
    lblMessage2.Text = "Circumference of a 4cm Radius Circle: " _
        & CircleCircumference(4)
    lblMessage3.Text = SystemInfo()
End Sub



Creating and Linking to a Code-Behind Files





    id="lblMessage1"
    runat="Server"
/>



    id="lblMessage2"
    runat="Server"
/>



    id="lblMessage3"
    runat="Server"
/>



<%--
Imports System
Public Class clsProcsInCodeBehind
    Inherits System.Web.UI.Page
    Public Function RoundPI(DecimalPlaces as Integer)
        RoundPI = Math.Round(Math.PI, DecimalPlaces)   
    End Function
    Public Function CircleCircumference(TheRadius as Double) _
        as Double
        CircleCircumference = 2 * TheRadius * Math.PI
    End Function
    Public Function SystemInfo()
        SystemInfo = "Machine Name: " & Server.MachineName _
            & "
Current Script Timeout: " _
            & Server.ScriptTimeOut & " seconds
Path to Page: " _
            & Server.MapPath("") & "
System Date/Time: " _
            & Date.Now()
    End Function
End Class
--%>