VisualBasic6の初歩的な質問です。public functionで取得した変数をprivate subに２つ以上スマートに持って帰ってくる方法が分かりません。ひとつであればa=FunctionName()で呼出元のaに代入されるところまでは分かるのですが、たとえば、functionで外部の設定ファイルを読み込み、それを呼出元ルーチンの変数aとbとcに代入したいということを考えています。global変数とか配列変数を使えばできそうなのですが、もっともスマートな方法はないのでしょうか。

urlはMSDNです。

まず一つ目はByRefで引数を渡す方法です。

Public Function Hoge(ByRef a As Long, ByRef b As Long, ByRef c As Long) As Long

a = 10

b = 25

c = -1

End Function

と言う関数があって

呼び出し元で

Dim a As Long, b As Long, c As Long

hoge a, b, c

Debug.Print a, b, c

とやってあげると、確かに値が帰ってきてるのがわかると思います。

あとは、ユーザー定義型を作ってそれを戻り値にするとかでしょうか。

ByRef つまり参照渡しで関数の引数として受け渡しを行ってはどうでしょうか

Private Sub SubA

Dim intA As Integer

Dim strB As String

Dim lngC As Long

intA = 0

strB = ””

lngC = Func(intA ,strB)

(中略)

End Sub

Public Function Func(ByRef intX As Integer, ByRef strY As String) As Long

intX = 100

strY = ”hatena”

Func = 65536

End Function

見たいな感じです。

SubAでのFuncの呼出し後には

intA = 100

strB = ”hatena”

lngC = 65536

が入ります。