
Crew .NET |
|
In het volgende scriptje wordt er een tekst op het scherm geschreven en daarna ga je naar de subroutine "bereken". Je geeft daarbij 2 variabelen mee. In de subroutine "bereke" wordt er een sommetje gemaakt en het resultaat wordt weggeschreven op het scherm. Dit is natuurlijk maar een simpel voorbeeldje, maar het toont aan hoe je een andere subroutine kan aanroepen.
<%@ Page Language="VB" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<script runat="server">
Protected Sub knop_geklikt(ByVal sender As Object, ByVal e As EventArgs) Handles knop_een.Click
Response.Write("U hebt op de knop geklikt, deze tekst werd daardoor gegenereerd<br />")
bereken(3, 4)
End Sub
Sub bereken(ByVal x As Integer, ByVal y As Integer)
Dim i As Integer = x + y
Response.Write("<br />" & i.ToString() & ", deze tekst werd door een andere Sub gegenereerd")
End Sub
</script>
<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
<title>.: titjes :.</title>
</head>
<body>
<form id="form1" runat="server">
<div>
<asp:Button ID="knop_een" runat="server" Text="Klik" />
</div>
</form>
</body>
</html>
<%@ Page Language="VB" %> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <script runat="server"> Protected Sub knop_geklikt(ByVal sender As Object, ByVal e As EventArgs) Handles knop_een.Click Response.Write("U hebt op de knop geklikt, deze tekst werd daardoor gegenereerd<br />") bereken(3, 4) End Sub Sub bereken(ByVal x As Integer, ByVal y As Integer) Dim i As Integer = x + y Response.Write("<br />" & i.ToString() & ", deze tekst werd door een andere Sub gegenereerd") End Sub </script> <html xmlns="http://www.w3.org/1999/xhtml" > <head runat="server"> <title>.: titjes :.</title> </head> <body> <form id="form1" runat="server"> <div> <asp:Button ID="knop_een" runat="server" Text="Klik" /> </div> </form> </body> </html>
|