в 15:30, 26 мая 2010

2010-05-26T15:30:57Z

Admin: 1 версия

2010-05-26T12:00:06Z

1 версия

Новая страница

== 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<br />"
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 &"<br>")
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">
<div>
<asp:Label ID="output" runat="server"></asp:Label>
<br />
<br />
<asp:Button ID="Button1" runat="server" Text="Button" />
</div>
</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<br />")
End Sub
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
DisplayMessage("Welcome to my website<br />")
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>

← Предыдущая	Версия 15:30, 26 мая 2010
(нет различий)

ASP.NET Tutorial/Language Basics/subroutine - История изменений

в 15:30, 26 мая 2010

Admin: 1 версия