864
社区成员
发帖
与我相关
我的任务
分享如何获取DLL里数组的值
DLL里产生一个数组（Public），不是函数返回的哦。ASP里怎么调用数组里每个元素的值呢，用类似myobj.myarray(i)调用时，显示其不是一个集合，听说用Property Get可以解决，谁能给个例子啊
...全文
请发表友善的回复…
发表回复
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
相应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
- 打赏
- 举报
我也想知道啊？
aohan 2004-12-02
- 打赏
- 举报
帮顶一下
