VB6如何使函数在我的所有表单上全局工作？

Question

我无法相信我找不到让我的功能全局工作的方法......目前我在所有3种形式的顶部都有相同的功能：

Public Function HTMLEncode(p_strText As String) As String
Dim strTemp As String
    strTemp = p_strText
    strTemp = Replace(strTemp, "ó", "ó")
    '... around 30-40 lines more like these ...
    strTemp = Replace(strTemp, "ÿ", "ÿ")
  HTMLEncode = strTemp
End Function

但它不仅仅是anti-pattern，它很难维护，而且我的代码大量垃圾邮件

我通常不用VB编程，所以我为新手问题道歉。但我已经搜索了几个小时，因为这个我不能再失去任何毛发或小时数。

Answer 1

从“项目”菜单中选择“添加模块”，然后将您的功能移动到该模块中，并将其保留为Public。您应该可以从其他表单中注释掉其他函数，因为它现在可以调用此公共函数。