double arrow

Private Sub pred_Click()

Dim a As Integer

a=recquant-1

If a<=0 Then

MsgBox "вы просмотрели базу до начала", 48, "СТОП"

Exit Sub

End If

recquant=recquant-1

izmen.fam.Text=basa.basa(recquant).famnum

izmen.dol.Text=basa.basa(recquant).dolnum

izmen.okl.Text=basa.basa(recquant).oklnum

izmen.nomer.Caption=recquant

End Sub

Private Sub sled_Click()

Dim a As Integer

a=recquant+1

If a>=11 Then

MsgBox "вы просмотрели базу до конца", 48, "СТОП"

Exit Sub

End If

recquant=recquant+1

izmen.fam.Text=basa.basa(recquant).famnum

izmen.dol.Text=basa.basa(recquant).dolnum

izmen.okl.Text=basa.basa(recquant).oklnum

izmen.nomer.Caption=recquant

End Sub

Private Sub zakr_Click()

Unload izmen

glav.Enabled=True

Glav.SetFocus

End Sub

12. Поскольку действия, выполняемые кнопкой ОК практически аналогичны действиям, выполняемым кнопкой записать в окне запись, то добавим в модуль проекта еще одну процедуру izmrecinput:

Public Sub izmrecinput ()

Dim strvar As String

recquant=izmen.nomer.Caption

Glav.spisok.RemoveItem recquant-1

basa(recquant).famnum=izmen.fam.Text

strvar=basa(recquant).famnum & ""

basa(recquant).dolnum=izmen.dol.Text

strvar=strvar+basa(recquant).dolnum & ""

basa(recquant).oklnum=izmen.okl.Text

strvar=strvar+basa(recquant).oklnum

Glav.spisok.AddItem strvar, recquant-1

End Sub

В событийную процедуру для кнопки ОК запишем строку вызова процедуры izmrecinput:

Private Sub okbut_Click()

Call izmrecinput


Понравилась статья? Добавь ее в закладку (CTRL+D) и не забудь поделиться с друзьями:  



Сейчас читают про: