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。您应该能够将其他函数的其他函数注释掉，因为它现在可以调用此公共函数。