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ます。このパブリック関数を呼び出すことができるので、他のフォームから他の関数​​をコメントアウトできるはずです。