投稿日 | : 2003/05/28(Wed) 15:43 |
投稿者 | : 魔界の仮面弁士 |
Eメール | : |
URL | : |
タイトル | : Re: 文字列の代入 |
> String変数に入っている値をType変数へ一括で代入する事は可能なのでしょうか?
代入するユーザー定義型の内容にもよりますが、「LSet」を使う方法があります。
Option Explicit
Private Type typA
abc As String * 4
def As String * 2
ghi As String * 6
End Type
Private Type typB
dummy As String * 12
End Type
Private Sub Form_Load()
Dim aaa As typA
Dim bbb As typB
bbb.dummy = "AAAABBCCCCCC"
LSet aaa = bbb
Debug.Print aaa.abc
Debug.Print aaa.def
Debug.Print aaa.ghi
End Sub