Public Function GetDePon(MSCommInput As MSComm, dpid As String, SqlConn As ADODB.Connection, Optional InputMode As InputModeConstants = comInputModeText) As String

解决方案 »

  1.   

    MSCommInput As MSComm,在function里面 MSCommInput.input一直为空
      

  2.   

    必须用byref。调用地址
    Public Function GetDePon(byref MSCommInput As MSComm, dpid As String, byref SqlConn As ADODB.Connection, Optional InputMode As InputModeConstants = comInputModeText) As String
      

  3.   

    函数定义没错,VB中函数的默认类型就是byref,关键是MSComminput对象现在有没有值可以让你取,是不是在oncomm事件里调用的。
      

  4.   

    可以确认的是有值。但是就是MSComm对象传不到这个function里面去
      

  5.   

    用object试试
    Public Function GetDePon(MSCommInput As object, dpid As String, SqlConn As ADODB.Connection, Optional InputMode As object = comInputModeText) As String
      

  6.   

    用WebBrowser做浏览器,如何解决网站弹出窗体?
    我在窗体上放了一个WebBrowser控件,就可以浏览网站了,但是网站有一些弹出的窗体,却使用了系统默认的浏览器,既使用的IE作为弹出窗体的浏览器了。
      

  7.   

    应该可以用OBJ的方式
    函数里面定义另一个MSCOMM控件dim funComm as MSCOMM
    set funComm = MSCommInput