投稿日 | : 2003/07/10(Thu) 00:33 |
投稿者 | : Lantern |
Eメール | : |
URL | : |
タイトル | : Re: 文字列をユーザー定義型に割り当てる |
LSetを使えばできると思います。
Private Type Aset
a As String * 8
b As String * 10
c As String * 20
End Type
Private Type Bset
d As String * 38
End Type
Private Sub Command1_Click()
Dim e As Aset
Dim f As Bset
f.d = "12345678" & "ABCDEFGHIJ" & "あいうえおかきくけこ"
LSet e = f
Me.Label1.Caption = e.a
Me.Label2.Caption = e.b
Me.Label3.Caption = e.c
End Sub