1. 비주얼베이직을 실행한다.
2. 개체보기에 버튼을 두개 생성한다.
3. 다음의 코드를 붙여넣는다.
Option Explicit
Private Type test_01
aa As String * 2
bb As String * 3
cc As String * 4
dd As String * 5
End Type
Private Type test_02
ee As String * 14 '※선언을 고정문자열로
End Type
Private Type BinaryType
bin(1 To 4) As Byte
End Type
Private Type LongType
l As Long
End Type
Private Sub Command1_Click()
Dim bt As BinaryType, lt As LongType
lt.l = &H12345678
LSet bt = lt
MsgBox Hex$(bt.bin(1)) & " " & _
Hex$(bt.bin(2)) & " " & _
Hex$(bt.bin(3)) & " " & _
Hex$(bt.bin(4)), vbExclamation, "&H12345678의 Memory Image"
End Sub
Private Sub Command1_Click()
Dim TTEST As test_01, TTest1 As test_02
Dim strmsg As String
'//길이 14바이트 문자열
strmsg = "22333444455555"
TTest1.ee = "22333444455555"
Debug.Print TTest1.ee
LSet TTEST = TTest1
Debug.Print "1: " & TTEST.aa
Debug.Print "2: " & TTEST.bb
Debug.Print "3: " & TTEST.cc
Debug.Print "4: " & TTEST.dd
End Sub
4. F5를 눌러 실행하고 버튼을 눌러서 확인한다.