投稿日 | : 2005/05/10(Tue) 10:52 |
投稿者 | : じん |
Eメール | : |
URL | : |
タイトル | : 連想配列の引渡し |
フォーム間で連想配列の引渡しを行っているのですが、
以下のメッセージが表示され上手くできません。
どこがいけないのでしょうか。
「引数の数が一致していません。または不正なプロパティを指定しています。(Error 450)」
'Form1
Private Sub Command1_Click()
Dim objDic As Object
Set objDic = CreateObject("Scripting.Dictionary")
'連想配列に値を設定する処理
Form2.Show
Form2.Data_Delivery (objDic)
Unload Me
End Sub
'Form2
Private Sub Form_Load()
処理
End Sub
Private Sub Command1_Click()
処理
End Sub
Private Sub Command2_Click()
処理
End Sub
Public Sub Data_Delivery(ByVal arrData As Object)
Dim objDic As Object
Set objDic = CreateObject("Scripting.Dictionary")
objDic = arrData
End Sub