本例实际会建立两个项目:一个用来建立业务对象,一个用来调用该业务对象。
1、新建类库 ClassLibrary1
类文件 Class1.vb
2、添加方法 Square,用来返回两个参数的平方和。
Public Class Class1
Function Square(ByVal a As Integer, ByVal b As Integer)
Dim c As Integer
c = a ^ 2 + b ^ 2
Return c
End Function
End Class
3、生成业务对象 ClassLibrary1.dll
4、应用程序代码
<%@ Page Language="vb" AutoEventWireup="false" Codebehind="WebForm1.aspx.vb" Inherits="_20060326_1.WebForm1"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<title>WebForm1</title>
<meta name="GENERATOR" content="Microsoft Visual Studio .NET 7.1">
<meta name="CODE_LANGUAGE" content="Visual Basic .NET 7.1">
<meta name="vs_defaultClientScript" content="JavaScript">
<meta name="vs_targetSchema" content="http://schemas.microsoft.com/intellisense/ie5">
</HEAD>
<body MS_POSITIONING="GridLayout">
<form id="Form1" method="post" runat="server">
<asp:TextBox id="intA" style="Z-INDEX: 101; LEFT: 160px; POSITION: absolute; TOP: 80px" runat="server"></asp:TextBox>
<asp:Button id="Button1" style="Z-INDEX: 106; LEFT: 160px; POSITION: absolute; TOP: 192px" runat="server"
Text="确定" Width="56px"></asp:Button>
<asp:Label id="Label2" style="Z-INDEX: 105; LEFT: 64px; POSITION: absolute; TOP: 128px" runat="server">第二个数:</asp:Label>
<asp:Label id="Label1" style="Z-INDEX: 104; LEFT: 64px; POSITION: absolute; TOP: 80px" runat="server">第一个数:</asp:Label>
<asp:TextBox id="intB" style="Z-INDEX: 102; LEFT: 160px; POSITION: absolute; TOP: 128px" runat="server"></asp:TextBox>
<asp:Label id="intResult" style="Z-INDEX: 103; LEFT: 96px; POSITION: absolute; TOP: 320px"
runat="server">结果:</asp:Label>
</form>
</body>
</HTML>
5、添加引用(自动部署 bin/ClassLibrary1.dll)
6、编写程序代码
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim myMath As New ClassLibrary1.Class1
intResult.Text = myMath.Square(CInt(intA.Text), CInt(intB.Text))
End Sub