Предыдущая страница реферата | 7  8  9  10  11  12  13  14  15  16  17 | Следующая страница реферата



Public Sub ShowDocumentProperty(DocNumber As Integer)

On Error GoTo Err1

MakeDocForm.Label4(0).Caption = FileLen(Documents(DocNumber).FileName)

MakeDocForm.Label4(1).Caption = FileDateTime(Documents(DocNumber).FileName)

MakeDocForm.Label4(2).Caption = Documents(DocNumber).CreateDateTime

MakeDocForm.IconText.Text = Documents(DocNumber).ImageText

MakeDocForm.Icon9412_.Picture = LoadPicture(Documents(DocNumber).ImageIcon)

MakeDocForm.ImageIconText.Caption = Documents(DocNumber).ImageIcon

MakeDocForm.Discrip.Text = Documents(DocNumber).Discription

MakeDocForm.DocumentName = Documents(DocNumber).FileName

If Documents(DocNumber).UsedProgramm = -1 Then

MakeDocForm.Combo1.ListIndex = RegistrationCo + 1

Else

MakeDocForm.Combo1.ListIndex = GetREGIndex(Documents(DocNumber).UsedProgramm)

End If

Exit Sub

Err1:

Case vbAbort

End

Case vbRetry

Resume 0

Case vbIgnore

End Select

End Sub

Public Sub SaveRegCards()

Dim FileNumber As Integer

Dim a As Integer

On Error GoTo Err1

FileNumber = FreeFile

Open App.Path & "RegisterCards" For Output As FileNumber

Write #FileNumber, TotalRegCo, RegistrationCo

For a = 0 To RegistrationCo

With Registrations(a)

Write #FileNumber, .TotalNumber, .Discription, .FileName, .NameApp, .FileMask

End With

Next a

Close FileNumber

Exit Sub

Err1:

& Chr(13) & Chr(10) & Err.Number & Chr(13) & Chr(10) & _

Err.Description, vbAbortRetryIgnore + vbCritical)

Case vbAbort

End

Case vbRetry

Resume 0

End Select

End Sub

Public Sub MemberDocumentProperty(DocNumber As Integer)

Documents(DocNumber).ImageText = MakeDocForm.IconText.Text

Documents(DocNumber).ImageIcon = MakeDocForm.ImageIconText.Caption

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

Предыдущая страница реферата | 7  8  9  10  11  12  13  14  15  16  17 | Следующая страница реферата

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