谢谢高手了！请问，如何在javasciprt中调用vb开发的组件返回的数组

谢谢hanpoyangtitan(韩波洋)弹出的是： unknown
应该不是想要的结果吧。

解决方案 »

  1.   

    你试用客户端的vbscript调用看看?
    ------说错了莫怪。
      

  2.   

    谢谢：cloudgamer() 
    我试过了，不行~~和直接负值一样。
    谢谢：cpp2017(幕白兄)
    我也尝试着用vbscript，但也不行~~~
      

  3.   

    不懂。。
    new VBArray(arr).toArray();
    这个东西呢？
      

  4.   

    谢谢：muxrwc(王辰) 我试过了在javascript中new VBArray，总是提示缺少VBArray，我也不知道为什么。
      

  5.   

    <HEAD>
    <SCRIPT LANGUAGE="VBScript">
    <!--
    Function CreateVBArray()
       Dim i, j, k
       Dim a(2, 2)
       k = 1
       For i = 0 To 2
          For j = 0 To 2
             a(j, i) = k
             document.writeln(k)
             k = k + 1
          Next
       Next
       CreateVBArray = a
    End Function
    -->
    </SCRIPT><SCRIPT LANGUAGE="JScript">
    <!--
    function VBArrayTest(vbarray){
       var a = new VBArray(vbarray);
       var b = a.toArray();
       var i;
       for (i = 0; i < 9; i++) 
       {
          document.writeln(b[i]);
       }
    }
    -->
    </SCRIPT>
    </HEAD><BODY>
    <SCRIPT LANGUAGE="JScript">
    <!--
       VBArrayTest(CreateVBArray());
    -->
    </SCRIPT>
    </BODY>
      

  6.   

    谢谢：ttyp(@http://www.cnblogs.com/ttyp/) 你写的这个例子，只能在脚本中使用，我所调用的方法是vb 6开发的ActiveX中的方法，就不行了。
      

  7.   

    http://blog.csdn.net/online/archive/2004/08/04/60310.aspx
      

  8.   

    谢谢你的回复，我在看到你的http://blog.csdn.net/online/archive/2004/08/04/60310.aspx帖子后，觉得和我的例子差不多，但是有几点不同。
    第一，我使用的是asp.net与asp对于vb的dll所解析的是否一样。
    第二，我所使用的是ActiveX控件，不是dll，这点在调用方面是否一致。
    如果忽略以上两点，我按照你的例子修改了我的程序，但是提示
    Dim TheForm
    Set TheForm = Document.forms("form1")
    dim b
    b=TheForm.WebPrint.GetWebPrints()
    类型不匹配'b' 的错误多谢了~~
      

  9.   

    我知道是哪的问题了~~~
    在vb开发的控件中，所有的string数组，都要换成Variant，我的方法虽然返回的是Variant，但是方法中调用的方法返回的却是string数组。不过还有一点没有解决，就是在vbscript中可以调用，但是javascript中，我尝试了好几种方法都不能调用
      

  10.   

    将就着看, 这是我自己的方法...<%
    var conn='provider=microsoft.jet.oledb.4.0;persist security info=false; data source='+
    Server.MapPath("data/data.mdb"); var rs=new data();
       rs.cmd="'select * from 1_article_cat_all', conn, 1";

      rss=rs.select();
     // var oAr=new VBArray(rss.GetRows());
      var oAr=new VBArray(rss.GetRows(-1,1,new Array('classid','class','nclassid','nclass')));
      
      var ar=oAr.toArray();
      
      var nLen=ar.length/(oAr.ubound()+1); 
      
      for(var iLen=0; iLen<nLen; iLen++){
       for(var i=0, j=oAr.ubound(); i<=j; i++){
        oAr.getItem(i,iLen).write()
       }
       '<br/>'.write()
      }
      
    /*  for(var i=0, j=ar.length; i<j; i++){
       ar[i].write('<br/>')
      }*/
      rs=null;
    %>