Visual Basic Tips

プロシジャ・コントロール配列を引数に

いきなりプロシジャにコントロール配列を渡す事はできません。一度Control型の変数に格納する必要があります。
サンプルではコントロール配列のテキストボックスをプロシジャに渡しています。

Private Sub Form_Load()
　　Dim i As Integer
　　Dim ctl() As Control

　　ReDim ctl(Text1.Ubound)

　　For i = 0 To Text1().Ubound
　　　　Set ctl(i) = Text1(i)
　　Next

　　Call ControlArray(ctl)
End Sub

Sub ControlArray(ctl() As Control)
　　Dim i As Integer

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

DownLoad vbtips058.lzh 2KB (VB6.0)