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

UptoLike

ВУЗ: 

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

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

Рубрика: 

Работа в Microsoft Office. Раздел 4. Технология подготовки компьютерных презентаций в Microsoft Power Point 2003
119
Priv
ByV
fmDropEffectCopy
FImage1 = True
If Data.GetText = "Label1" Then
Label3.Left = 26
Label3.Top = 115
urnEffect, ByVal Shift
As Integer)
плата
на рисунок с ее изображени-
том надпись должна расположиться над рисунком.
аналогичные програм остальных надписей и рисунков.
Проверьте правильность работы.
11. Сохраните презентацию.
к
у
ton
End Sub
ate Sub Image1_BeforeDropOrPaste(ByVal Cancel As MSForms.ReturnBoolean,
al Action As MSForms.fmAction, ByVal Data As MSForms.DataObject, ByVal X
As Single, ByVal Y As Single, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As
Integer)
Cancel = True
Effect =
Label1.Left = 26
Label1.Top = 115
FLabel1 = True
ElseIf Data.GetText = "Label2" Then
Label2.Left = 26
Label2.Top = 115
ElseIf Data.GetText = "Label3" Then
End If
End Sub
Private Sub Image1_BeforeDragOver(ByVal Cancel As MSForms.ReturnBoolean, By-
Val Data As MSForms.DataObject, ByVal X As Single, ByVal Y As Single, ByVal Drag-
State As MSForms.fmDragState, ByVal Effect As MSForms.Ret
Cancel = True
Effect = fmDropEffectCopy
End Sub
9. Проверьте правильность программного кода: запустите презентацию на исполнение
и попытайтесь переместить надпись
Материнская
ем. При э
10. Запишите мные коды для
12. Запрограммируйте кноп
тово. Для этого введите след
Private Sub CommandBut
у, которая будет отвечать за возврат к началу работы - Го-
ющий программный код:
2_Click()
FLabel1 = False
FLabel2 = False
FLabel3 = False
FImage1 = False
FImage2 = False
FImage3 = False
Label1.Left = 501
Label1.Top = 111
Label2.Left = 501 
Работа в Microsoft Office. Раздел 4. Технология подготовки компьютерных презентаций в Microsoft Power Point 2003
End Sub

Private Sub Image1_BeforeDropOrPaste(ByVal Cancel As MSForms.ReturnBoolean,
ByVal Action As MSForms.fmAction, ByVal Data As MSForms.DataObject, ByVal X
As Single, ByVal Y As Single, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As
Integer)
  Cancel = True
  Effect = fmDropEffectCopy
  FImage1 = True
  If Data.GetText = "Label1" Then
     Label1.Left = 26
     Label1.Top = 115
     FLabel1 = True
  ElseIf Data.GetText = "Label2" Then
     Label2.Left = 26
     Label2.Top = 115
  ElseIf Data.GetText = "Label3" Then
     Label3.Left = 26
     Label3.Top = 115
  End If
End Sub

Private Sub Image1_BeforeDragOver(ByVal Cancel As MSForms.ReturnBoolean, By-
Val Data As MSForms.DataObject, ByVal X As Single, ByVal Y As Single, ByVal Drag-
State As MSForms.fmDragState, ByVal Effect As MSForms.ReturnEffect, ByVal Shift
As Integer)
  Cancel = True
  Effect = fmDropEffectCopy
End Sub

9. Проверьте правильность программного кода: запустите презентацию на исполнение
и попытайтесь переместить надпись Материнская плата на рисунок с ее изображени-
ем. При этом надпись должна расположиться над рисунком.
10. Запишите аналогичные программные коды для остальных надписей и рисунков.
Проверьте правильность работы.
11. Сохраните презентацию.
12. Запрограммируйте кнопку, которая будет отвечать за возврат к началу работы - Го-
тово. Для этого введите следующий программный код:
Private Sub CommandButton2_Click()
   FLabel1 = False
   FLabel2 = False
   FLabel3 = False
   FImage1 = False
   FImage2 = False
   FImage3 = False
   Label1.Left = 501
   Label1.Top = 111
   Label2.Left = 501

                                                  119

Страницы