Контроллер связываемых объектов
Информация - Компьютеры, программирование
Другие материалы по предмету Компьютеры, программирование
FNFileMustExist + cdlOFNHideReadOnly
RegDialog.ShowOpen
Path = RegDialog.FileName
Err1:
End Sub
Private Sub Cancel_Click()
LoadRegCards
Hide
End Sub
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
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. Окно свойств документа