dll - VB6.0 从类模块 CLS 调用 BAS 模块中编写的 Sub 不起作用

Question

我正在从以前编写的代码开始编写 VB6.0 项目(带有 COM+ 的 DLL)。我有一个“主要”类模块 CLS 文件，其中包含“主要”功能和流程等。我还有一个“副”模块 BAS，我将所有函数/子例程保存在我的“主”类模块中用作工具。

我已经编写了一个非常非常简单的日志系统(因为我对 App.LogEvent("blablabla") 感到非常不自在)但是我无法编译 DLL。该消息将我指向 CLS 调用，我认为问题与应返回值的 Sub 有关，但我不想从该 Sub 返回任何值!我是 VB6.0 的新手，改进现有的源代码非常困难。

这是我的模块 BAS

Public Sub LogMyApp(ByVal sFunctionName As String, ByVal sLogEntry As String)

    Dim sLogPath As String
    sLogPath = "C:\Temp\MyLog.txt"

    Dim fn As Integer
    fn = FreeFile

    Open sLogPath For Append As #fn
    Write #fn, Now & "|" & sFunctionName & "|" & sLogEntry
    Close #fn

End Sub

这是我的类模块 CLS 调用 BAS 模块中的那个 Sub

LogMyApp ( "FunctionBlaBla" , "blablabla" )

非常感谢任何帮助!非常感谢!

Answer 1

简单修复，删除括号，因为您没有调用函数；

LogMyApp "FunctionBlaBla" , "blablabla"

(或者作为带有 Call 关键字的纯粹视觉事物前缀；call LogMyApp(...))