タイトル : 動的多次元配列のフォーム間引き渡しが可能 投稿日 : 2015/06/16(Tue) 15:18 投稿者 : がく
はじめまして。 動的多次元配列をフォーム間で引き渡したいことが よくあります。 ネットで検索をかけるとやはりそのような質問を見かけるので 需要はまぁまぁありそうですね。 何か方法は無いかと考えていた所、一つの方法を発見したので参考にしてみてください。 "連想配列による受け渡し" 以下の内容をフォームのプロシジャに記述します。 form1 Public hNumber as Scripting.Dictionary Private sub Form_Load() Private A() as Integer Redim A(2,2) '値を適当に入れてください Set hNumber=New.Scripting.Dictionary hNumber("")=A() End Sub form2 Private sub Form_Load() Dim Item as variant Dim i as Integer Dim j as Integer For Each Item In form1.hNumber.Items For i=0 to 2 For j=0 to 2 Debug.Print Item(i,j) Next Next Next End Sub これは、連想配列を入れ物として他のフォームに渡す考え方ですが hNumber.Count=1 であることに注意してください。 そして、そのItemが配列として存在します。 ですから上の記述で値を渡すことが可能となります。 |