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



End If

Next a

SelectIs = False

Else

Delete MenuFrom

End If

End Sub

Private Sub MenuMakeDocument_Click()

DocumentCo = DocumentCo + 1

TotalDocCo = TotalDocCo + 1

ReDim Preserve Documents(DocumentCo)

Documents(DocumentCo).X = MouseX

Documents(DocumentCo).Y = MouseY

CurDocument = DocumentCo

DocumentIsChanged = True

MakeDocForm.Label4(0).Caption = "0"

MakeDocForm.Label4(1).Caption = str(Now)

MakeDocForm.Label4(2).Caption = str(Now)

MakeDocForm.IconText.Text = "Документ"

MakeDocForm.Icon9412_.Picture = LoadPicture(App.Path & "DefDoc.ico")

MakeDocForm.ImageIconText = App.Path & "DefDoc.ico"

MakeDocForm.Discrip.Text = ""

MakeDocForm.DocumentName = ""

Canceled = False

MakeDocForm.Show vbModal

If Canceled = True Then

DocumentCo = DocumentCo - 1

TotalDocCo = TotalDocCo - 1

ReDim Preserve Documents(DocumentCo)

Exit Sub

End If

MemberDocumentProperty DocumentCo

Documents(DocumentCo).TotalNumber = TotalDocCo

Documents(DocumentCo).OutputFunPointCo = -1

Documents(DocumentCo).OutputDocPointCo = -1

ImageCo = ImageCo + 1

Load ImageIcon(ImageCo)

ImageIcon(ImageCo).Top = Documents(DocumentCo).Y

ImageIcon(ImageCo).Left = Documents(DocumentCo).X

ImageIcon(ImageCo).Visible = True

ImageIcon(ImageCo).Enabled = True

ImageIcon(ImageCo).Picture = LoadPicture(Documents(DocumentCo).ImageIcon)

ImageIcon(ImageCo).Tag = Documents(DocumentCo).TotalNumber

Load ImageText(ImageCo)

ImageText(ImageCo).Top = Documents(DocumentCo).Y + 300

ImageText(ImageCo).Left = Documents(DocumentCo).X

ImageText(ImageCo).Visible = True

ImageText(ImageCo).Enabled = True

ImageText(ImageCo).Caption = Documents(DocumentCo).ImageText

ImageText(ImageCo).Tag = 1 '**************** 1 = Это документ

End Sub

 

Private Sub MenuPropertyes_Click()

Dim temp As Integer

If MenuFrom >= 0 Then

If ImageText(MenuFrom).Tag = 1 Then

temp = GetDOCIndex(ImageIcon(MenuFrom).Tag)

ShowDocumentProperty temp

MakeDocForm.Show vbModal

MemberDocumentProperty temp

ImageText(MenuFrom).Caption = Documents(temp).ImageText

ImageIcon(MenuFrom).Picture = LoadPicture(Documents(temp).ImageIcon)

End If

Else

End If

End Sub

Private Sub MenuRegistration_Click()

RegistrForm.Show vbModal

End Sub

Public Sub Delete(Index As Integer)

Dim a As Integer

Dim b As Integer

If ImageText(Index).Tag = 1 Then

b = GetDOCIndex(ImageIcon(Index).Tag)

For a = b To DocumentCo - 1

LSet Documents(a) = Documents(a + 1)

Next a

DocumentCo = DocumentCo - 1

End If

For a = 0 To ImageCo

Unload ImageText(a)

Unload ImageIcon(a)

Next a

ImageCo = -1

SaveProject App.Path & "temp~.prj"

LoadProject App.Path & "temp~.prj"

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

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

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