● 可変引数を使ってみる? ●

ParamArray を使用すれば引数の数を自由自在に変えて渡すことが出来る。Variant 型の配列と同様に、数字・文字列・オブジェクトを渡すことが出来る。但し、ParamArray は引数リストの最後で使用しなければならない。

バグの元になりかねないので、使わないことに越したことは無い。

Private Sub Form_Load()
    Call ParamArrayProc(Me.hWnd, 4, 6, 1, 3, 2, 5)
    Call ParamArrayProc(Me.hWnd, "かきくけこ", "あいうえお", "ばびぶべぼ")
    Call ParamArrayProc(Me.hWnd, True, False, "正常", "異常")
End Sub

Private Sub ParamArrayProc(ByVal hWnd As Long, ParamArray nArray())
    Dim i As Integer
    For i = 0 To UBound(nArray)
        Debug.Print nArray(i)
    Next i
End Sub

戻る