Использование средств Visual Basic .NET в создании информационных систем - 24 стр.

UptoLike

ВУЗ: 

ЮФУ | Ростов-на-Дону

Составители: 

Рубрика: 

24
writeToFile(ff)
End Sub
Public Sub ReadFromFile(ByVal ff As FileStream, _
ByVal i As Integer)
ff.Seek((i - 1) * len, SeekOrigin.Begin)
Dim reader As BinaryReader = New BinaryReader(ff)
Kurs = reader.ReadByte()
Group = reader.ReadByte()
Dim temp() As Byte = reader.ReadBytes(40)
FIO = UnicodeEncoding.Unicode.GetString(temp, 0, 40)
Sb = reader.ReadSingle()
End Sub
End Class
' Объявление констант и переменных,
' используемых в модулях форм,
' пользовательских процедурах и функциях
Public Const Nmax As Integer = 100
Public Const PathUntitled As String = "с:\untitled.dan"
Public Const PathTemp As String = "c:\$$$$.tmp"
Public Path As String
Public PathSpec As String
Public Path1 As String
Public Path2 As String
Public FName As String
Public richName As String
Public f1 As FileStream
Public F2 As FileStream
Public F3 As FileStream
Public F4 As Integer
Public F1_sp As FileStream
Public N As Integer
Public NSpec As Integer
Public Pos As Integer
Public Ind(Nmax) As Integer
Public Del(Nmax) As Integer
Public Button As MsgBoxResult
‘ функция, которая закрывает все открытые рабочие файлы
Public Sub CloseAllFiles()
If Not (f1 Is Nothing) Then f1.Close()

Страницы