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 |