Предыдущая страница реферата | 14  15  16  17  18  19  20  21  22  23  24 | Следующая страница реферата



Private Sub Combo1_Click()

ShowRegCard Combo1.ListIndex

End Sub

 

Private Sub DestroyReg_Click()

Dim a As Integer

For a = CurIndex To RegistrationCo - 1

LSet Registrations(a) = Registrations(a + 1)

Next a

RegistrationCo = RegistrationCo - 1

If RegistrationCo > -1 Then

ReDim Preserve Registrations(RegistrationCo)

If CurIndex > RegistrationCo Then CurIndex = CurIndex - 1

ComboRemake

CardShow CurIndex

Combo1.ListIndex = CurIndex

'ShowRegCard CurIndex

Else

EnabledAll RegistrationCo

End If

EnabledAll RegistrationCo

End Sub

Private Sub Form_Activate()

EnabledAll RegistrationCo

If RegistrationCo = -1 Then Exit Sub

ComboRemake

CurIndex = 0

CardShow CurIndex

Combo1.ListIndex = CurIndex

End Sub

Private Sub NewReg_Click()

TotalRegCo = TotalRegCo + 1

RegistrationCo = RegistrationCo + 1

ReDim Preserve Registrations(RegistrationCo)

Registrations(RegistrationCo).NameApp = InputBox("Ââåäèòå èìÿ ïðèëîæåíèÿ", , "Ïðèëîæåíèå" + str(RegistrationCo + 1))

If Registrations(RegistrationCo).NameApp = "" Then

ReDim Preserve Registrations(RegistrationCo)

TotalRegCo = TotalRegCo - 1

RegistrationCo = RegistrationCo - 1

Exit Sub

End If

Registrations(RegistrationCo).TotalNumber = TotalRegCo

EnabledAll RegistrationCo

ComboRemake

Combo1.ListIndex = RegistrationCo

'ShowRegCard RegistrationCo

'Debug.Print

End Sub

Private Sub OkButton_Click()

MemberCard

SaveRegCards

Hide

End Sub

 

 

 

 

 

Private Sub Rename_Click()

Dim a As Integer

Dim str As String

a = Combo1.ListIndex

str = InputBox("Ââåäèòå èìÿ ïðèëîæåíèÿ", , Registrations(a).NameApp)

If str "" Then Registrations(a).NameApp = str

ComboRemake

Combo1.ListIndex = a

'ShowRegCard a

End Sub

 

 

Private Sub ShowRegCard(NumRegCard As Integer)

MemberCard

CardShow NumRegCard

End Sub

Public Sub ComboRemake()

Dim a As Integer

Combo1.Clear

For a = 0 To RegistrationCo

Combo1.AddItem Registrations(a).NameApp, a

Next a

End Sub

Public Sub EnabledAll(Yes As Integer)

If Yes = -1 Then

ComboRemake

Browser.Enabled = False

Рекомендуем скачать другие рефераты по теме: курсовые, архитектура реферат.

Предыдущая страница реферата | 14  15  16  17  18  19  20  21  22  23  24 | Следующая страница реферата