23/01/30 13:03:41.57 yj3XWjhj.net
>>37
ちゃんと動いた
Type RecClass0
field01 As String * 6
End Type
Type RecClass1
field01 As String * 4
field02 As Integer
End Type
Sub test()
Data = "abcdefgh"
Mid(Data, 4, 2) = Chr(&H0) & Chr(&H6)
Debug.Print Data
Dim rec0 As RecClass0
Dim rec1 As RecClass1
rec0.field01 = Data
LSet rec1 = rec0
Debug.Print "len=", Len(rec1.field02), "value=", rec1.field02
End Sub
実行結果
abc fgh
len= 2 value= 6