VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [管理用]

投稿日: 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を使って
構造体をループさせて変数に格納とかも可能かと。。。


- 関連一覧ツリー (★ をクリックするとツリー全体を一括表示します)

- 返信フォーム (この記事に返信する場合は下記フォームから投稿して下さい)

- VBレスキュー(花ちゃん) - - Web Forum -