" active" <ac**********@a-znet.comschrieb:
RecIn is a structure
FileGet(FileNum, RecIn, mNumb)
works if I have
Option Strict Off
File was written by
FilePut(FileNum, RecIn, mNumb)
So I guess there must be a Ctype that works
I haven't been able to find it so that I can use
Option Strict On
Check out the sample below:
\\\
Option Compare Binary
Option Explicit On
Option Strict On
Public Class MainForm
Private Sub ButtonWriteRecord_Click( _
ByVal sender As Object, _
ByVal e As EventArgs _
) Handles ButtonWriteRecord.Click
Dim p As New Person()
p.Birthday = #2/22/1987#
p.ShoeSize = 24
p.FirstName = "John"
p.LastName = "Doe"
p.Sex = Sex.Male
FileOpen( _
1, _
"People.dat", _
OpenMode.Binary, _
OpenAccess.Write _
)
FilePut(1, p)
FileClose(1)
End Sub
Private Sub ButtonReadRecord_Click( _
ByVal sender As Object, _
ByVal e As EventArgs _
) Handles ButtonReadRecord.Click
FileOpen( _
1, _
"People.dat", _
OpenMode.Binary, _
OpenAccess.Read _
)
Dim p As ValueType = New Person()
FileGet(1, p)
MsgBox(p.ToString())
FileClose(1)
End Sub
End Class
Public Enum Sex
Male
Female
End Enum
Public Structure Person
Public FirstName As String
Public LastName As String
Public Birthday As Date
Public ShoeSize As Integer
Public Sex As Sex
Public Overrides Function ToString() As String
Return _
"FirstName={" & Me.FirstName & "}, " & _
"LastName={" & LastName & "}, " & _
"Birthday={" & Me.Birthday.ToString() & "}, " & _
"ShoeSize={" & Me.ShoeSize & "}, " & _
"Sex={" & Me.Sex.ToString() & "}"
End Function
End Structure
///
--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://dotnet.mvps.org/dotnet/faqs/>
