VBS调用ocx得到出口参数问题,急急急```谢谢

seanlive 2008-09-04 09:31:51

各位高手,现在我有一个VB的OCX里面有这样一个方法
Function GetCurrentInvNumber(sCurrInvNo$, sCurrInvCode$, sStartNo$, sEndNo$) As Long

sCurrInvNo$, sCurrInvCode$, sStartNo$, sEndNo$是出口参数;我现在需要调用这个方法,VBS源码如下:

<OBJECT id=webocx codeBase=controls/Fiscal.cab##version=1,0,0,0 height=32
width=32 classid=clsid:6315E02A-4C14-474F-A4E1-817048ED675A name=webocx><PARAM NAME="_Version" VALUE="1,0,0,0"></OBJECT>

<script type="text/vbscript">
function test()
dim rlt
dim rltact
dim webocx
set webocx= CreateObject("FiscalOcx.TFiscal")

Dim ScurrInvNo,ScurrInvCode,SStartNo,SEndNo
ScurrInvNo=""
ScurrInvCode=""
SStartNo=""
SEndNo=""
rlt = webocx.CommOpen("1","57600","60")

if rlt=false then
msgbox "设备初始化失败"
end if

rltact=webocx.GetCurrentInvNumber(ScurrInvNo,ScurrInvCode,SStartNo,SEndNo)
if rltact=0 then
msgbox ScurrInvNo
end if
end function
</SCRIPT>

rltact=webocx.GetCurrentInvNumber(ScurrInvNo,ScurrInvCode,SStartNo,SEndNo
走到这句报错``类型不匹配

下面的例子是能成功调用到的,但是代码是VB代码:

Private Sub btnGetCurrentInvNumber_Click()
Dim sinvnumber$, iret%, sCurrInvCode$, sStartNo$, sEndNo$
MsgBox sinvnumber
iret = TFiscal1.GetCurrentInvNumber(sinvnumber, sCurrInvCode, sStartNo, sEndNo)
If iret = 0 Then
MsgBox sinvnumber
Else
MsgBox Hex(iret)
End If
End Sub

...全文