VB6にて教えてください。
ユーザー定義にて、 a1とa2をひとまとめにした一つのデータとして扱いたいのです。
下記例を実行しますと、「コンパイルエラー 型が一致しません」が、
Print #1, T_abcにでます。
よろしくお願いします。
** 標準モジュール **
Type abc
a1 As String * 6
a2 As String * 4
End Type
Public T_abc As abc
** フォームモジュール **
Private Sub Form_Load()
T_abc.a1 = "070616" '代入
T_abc.a2 = "1234" '代入
Open "test.txt" For Output As #1
Print #1, T_abc
Close #1
End Sub
ユーザー定義型の保存は、バイナリ モード (Binary)で行います。
ファイル形式は異なりますが
Open "test" For Random As #1 Len = Len(T_abc)
で、解決しました。
ありがとうございました。
ツイート | ![]() |