 Re: ユーザー定義型の中にユーザー定義型を定義してコピー ( No.2 ) |
- 日時： 2008/04/30 16:12
- 名前： ふるふる
- ユーザー定義中に、ユーザー定義の配列だとコンパイルエラーになるようですね。
配列ではないユーザー定義なら許されるようです。
ですので、配列の位置をユーザー定義中に移動すると可能なようです。
Type MEISAI
money(2) As String * 5
End Type
Type Data
moji1 As String * 5
moji2 As MEISAI
moji3 As String * 5
End Type
Type Buffer
moji4 As String * 25
End Type
Private MojiData As Data
Sub test()
Dim strmoji As String
Dim strbuff As Buffer
Dim M As MEISAI
M.money(0) = "10000"
M.money(1) = "20000"
M.money(2) = "30000"
MojiData.moji1 = "あいうえお"
MojiData.moji2 = M
MojiData.moji3 = "さしすせそ"
LSet strbuff = MojiData '成功する
strmoji = strbuff.moji4
End Sub
|
|
