右键单击工程管理器中的工程,在弹出的快捷菜单中选择‘添加’—>‘模块’,就增加了一个
‘公共对象模块’,你上面的模块为‘窗口模块’,将你在上面的‘窗口模块’中的代码:
Public Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End TypePublic Declare Function SetRect Lib "user32" (lpRect As RECT, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long剪切到‘窗口公共模块’中,错误即可消失

解决方案 »

  1.   

    上面的最后一句话应该是:剪切到‘公共对象模块’中,错误即可消失
    另外,通过‘主菜单—>工程—>添加模块’也可以添加一‘公共对象模块’
      

  2.   

    可是我就是在这样的“模块”(BAS)中啊?!
      

  3.   

    搞错了,不好意思,公共对象模块应该是库模块, 在同一个工程中是不可能实现你上面的
    操作的(即CVar操作)。你必须先新建立一个DLL工程,一个很简单的DLL工程就可以了。
    只要把
    Public Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
    End Type
    这段代码剪切到DLL工程(最好给工程取个有意义的名字),的类模块中,然后编译成DLL,
    然后移除DLL工程,在你上面的工程中引用该DLL工程即可。不过软件发布时必须将上面的
    DLL一同发布。
      

  4.   

    只要把这一块移动到公共模块(*.bas\\not *.frm)就可以了:
    Public Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
    End Type
      

  5.   

    所谓公共对象模块实际上是指Instancing属性为非Private的类模块,
    后面的步骤同Random