您所在位置：主题：vbscript 调用ocx 有返回值怎么办？
ss111
[专家分：0] 发布于 2007-06-19 16:54:00
C里的函数声明是: SHORT HPSGetCardID(SHORT iType, CHAR* iData, CHAR* oData, SHORT* oDatLen);
<html>
<head>
<meta http-equiv="Content-Language" content="en-us">
</SCRIPT>
</head>
<body>
<p><font size="7"> HPSrdX 动态控件测试：</font></p>
<p>
<OBJECT
id='HPSrdx'
classid="clsid:A643E5DD-20DA-4E10-AAD5-0401D9A6FF1E"
codebase="./HPSrdx.cab#version=1,0,0,0">
</OBJECT>
<br />
<FORM NAME="Form1">
<INPUT TYPE="Button" NAME="Button1" VALUE="vbscript单击"><INPUT TYPE="Button" NAME="Button2" VALUE="javascript单击" onclick="call()">
<SCRIPT FOR="Button1" EVENT="onClick" LANGUAGE="VBScript">
MsgBox "按钮被单击！"
</SCRIPT>
</FORM>
</p>
</body>
</html>
<script for="button1" event="onClick" language="VBScript">
a=Msgbox("明天去春游吗？",vbYesNo,"校长问大家")
if a =6 then
idata="12345abcdef67890abcdef"
result=HPSrdx.HPSGetCardID(1,idata,id,idlen)
MsgBox result
else
Dim idt,strCardID
dim CardIDLen
CardIDLen=7
dim boo
boo=2
idt ="11223344556677889900"
dim por
por=1
boo= HPSrdx.HPSGetCardID(por,idt,strCardID,CardIDLen)
msgbox boo
end if
</script>
<input type="button" name="button1" value="单击看校长提出什么问题">
</html>
我点了运行却没有反应。请各位大大帮帮忙
<html>
<head>
<meta http-equiv="Content-Language" content="en-us">
</SCRIPT>
</head>
<body>
<p><font size="7"> HPSrdX 动态控件测试：</font></p>
<p>
<OBJECT
id='HPSrdx'
classid="clsid:A643E5DD-20DA-4E10-AAD5-0401D9A6FF1E"
codebase="./HPSrdx.cab#version=1,0,0,0">
</OBJECT>
<br />
<FORM NAME="Form1">
<INPUT TYPE="Button" NAME="Button1" VALUE="vbscript单击"><INPUT TYPE="Button" NAME="Button2" VALUE="javascript单击" onclick="call()">
<SCRIPT FOR="Button1" EVENT="onClick" LANGUAGE="VBScript">
MsgBox "按钮被单击！"
</SCRIPT>
</FORM>
</p>
</body>
</html>
<script for="button1" event="onClick" language="VBScript">
a=Msgbox("明天去春游吗？",vbYesNo,"校长问大家")
if a =6 then
idata="12345abcdef67890abcdef"
result=HPSrdx.HPSGetCardID(1,idata,id,idlen)
MsgBox result
else
Dim idt,strCardID
dim CardIDLen
CardIDLen=7
dim boo
boo=2
idt ="11223344556677889900"
dim por
por=1
boo= HPSrdx.HPSGetCardID(por,idt,strCardID,CardIDLen)
msgbox boo
end if
</script>
<input type="button" name="button1" value="单击看校长提出什么问题">
</html>
我点了运行却没有反应。请各位大大帮帮忙