tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板 [ツリー表示へ]   [Home]
一括表示(VB6.0)
タイトル動的多次元配列のフォーム間引き渡しが可能
記事No16148
投稿日: 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が配列として存在します。
ですから上の記述で値を渡すことが可能となります。

[ツリー表示へ]