投稿日 | : 2004/09/15(Wed) 09:58 |
投稿者 | : 通りすがり |
Eメール | : |
URL | : |
タイトル | : Re: 構造体をstring型へ |
---- 宣言 ----
Private Type Test1
aaa As String * 8
bbb As String * 5
End Type
Private Type Test2
buff As String * 13
End Type
---- ロジック ----
Dim uTest1 As Test1
Dim uTest2 As Test2
uTest1.aaa = "aaaaaa"
uTest1.bbb = "bbbbbb"
LSet uTest2 = uTest1
Debug.Print uTest2.buff
---- ここまで ----
注意として、固定長でかつString型のみの構造体でしか
利用できません。
(それ以外で、仕様するとメモリーがどうなるやら。。。)
あとは、Win32APIのRtlMoveMemory と VarPtrを使って
構造体をループさせて変数に格納とかも可能かと。。。