这个得在你的vc的dll中做才行.由这个dll发出事件通知调用者.然后你才可以
知道数据来了

解决方案 »

  1.   

    生成一个新的ActiveControl,在UserControl1中加入以下代码:
     
    --------------------------------------------------------------
    '定义一个事件
    Event ReceiveData(sInput)
    '抛出一个事件,事件将由使用这个控件的程序负责接受                                     
    Private Sub Timer1_Timer()
        RaiseEvent ReceiveData(CStr(Now))
    End Sub
    --------------------------------------------------------------
    编译后用 regsvr32 XXX.ocx注册后即可使用.别忘了在第一次编译后,将工程文件的兼容属性改成二进制兼容.否则OCX重新编译后,OCX的CLASSID将与上次不一样,使用OCX的程序将不能装载该OCX
     
    使用控件的程序例子:
    Private Sub UserControl11_ReceiveData(sInput As Variant)
        Debug.Print sInput
    End Sub