Контроллер связываемых объектов (стр. 12 из 12)

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

DestroyReg.Enabled = False

Combo1.Enabled = False

Rename.Enabled = False

Path.Enabled = False

Discrip.Enabled = False

ListExt.Enabled = False

Path.Text = ""

Discrip.Text = ""

ListExt.Text = ""

Label1.Enabled = False

Label2.Enabled = False

Label3.Enabled = False

Label4.Enabled = False

Else

DestroyReg.Enabled = True

Combo1.Enabled = True

Browser.Enabled = True

Rename.Enabled = True

Path.Enabled = True

Discrip.Enabled = True

ListExt.Enabled = True

Label1.Enabled = True

Label2.Enabled = True

Label3.Enabled = True

Label4.Enabled = True

End If

End Sub

Public Sub CardShow(NumRegCard As Integer)

Path.Text = Registrations(NumRegCard).FileName

ListExt.Text = Registrations(NumRegCard).FileMask

Discrip.Text = Registrations(NumRegCard).Discription

CurIndex = NumRegCard

End Sub

Public Sub MemberCard()

Registrations(CurIndex).FileName = Path.Text

Registrations(CurIndex).FileMask = ListExt.Text

Registrations(CurIndex).Discription = Discrip.Text

End Sub

Приложения

рис 1.1

Рис. 2.2

Рис. 3.1. Основное окно программы

Рис. 3.2. Меню "Правка"

Рис. 3.3. Окно свойств документа