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



End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

If SelectOn = True Then

With selectrec

If Y < MouseY Then

.Top = Y

.Height = MouseY - Y

Else

.Top = MouseY

.Height = Y - MouseY

End If

If X < MouseX Then

.Left = X

.Width = MouseX - X

Else

.Left = MouseX

.Width = X - MouseX

End If

End With

End If

End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

Dim a As Integer

If SelectOn = False Then

MouseX = X

MouseY = Y

If Button = 2 Then

MenuMake.Visible = True

MenuRegistration.Visible = True

MenuPropertyes.Visible = False

MenuSeparator.Visible = False

If SelectIs = True Then

MenuDelete.Visible = True

MenuCut.Visible = True

MenuCopy.Visible = True

Else

MenuDelete.Visible = False

MenuCut.Visible = False

MenuCopy.Visible = False

End If

' MenuPaste.Visible = False

MenuFrom = -1

MainForm.PopupMenu RightButtonMenuOnForm

End If

Else

SelectOn = False

selectrec.Visible = False

SelectIs = False

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

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

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