Visual Basic Tips

プロシジャ・配列変数を引数に

配列の数が幾つか解らない変数をプロシジャに渡したい場合、引数は"変数（）"とします。配列数を知りたい場合はLBoundで配列の最小値を、UBoundで最大値を求めます。

Private Sub Form_Load()
　　Dim aryA(5) As String

　　aryA(0) = "配列０"
　　aryA(1) = "配列１"
　　aryA(2) = "配列２"
　　aryA(3) = "配列３"
　　aryA(4) = "配列４"
　　aryA(5) = "配列５"

　　Call ArrayTest(aryA)

End Sub

Sub ArrayTest(aryA() As String)
　　Dim i As Integer

　　'LBoundは配列の最小値を返却します。
　　'UBoundは配列の最大値を返却します。

　　For i = LBound(aryA) To UBound(aryA)
　　　　Debug.Print aryA(i)
　　Next
End Sub

DownLoad vbtips104.lzh 2KB (VB6.0)