 ユーザー定義型の中にユーザー定義型を定義してコピー ( No.0 ) |
- 日時： 2008/04/30 15:28
- 名前： ばつ
- こんにちは。
ユーザー定義型の中にユーザー定義型を定義した場合について
質問があります。
Type Data
moji1 As String * 5
moji2(2) As MEISAI
moji3 As String * 5
End Type
Type MEISAI
money 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
MojiData.moji1 = "あいうえお"
MojiData.moji2(0) = "10000"
MojiData.moji2(1) = "20000"
MojiData.moji2(2) = "30000"
MojiData.moji3 = "さしすせそ"
LSet strbuff = MojiData ← ここで「型が一致しません」エラー
strmoji = strbuff.moji4
End Sub
LSet で、コピーをしたいのですが、（最終的にはString型の変数に設定がしたい）
コンパイル時点でエラーになりました。
どなたかアドバイスを頂けませんでしょうか？
説明不足でしたら申し訳ありません。
|
|
