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

这是我在BAS模块中对该Sub的类模块CLS调用

LogMyApp ( "FunctionBlaBla" , "blablabla" )

任何帮助真的很感激!非常感谢!

Answer 1

简单的修复,删除parens,因为你没有调用函数;

LogMyApp "FunctionBlaBla" , "blablabla"

(或者纯粹是Call关键字的视觉事物前缀; call LogMyApp(...))