📄 0039.htm
字号:
<html>
<head>
<title>新时代软件教程:操作系统 主页制作 服务器 设计软件 网络技术 编程语言 文字编辑</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style>
<!--
body, table {font-size: 9pt; font-family: 宋体}
a {text-decoration:none}
a:hover {color: red;text-decoration:underline}
.1 {background-color: rgb(245,245,245)}
-->
</style>
</head>
<p align="center"><script src="../../1.js"></script></a>
<p align="center"><big><strong>十八、创建 ActiveX 财务组件</strong></big></p>
<pre>
组件将包含一组相关的方法（函数），用来提供脚本语言所不具有的功能。由于
VBScript 不提供财务函数，所以您必须通过自己的 Finance 服务器组件来提供
对 Visual Basic 财务函数的使用能力。该服务器组件能提供所有的 Visual Ba
sic 财务函数，包括 DDB 函数（双倍余额递减法）、FV 函数（未来值）、IPmt
函数（支付利息）、IRR 函数（内部回报率）以及其他函数。不过，在本教程中
，您将只使用 FV 函数，基于固定利率及等额定期支付方式，返回一笔年金。
启动 Visual Basic
单击“开始”按钮，指向“程序”，然后指向“Microsoft Visual Basic 5.0”
单击子菜单中的“Visual Basic 5.0”，运行编程环境。
开始并命名一个工程
在“New Project”对话框中，双击“ActiveX DLL”。
在“Project”菜单上，单击“Project1 Properties”。
在“General”属性页的“Project Name” 框中，键入“MS”。
选择“Unattended Execution”。
注意 选择该选项表明这个工程运行时不需要用户交互，并且将不具有用户交互的
基础。
单击“OK”。
现在工程被命名为“MS”。以后，您将从 ASP 脚本中以 MS.Finance 的形式引用
Finance 服务器组件。
按下 F4 键打开类模块的“Properties”窗口，双击“Name”属性并键入“Func
tion”，然后按 Enter。
双击“Instancing”。
单击箭头，然后选择“5 - MultiUse”。
进一步学习 Visual Basic 财务函数
Visual Basic 的帮助系统描述了可以使用的财务函数。
单击“Help”。
选择“Microsoft Visual Basic Help Topics”。
选择“Index”选项卡，然后键入“financial functions”作为查找的文字。
双击“financial functions”索引条。
单击“FV Function”，学习该函数。
学习完财务函数后，关闭“Visual Basic Help”对话框。
将 CalcFV 函数添加到 Finance 类
Finance 服务器组件需要一些代码。这些代码让使用您组件的语言可以调用 Vis
ual Basic 内建的未来值函数。
将下列行复制并粘贴到 Finance 类的代码窗口中：
Public Function CalcFV(rate, nper, pmt, Optional pv, Optional whendue)
CalcFV = FV(rate, nper, pmt, pv, whendue)
End Function
添加组件的入口点
所有服务器组件都需要一个入口（起始）点。这是当对象第一次可用于一种语言
时，将被调用的代码。在 VBScript 中，当您使用 Server.CreateObject 时，将
创建对象的一个实例。当执行 Server.CreateObject 语句时，（由 Visual Bas
ic 创建的）服务器组件上的 Sub Main 过程将被调用。
当您的财务组件被调用时，它不需要任何特殊代码来初始化自身。因此，需要提
供一个空的（没有 Visual Basic 语句的）Sub Main 过程。
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -