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



Exit For

End If

Next a

End Function

 

Public Sub ShowProject()

Dim a As Integer

With MainForm

For a = 0 To DocumentCo

ImageCo = ImageCo + 1

Load .ImageIcon(ImageCo)

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

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

.ImageIcon(ImageCo).Visible = True

.ImageIcon(ImageCo).Enabled = True

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

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

Load .ImageText(ImageCo)

.ImageText(ImageCo).Top = Documents(a).Y + 500

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

.ImageText(ImageCo).Visible = True

.ImageText(ImageCo).Enabled = True

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

.ImageText(ImageCo).Tag = 1

Next a

End With

End Sub

‘******************************

‘Main Form Code

‘******************************

Option Explicit

Option Base 0

Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)

Dim a As Integer

Dim dX As Integer

Dim dY As Integer

If SelectIs = True Then

dX = X - Source.Left

dY = Y - Source.Top

For a = 0 To ImageCo

If ImageIcon(a).BorderStyle = 1 Then

If ImageText(a).Tag = 1 Then

Documents(GetDOCIndex(ImageIcon(a).Tag)).X = ImageIcon(a).Left + dX

Documents(GetDOCIndex(ImageIcon(a).Tag)).Y = ImageIcon(a).Top + dY

End If

ImageIcon(a).Left = ImageIcon(a).Left + dX

ImageIcon(a).Top = ImageIcon(a).Top + dY

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

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

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