私は自分が使用しているシステムに慣れるために古いコードを調べていて、より適切に使用できると思われるコードを見つけました。
ここでは、いくつかのデータがコレクションに追加されます (約 150 個の文字列変数、いくつかは 2 つの変数 (変数名/変数値) を持ち、ほとんどは 1 つだけ (変数名) を持ちます)。モジュール レベルの文字列変数をコレクションのアイテムに設定し、index(variableName) を渡します。値があれば、VariableVALue をモジュール レベルの変数に設定します。
私が作業が必要だと感じているのは、コレクションに変数が渡され、変数に値がない場合、実行時エラーを引き起こす "" を返すため、"" を手動で追加する On Error GoTo Handler コードがあることです。コレクション。実行時に問題が発生することを知り、それをキャッチしてから解決するよりも、これを行うためのより良い方法があると思います。return "" が例外をスローしないようにする方法はありますか、それとも「コレクション」であるため、配列の使用もここで機能しますか?
視覚化に役立つ例を次に示します。
Public Function GetCollectionVariable(ByVal varName as string) as String
If collection1 Is Nothing Then
m_collection1 = New Collection
End If
On Error GoTo Handler
GetCollectionVariable = collection1.Item(VarName)
exit function
Handler:
collection1.add("", VarName)
GetCollectionVariable = ""
End FUnction
御時間ありがとうございます！！