ВУЗ:
Составители:
Рубрика:
66
Private Sub cmdSaveOtch_Click(ByVal sender As System.Object,_
ByVal e As System.EventArgs) Handles cmdSaveOtch.Click
' запрос имени файла для сохранения
With SaveFileDialog1
.FileName = ""
.Filter = "Все файлы (*.*)|*.*|" + _
"Текстовые файлы. (*.txt)|*.txt|" + _
"Файлы исходных данных (*.dan)|*.dan|" + _
"Файлы результатов (*.rez)|*.rez"
.FilterIndex = 2
.ShowDialog()
End With
' если имя файла не пусто и не равно имени
' просматриваемого файла,
If SaveFileDialog1.FileName <> "" And _
richName <> SaveFileDialog1.FileName Then
' то производится копирование просматриваемого файла,
FileCopy(richName, SaveFileDialog1.FileName)
' его удаление
Kill(richName)
' и вывод в RichTextBox1 нового файла
richName = SaveFileDialog1.FileName
RichTextBox1.LoadFile(richName, _
RichTextBoxStreamType.PlainText)
' сообщение об успешном завершении сохранения отчета
MsgBox("Отчет сохранен", vbOKOnly + vbInformation, _
"Сохранение")
End If
End Sub
13.1. Вывод списков групп
Вывод списков групп реализован в процедуре обработки события выбора
пункта меню «Отчеты Æ Списки групп Æ Все группы».
Прежде чем привести код этой процедуры, обсудим алгоритм, реализован-
ный в ней. Идея алгоритма состоит в следующем: сначала файл с данными о сту-
дентах должен быть «отсортирован» по курсу
, группе и фамилии; результатом че-
го станет индексный массив Ind, который позволит просматривать записи файла в
отсортированном виде именно таким образом. Такая упорядоченность записей
файла фактически представляет его разбитым на группы записей, самая внутрен-
Страницы
- « первая
- ‹ предыдущая
- …
- 64
- 65
- 66
- 67
- 68
- …
- следующая ›
- последняя »
