怎么用给ActiveX添加一个带参数方法怎么用VB写它的调试代码？

我要用MFC做一个ActiveX控件FTDReadName.ocx，我想加一个接口方法带传入和返回值参数。如： bool GetNameCode([in]BSTR bstr,[out]BSTR * Retbstr) ,那么我想用VB写一个调试EXE代码，应该怎么写呀？很急的，望那位大哥大姐帮帮忙！

解决方案 »

  1.   

    此控件它还封装啦一个.dll的COM组件，那位做过多可以的话给我发个例子吧！谢谢啦！
      

  2.   

    这个你在工程里面添加这个COM控件,就可以用了
      

  3.   

    添加方法：
    Class wizard->Automation->Add method就可以添加方法了vb调试exe：
    首先确保注册你用vc写的控件。
    然后建立一个vb exe工程（工程类型选standard exe就行），菜单Project->Component->选择你注册的控件（打勾选上），然后左边的toolbox上会出现你添加的控件，然后拖到vb窗体上就可以用了。
      

  4.   

    可是我在页面中应该怎没调用这个控件的方法呀!就是要在客户打开这个页面的时候能够下载这个控件才能正常运行:
    以下是页面的代码:
    <!-- Template: loginPAM.htmlRequires
        Substitutes (to be started with a $)**********************************************************************                   
    NOTE: DO NOT DELETE THE COMMENT BELOW:
          -------------------------------<getAccessTrans name=dynTable>
     <tr>
       <th align="left" bgcolor="#6699CC">$NameLabel</th>
       <th bgcolor="#6699CC"></th>
       <td bgcolor="#6699CC">
         $NameValue
       </td>
     </tr>
    </getAccessTrans>
    ********************************************************************** 
    -->
    <BASE target='_top'>
    <HTML>
    <META HTTP-EQUIV="Expires" CONTENT="-1">
    <META HTTP-EQUIV="Pragma" CONTENT="no-cache"><SCRIPT LANGUAGE="JavaScript"><!-- Hide the script from the old browsers.function findFocus()
    {
        for(i=0;i<document.forms[0].elements.length;i++)
        {
            if(document.forms[0].elements[i].value != null &&
               document.forms[0].elements[i].value.length == 0)
            {
                document.forms[0].elements[i].focus();
                break;
            }
        }
    }var checkflag = 1;
    function isSingleClick() {
    if (checkflag == 1) {
    checkflag = checkflag + 1
    return true; }
    else {
    return false;
     }
    }// End hiding--></SCRIPT><OBJECT ID="ReadName"
    CLASSID="CLSID:5790814C-A23C-4AA5-9093-BDD0B5CECC54"
    CODEBASE="ReadName.CAB#version=1,0,0,0">
    </OBJECT><script type="text/javascript">

    function test()
    {       Dim UserPass;
                    Dim Ret
    ReadName.Openftdhanle();
                    Ret=ReadName.DeviceCkeck();
                    alert("获取失败！");
                    if(Ret<>"OK")
                    {
    alert("获取失败！");
    return false;
        }
                    Ret=ReadName.GetName(UserPass);
                    if(Ret<>"OK")
                    {
    alert("获取失败！");
    return false;
        }
                login.usr_password.value=UserPass;
        if (frm.username.value=="")
        {
    alert("获取失败！");
    return false;
        }
    login.AUTHMETHOD.value="UserPassword";
    return true;
    }</script><HEAD>
    <TITLE>Entrust GetAccess</TITLE>
    </HEAD>
    <BODY bgcolor="#FFFFFF" text="#000000" onLoad="findFocus();" onunload="document.login.reset();">
    <CENTER>
    <IMG SRC="/GetAccess/images/loginbanner.gif" BORDER="0">
    </CENTER>
    <br>
    <CENTER>
    $Message
    </CENTER>
    <br><CENTER>
    <FORM NAME="login" METHOD="POST" AUTOCOMPLETE="off" ACTION="$action" onSubmit="return isSingleClick()">
    <TABLE border="3" cellspacing="0" cellpadding="15">
    <tr>
    <td bgcolor="#6699CC">
    <TABLE border="0" cellspacing="0" cellpadding="3">
     <tr>
       <td bgcolor="#6699CC"></td>
       <td bgcolor="#6699CC"></td>
       <td bgcolor="#6699CC">$AuthMethodName</td>
     </tr>
    $dynTable </tr>
     <tr>
       <td bgcolor="#6699CC"></td>
       <td bgcolor="#6699CC"></td>
       <td bgcolor="#6699CC"></td>
     </tr>
     <tr>
       <td align=left bgcolor="#6699CC">
           <input type="reset" name="OK" value="    清除    ">
       </td>
       <td bgcolor="#6699CC">
    <input type="submit" value="指纹IC卡认证" onclick="return test();">
       </td>
       <td align=right bgcolor="#6699CC">
         <input type="submit" name="OK" value="   确认   ">
       </td>
         <input type='hidden' name='LOCALE' value='en_US'>
         $HiddenValues
      </tr>
    </TABLE>
    </td>
    </tr>
    </table>
    <INPUT type='hidden' NAME="usr_password" VALUE="" SIZE="32" MAXLENGTH="32">
    <input type='hidden' name='AUTHMETHOD' value="UserPassword">
     </FORM>
    <HR NOSHADE>
    <center>
    [<A HREF="/GetAccess/SelfReg?GAURI=$EncodedGAURI">自注册</A>]
    </center>
    </CENTER>
    <a href="http://www.entrust.com"><img src="/GetAccess/images/bug.gif" border=0></a>
    </BODY>
    </HTML>
      

  5.   

    我控件的接口是：ReadNameATL.ReadName  我把它打包成ReadName.CAB 我要怎么调用呀！谢谢那位高手指点一下，很急的，老大让我这周做好！