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

解決

VB初心者 2005-08-23 11:46:20 No: 91718 IP: [192.*.*.*]

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

'構造体宣言
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 11:51:06 No: 91719 IP: [192.*.*.*]

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 14:47:35 No: 91720 IP: [192.*.*.*]

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

編集削除