VB调用UEWasp.dll问题

uesoft

在 2010-10-16 10:57:55，"志愿者招募" <7246269@163.com> 写道：
您好，我下载了贵公司的WaterPro7.0软件后，发现这是一款相当出色的软件。
在我自己的程序中，想利用Visual Basic调用UEwasp.dll文件进行计算。
不过发现了两个问题不能解决，烦请贵公司予以指点：
1、VB中调用的公式是IFC67所计算出来的结果（C++等都可以选择公式，而只有VB仅仅给出了67的声明没有97的声明），能不能用VB调用IF97的公式呢？
2、在函数声明中：
比如Public Declare Sub PT2H Lib "UEwasp.dll" (ByVal P As Double, ByVal T As Double, ByRef H As Double, ByRef Range As Long)
其中的range参数的意义是什么？我发现赋值整数对结果并没有影响。
谢谢，祝贵公司蒸蒸日上！

回复：
您好。就您的问题逐条回答如下：
1，VB与VC使用同样的动态库函数获得结果。VB调用97公式之前，先要按如下方法指向IF97公式。
Dim nIFC as long
nIFC=97
SETSTD_WASP(nIFC)
详细参见http://www.uesoft.com/forum.php?mod=viewthread&tid=1070&extra=page%3D1。
2，Range是传出参数，是不需要赋值的。详细参见http://www.uesoft.com/forum.php?mod=viewthread&tid=1058&extra=page%3D2。