Visual Basic Tips

プロシジャ・配列のメニューを引数に

配列になっているメニューをプロシジャの引数とするには、Control配列を引数にする時と同じように一度Menu型の変数に格納する必要があります。



Private Sub Form_Load()
　　Dim arymnu() As Menu
　　Dim i As Integer

　　ReDim arymnu(mnu1().UBound)

　　For i = 0 To mnu1().UBound
　　　　Set arymnu(i) = mnu1(i)
　　Next

　　Call mnuArray(arymnu)
End Sub

Sub mnuArray(arymnu() As Menu)
　　Dim i As Integer

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


DownLoad vbtips107.lzh 1KB (VB6.0)