分少`但是结贴100%js调用ActiveX函数

Question

这个new 的时候已经调到模块Card中了，
先定位问题是哪方面出的
１、单步调式下ＶＢ的那个DLL看看可不可以走通
2、vb那个里面什么都不写，直接写return看看有没有调到，查看是否注册时的问题

Answer 1

我在另一个VB程序中添加了card.ocx控件
然后放一按钮测试了下
Private Sub Command1_Click()
MsgBox Card1.ReturnTxt()
End Sub
可以得到我在Card1中输的值说明可以访问到vb那个里面什么都不写，直接写return看看有没有调到，查看是否注册时的问题
-------------------------------------------------
Card1就是一个文本框
可以出发Text1_KeyPress事件说明注册也没问题
我帖Vb全部代码
'事件声明:
Event KeyPress(KeyAscii As Integer) 'MappingInfo=Text1,Text1,-1,KeyPressPublic Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
    MsgBox "扫描结果:" + Text1.Text
    Text1.SetFocus
    MsgBox ReturnTxt()
    End If
   
End Sub
Public Function ReturnTxt() As String
        Dim scannerText As String
        scannerText = Text1.Text
        ReturnTxt = scannerText
End Function