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

但它不仅是一种反模式,它实际上很难维护,而且它会浪费我的代码

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

Answer 1

从项目菜单中,选择"添加模块",然后将您的功能移动到该模块中,保持原样Public.您应该能够从其他表单中注释掉其他函数,因为它现在可以调用此公共函数.