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

UptoLike

ВУЗ: 

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

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

Рубрика: 

45
' кнопки «Начало» и «Назад» становятся активными
cmdTop.Enabled = True
cmdBackUp.Enabled = True
cmdExit.Focus()
' вызов процедуры для заполнения новой записи
Call ShowNewZap()
End Sub
А теперь попытайтесь заполнить файл данными (1–2 записи) и закрыть фор-
му frmInputEdit с сохранением файлов.
Заметим, что количество видимых на форме элементов txtM«i», предназна-
ченных для ввода оценок прямо зависит от содержимого элемента txtKol. Таким
образом, скрытие лишних видимых элементов и показ нужных невидимых эле-
ментов txtM«i» должны зависеть от изменения содержимого txtKol, т.е. далее не-
обходимо обработать событие изменения содержимого элемента txtKol. Приведем
код процедуры обработки этого события.
Private Sub txtKol_ValueChanged(ByVal sender As System.Object,_
ByVal e As System.EventArgs) Handles txtKol.ValueChanged
Dim i As Integer = txtKol.Value
' все элементы, соответствующие оценкам скрываются
txtM1.Visible = False
txtM2.Visible = False
txtM3.Visible = False
txtM4.Visible = False
txtM5.Visible = False
' открываются первые несколько элементов
' их количество зависит от значения элемента txtKol
If i > 0 Then txtM1.Visible = True
If i > 1 Then txtM2.Visible = True
If i > 2 Then txtM3.Visible = True
If i > 3 Then txtM4.Visible = True
If i > 4 Then txtM5.Visible = True
End Sub
Таким образом, при изменении содержимого элемента txtKol все элементы
txtM, соответствующие оценкам скрываются, затем открывается столько элемен-
тов, сколько указано в содержимом элемента txtKol.

Страницы