ASP.NET Tutorial/Language Basics/subroutine

Материал из .Net Framework эксперт
Перейти к: навигация, поиск

asp:Button action event calls a subroutine

   <source lang="csharp">

<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="nfexPage" %> <html xmlns="http://www.w3.org/1999/xhtml" > <head runat="server"> 

   <title>Untitled Page</title>

</head> <body> 

   <form id="form1" runat="server">
   <asp:Label ID="output" runat="server"></asp:Label>
   <asp:Button ID="Button1" runat="server" Text="Button" />
   </form>

</body> </html>

File: Default.aspx.vb

Partial Class nfexPage 

   Inherits System.Web.UI.Page
   Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
       output.Text = String.Empty
       DisplayMessage()
   End Sub
   Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
       DisplayMessage()
   End Sub
   Private Sub DisplayMessage()
       Dim i As Integer
       For i = 1 To 4
           output.Text &= "Welcome to my website
"
       Next i
   End Sub

End Class</source>


Define and call sub module (function) in asp.net page (VB)

   <source lang="csharp">

<%@ Page Language="VB" %> <script runat="server"> 

  sub Page_Load(Sender as object,e as EventArgs)
     MultiplyNumbers(8,9)
     MultiplyNumbers(4,12)
     MultiplyNumbers(38,23)
  end sub
  sub MultiplyNumbers(intA as integer,intB as integer)
     Response.Write(intA *intB &"
")
  end sub

</script> <html><body> </body></html></source>


Pass parameters to subroutine (VB.net)

   <source lang="csharp">

<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="Default" %> <html xmlns="http://www.w3.org/1999/xhtml" > <head runat="server"> 

   <title>Untitled Page</title>

</head> <body> 

   <form id="form1" runat="server">

       <asp:Label ID="output" runat="server"></asp:Label>
       

       

       <asp:Button ID="Button1" runat="server" Text="Button" />

   </form>

</body> </html> File: Default.aspx.vb Partial Class Default 

   Inherits System.Web.UI.Page
   Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
       output.Text = String.Empty
       DisplayMessage("Welcome to my website
")
   End Sub
   Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
       DisplayMessage("Welcome to my website
")
   End Sub
   Private Sub DisplayMessage(ByVal message As String)
       Dim i As Integer
       For i = 1 To 4
           output.Text &= message
       Next i
   End Sub

End Class</source>

Источник — «http://nfex.ru/index.php?title=ASP.NET_Tutorial/Language_Basics/subroutine&oldid=3229»