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



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. Окно свойств документа
Скачали данный реферат: Dubov, Gagolin, Pronin, Сиянчук, Kozlakov, Агафа, D'jachenko.
Последние просмотренные рефераты на тему: дипломные работы бесплатно, решебник мордкович, диплом 2011, экономический диплом.

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

Поделитесь этой записью или добавьте в закладки