使用业务对象

来源：互联网发布：怎么还原数据库编辑：程序博客网时间：2024/04/30 16:57

本例实际会建立两个项目：一个用来建立业务对象，一个用来调用该业务对象。

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