|
▼Kohaku さん:
こんにちは。
>はじめまして。いつも参考にさせていただいてます。
>質問ですが、構造体(ユーザ定義型)の動的配列を、他のプロージャに引数として渡し
たいのですが、うまくいきません。
↑このうまくいかない内容を詳細に記述して下さい。
例えば、
以下のコードを実行すると
xxxの行で xxxx「xxxxxxx」というエラーメッセージが
表示され、プログラムが中断します。
私の仕様はxxxxxとなる予定なんですが・・・
というように・・・。
標準モジュールに
'================
Type sample
aaa As Integer
bbb As Integer
ccc As String
End Type
'=====================================================
Sub main()
Dim a(1 To 3) As sample
Call other(a())
For g0 = LBound(a()) To UBound(a())
With a(g0)
MsgBox .aaa & vbCrLf & .bbb & vbCrLf & .ccc
End With
Next g0
End Sub
'==========================================
Sub other(data() As sample)
For g0 = LBound(data()) To UBound(data())
With data(g0)
.aaa = g0
.bbb = g0 + 1
.ccc = g0 + 2
End With
Next g0
End Sub
mainを実行してみて下さい。
ユーザー定義型の配列を引数にして実行できています。
という事でしょうか?
だとしたら、宣言の仕方がエラーの原因ですが・・・。
Dim a(1 To 3) As sample
確認して下さい。
|
|