Работа в Microsoft Office. Губина Т.Н - 118 стр.

UptoLike

ВУЗ: 

ЕГУ им. Бунина | Елец

Составители: 

Рубрика: 

Губина Т.Н., Масина О.Н., Губин М.А.
118
д: 6. Окно проводника проектов должно иметь ви
раздел General Declaration описать переменные, которые будут отвечать за поло-
ие надписей на слайде.
ion Explicit
lic FLabel1 As Boolean
7. В
жен
Opt
Pub
Public FLabel2 As Boolean
Public FLabel3 As Boolean
Pub
Pub
Pub
8. З
Для
Priv
Val
D
Dim MyDataObject As MSForms.DataObject
yDataObject = New MSForms.DataObject
MyDataObject.SetText "Label1"
E
lic FImage1 As Boolean
lic FImage2 As Boolean
lic FImage3 As Boolean
апрограммировать возможность перемещения надписи Label1 – Материнская плата.
этого введите следующие программные коды
62
:
ate Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, By-
X As Single, ByVal Y As Single)
im Effect As Integer
If Button = 1 Then
Set M
Effect = MyDataObject.StartDrag
nd If
62
Здесь и далее приведены программные коды с учетом трех надписей и трех рисунков. Для полной ра-
ботоспособности теста программные коды должны быть дополнены. 
                                                                 Губина Т.Н., Масина О.Н., Губин М.А.




6. Окно проводника проектов должно иметь вид:




7. В раздел General Declaration описать переменные, которые будут отвечать за поло-
жение надписей на слайде.
Option Explicit
Public FLabel1 As Boolean
Public FLabel2 As Boolean
Public FLabel3 As Boolean
Public FImage1 As Boolean
Public FImage2 As Boolean
Public FImage3 As Boolean
8. Запрограммировать возможность перемещения надписи Label1 – Материнская плата.
Для этого введите следующие программные коды62:
Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, By-
Val X As Single, ByVal Y As Single)
   Dim Effect As Integer
   Dim MyDataObject As MSForms.DataObject
   If Button = 1 Then
      Set MyDataObject = New MSForms.DataObject
      MyDataObject.SetText "Label1"
      Effect = MyDataObject.StartDrag
   End If

62
  Здесь и далее приведены программные коды с учетом трех надписей и трех рисунков. Для полной ра-
ботоспособности теста программные коды должны быть дополнены.
                                               118

Страницы