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