如何获取DLL里数组的值

cneee_zero 2004-12-02 07:21:36

DLL里产生一个数组（Public），不是函数返回的哦。ASP里怎么调用数组里每个元素的值呢，用类似myobj.myarray(i)调用时，显示其不是一个集合，听说用Property Get可以解决，谁能给个例子啊

...全文

121 3 打赏收藏转发到动态举报

写回复

用AI写文章

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

masterlisq 2005-06-18

打赏
举报

我给你们个例子,例子里给出了三个属性,a, b是输入值,你可以从c得到a+b的值:
相应dll程序如下:
Option Explicit
Dim a1 As Integer
Dim b1 As Integer
Dim c1 As Integer

Public Property Get a() As Variant
a = a1
End Property

Public Property Let a(ByVal vNewValue As Variant)
a1 = vNewValue
End Property
Public Property Get b() As Variant
b = b1
End Property

Public Property Let b(ByVal vNewValue As Variant)
b1 = vNewValue
End Property
Public Property Get c() As Variant
c = c1
End Property

Public Property Let c(ByVal vNewValue As Variant)
c1 = vNewValue
End Property

Public Sub plus()
c = a + b
End Sub

相应asp程序如下:
<HTML>
<HEAD>
<TITLE> mydll </TITLE>
</HEAD>

<BODY>
<%
Dim objSum
Set objSum = Server.CreateObject("mydll.cal")
objSum.a = 10
objSum.b = 20
objSum.plus
response.write objsum.c
Set objSum = Nothing
%>
</BODY>
</HTML>

我赋值a=10 b=20,结果c=30

liuyh7788 2005-06-12