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

UptoLike

ВУЗ: 

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

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

Рубрика: 

38
End Sub
Теперь, опишем процедуры обработки событий нажатия на кнопку «Выход»
или кнопку
в правом верхнем углу формы.
Обработка события закрытия формы по нажатию кнопки «Выход»:
Private Sub cmdExit_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles cmdExit.Click
‘ вызов процедуры закрытия формы
ExitFromInputEdit()
End Sub
Обработка события закрытия формы по нажатию кнопки
:
Private Sub frmInputEdit_FormClosing(ByVal sender As _
System.Object, ByVal e As
System.Windows.Forms.FormClosingEventArgs) Handles _
MyBase.FormClosing
Call ExitFromInputEdit()
‘ в том случае, если нажата кнопка «Отмена», то с формы
' выход не происходит
If Button = vbCancel Then e.Cancel = True
End Sub
Хотя подготовлено еще не все программное обеспечение формы, можно за-
пустить проект, но пока не сохранять данные, так как наверняка будут сдела-
ны ошибки, которые необходимо исправить.
Для работы с данными, а именно для вывода в форму полей очередной про-
сматриваемой записи, предусмотрена процедура ShowZap. Она выполняет загруз-
ку элементов формы значениями полей текущей записи (записи с номером i). Ни-
же приводится код этой процедуры, параметром ее является номер записи в фай-
ле.
Public Sub ShowZap(ByVal i As Integer)
Dim R As TStud = New TStud()
' номер записи не должен быть нулем!
If i <> 0 Then
' максимальное значение полосы прокрутки равно
' количеству записей
vscrZap.Maximum = N + 1
vscrZap.Enabled = True
Check1.Checked = False

Страницы