文字列を固定長文字列を含む構造体へ一括して渡す方法 (ID:91715)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 こんな感じでしょうか？ Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" ( _ lpvDest As Any, lpvSource As Any, ByVal cbCopy As Long) Private Type TYP_TEST STR_MOJI1 As String * 1 STR_MOJI2 As String * 3 End Type Private Sub BT_TEST_Click() Dim STR_DATA As TYP_TEST Dim a() As Byte a = StrConv("1234", vbFromUnicode) CopyMemory STR_DATA, a(0), Len(STR_DATA) Debug.Print STR_DATA.STR_MOJI1, STR_DATA.STR_MOJI2 End Sub