ВУЗ:
Составители:
Рубрика:
28
исходить переименование файла «c:\untitled.dan» и присвоение ему имени, вве-
денного пользователем в окне диалога.
Запишем процедуру обработки события выбора команды меню «Файл Æ
Создать».
Private Sub mnuFileNewItem_Click(ByVal sender As System.Object,_
ByVal e As System.EventArgs) Handles mnuFileNewItem.Click
Dim i As Integer
‘ закрываются все открытые до этого времени файлы
Decl.CloseAllFiles()
' открывается основной файл "c:\untitled.dan"
Decl.Path = PathUntitled
f1 = New FileStream(Decl.Path, FileMode.Create)
' и файл-справочник "c:\untitled.spe"
PathSpec = Mid(Decl.Path, 1, Len(Decl.Path) - 4) +".spe"
F1_sp = New FileStream(Decl.PathSpec, FileMode.Create)
' количество записей в основной таблице базы данных
' равно нулю
N = 0
' инициализация индексного массива Ind, который будет
' использоваться для сортировки данных, и массива Del
' для пометки удаляемых записей
For i = 1 To Nmax
Ind(i) = i
Del(i) = 0
Next i
' основная форма становится неактивной
Me.Enabled = False
' загрузка формы для ввода записей файла frmInputEdit
frmInputEdit.Text = "Файл: " + Decl.Path
frmInputEdit.Show()
frmInputEdit.ShowNewZap() ' пользовательская процедура
' ввода новой записи
End Sub
Поскольку, в данном коде программы участвует новая форма для ввода и
редактирования данных, то необходимо добавить ее в проект, выполнив команду
«Project/Add Windows Form», и дать новой форме имя frmInputEdit.
Страницы
- « первая
- ‹ предыдущая
- …
- 26
- 27
- 28
- 29
- 30
- …
- следующая ›
- последняя »
