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

UptoLike

ВУЗ: 

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

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

Рубрика: 

48
cmdForward.Enabled = True
cmdEdit.Enabled = True
cmdPack.Enabled = True
' если запись первая, то кнопка «Назад»
' становится неактивной
If Pos <= 1 Then
cmdBackUp.Enabled = False
Pos = 1
End If
' вывод записи с номером Pos
Call ShowZap(Pos)
End Sub
Private Sub cmdForward_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles cmdForward.Click
' переход на следующую позицию
frmMenu.Text = frmMenu.Text + "Ско"
Pos = Pos + 1
' если была не последняя запись,
If Pos <= N Then
' то переход на следующую запись
vscrZap.Value = Pos
Call ShowZap(Pos)
cmdBackUp.Enabled = True
cmdExit.Focus()
Else
' иначе вызов процедуры для заполнения новой записи
Call ShowNewZap()
End If
End Sub
Для перемещения по записям базы данных можно использовать полосу
прокрутки (элемент управления VscrZap). При помощи полосы прокрутки можно
перемещаться на одну или несколько записей в базе. Процедура обработки собы-
тия изменения значения имеет вид:
Private Sub vscrZap_Scroll(ByVal sender As System.Object, _
ByVal e As System.Windows.Forms.ScrollEventArgs) _
Handles vscrZap.Scroll
‘ максимальное значение полосы прокрутки равно
‘ количеству записей
VScrZap.Maximum = N
‘ перемещение на запись по значению полосы прокрутки

Страницы