تعریف آرایه در فایل های تصادفی

[amir_port]

با سلام

دوستان چطور میشه در یک فایل تصادفی آرایه تعریف کرد ؟


Public

Class Form1

PrivateStructure MyDataType
Dim A AsInteger
Dim B AsSingle
Dim C AsByte
Dim d AsString
Dim g(100, 5) AsString <------------ خطا می گیره
EndStructure


Dim MyRecord As MyDataType
PrivateSub write_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MyRecord.A = 1000
MyRecord.B = 10.3
MyRecord.C = 2
MyRecord.d = "amir"
FileOpen(1,


"test.cp", OpenMode.Binary, , , Len(MyRecord))

FilePut(1, MyRecord, 1)
FileClose(1)
EndSub
PrivateSub read_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
FileOpen(1, "test.cp", OpenMode.Binary, , , Len(MyRecord))
FileGet(1, MyRecord, 1)
FileClose(1)
EndSub
EndClass