ユーザ定義型における動的配列について2 (ID:85593)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 先程、同じ質問をしましたがあせっていてうまく質問が出来なかったので再度質問します。 ユーザ定義型における動的配列のファイルへの保存を行いたいのですがうまく行きません。 また、レングスも定義したサイズと異なります。 ユーザ定義型における動的配列は無理なのでしょうか？ 回避方法等がありましたらおしえていただきたいのですがよろしくお願いします。 〜モジュール〜 Type eee Kotei4 As String * 3 Kotei5 As String * 3 End Type Type ddd Kotei1 As String * 1 Kotei2 As String * 1 Kotei3() As eee End Type Type bbb ccc As ddd End Type Global aaa As bbb 〜フォーム〜 Private Sub Form_Load() ReDim aaa.ccc.Kotei3(1) With aaa.ccc .Kotei1 = "1" .Kotei2 = "2" .Kotei3(0).Kotei4 = "123" .Kotei3(0).Kotei5 = "456" .Kotei3(1).Kotei4 = "789" .Kotei3(1).Kotei5 = "012" End With Length = Len(aaa) ---> レングスは、14のはずだがなぜか6となる。 Open "c:\abc\TESTFILE.txt" For Binary As #1 Put #1, , aaa ---> ゴミらしき値が出力されている。 Close #1 End Sub