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

解決

VB初心者 2005-08-23 20:46:20 No: 91718

下記の用に、固定長文字列を含む構造体への一括渡しを行いたいのですが、方法が分かりません！
申し訳ございませんが教えて下さい！

'構造体宣言
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

STR_DATA = "1234"

End Sub

魔界の仮面弁士 2005-08-23 20:51:06 No: 91719

Option Explicit

Private Type A
A1 As String * 1
A2 As String * 3
End Type

Private Type B
B1 As String * 4
End Type

Private Sub Form_Load()
Dim X As A
Dim Y As B

  Y.B1 = "1234"
  LSet X = Y
  Debug.Print "A.A1=[" & X.A1 & "], A.A2=[" & X.A2 & "]"
End Sub

VB初心者 2005-08-23 23:47:35 No: 91720

管理人様へ
二重登録ですので削除をお願い致します！