PC World Komputer 1997 February/PCWK0297.iso/envelop/envelop.5/Tools/Bootcamp/advanced/oledemo/oledemo.eto

Text File | 1996-07-08 | 8.0 KB | 250 lines

Type OLESymbol From Image
  Dim FileName As String
  Dim BitmapSymbol As New Bitmap

  ' METHODS for object: OLESymbol
  Sub DragStart(xf as XferData, x As Single, y As Single)
    ' If there is no parent for this object, then don't do anything
    If Not Parent Then Exit Sub

    ' Set the filename for the ole symbol
    xf.FileName = FileName

    ' Set the type of Drag mode
    xf.Drag(1)

  End Sub

End Type

Type OLEDemoMasterForm From SampleMasterForm
  Dim oleDisplayer As New Ole
  Dim DND_NONE As Long
  Dim DND_COPY As Long
  Dim DND_MOVE As Long
  Dim DND_LINK As Long
  Dim DND_SCROLL As Long
  Dim DND_MOREFILES As Long
  Dim DND_LASTFILE As Long
  Dim DND_ENTER As Integer
  Dim DND_LEAVE As Integer
  Dim DND_OVER As Integer
  Dim DND_DROP As Integer
  Dim DND_DROPFILE As Integer
  Dim Label3 As New Label
  Dim Label4 As New Label
  Dim OLESymbol1 As New OLESymbol
  Dim OLESymbol3 As New OLESymbol
  Dim OLESymbol4 As New OLESymbol
  Dim OLESymbol5 As New OLESymbol
  Dim OLESymbol6 As New OLESymbol
  Dim OLESymbol7 As New OLESymbol
  Dim Label1 As New Label

  ' METHODS for object: OLEDemoMasterForm
  Sub DragAndDrop(source As XferData, x,y As Single, state As OleDropState, effect As OleDropEffect)
    If state = "DropFile" Then
      ' OLEDemoMasterForm.Caption = source.FileName
      oleDisplayer.SetData source.GetData
      effect = 0
    ElseIf state = "Drop" Then
      If effect And DND_LINK Then
        oleDisplayer.OleTypeAllowed = "Linked"
      Else
        oleDisplayer.OleTypeAllowed = "Either"
      End If
      oleDisplayer.SetData source.GetData
    End If
  End Sub

  Sub oleDisplayer_DragAndDrop(source As XferData, x As Single, y As Single, state As OleDropState, effect As OleDropEffect)
    If state = "DropFile" Then
      ' OLEDemoMasterForm.Caption = source.FileName
      oleDisplayer.SetData source.GetData
      effect = 0
    ElseIf state = "Drop" Then
      If effect And DND_LINK Then
        oleDisplayer.OleTypeAllowed = "Linked"
      Else
        oleDisplayer.OleTypeAllowed = "Either"
      End If
      oleDisplayer.SetData source.GetData
    End If
  End Sub

  Sub ResetApplication_Click()
    OLESymbol1.FileName = SampleDir & "destruct.wav"
    OLESymbol3.FileName = SampleDir & "sales.xls"
    OLESymbol4.FileName = SampleDir & "paint.bmp"
    OLESymbol5.FileName = SampleDir & "welcome.doc"
    OLESymbol6.FileName = SampleDir & "world.ppt"
    OLESymbol7.FileName = SampleDir & "readme.txt"
  End Sub

  Sub Resize()
    oleDisplayer.Move 0, oleDisplayer.Top, ScaleWidth, ScaleHeight - oleDisplayer.Top
    OLEDemoMasterForm.Refresh
  End Sub

End Type

Begin Code
' Reconstruction commands for object: OLESymbol
'
  With OLESymbol
    .Move(0, 0, 615, 600)
    .Picture := OLESymbol.BitmapSymbol
    .ScrollBars := "Never"
    .FileName := ""
    With .BitmapSymbol
    End With  'OLESymbol.BitmapSymbol
  End With  'OLESymbol
' Reconstruction commands for object: OLEDemoMasterForm
'
  With OLEDemoMasterForm
    .Caption := "OLE Demonstration"
    .DragMode := "No Drag"
    .Move(4350, 2190, 8820, 6570)
    .FileDrop := True
    .SampleDir := "C:\envelop\bootcamp\advanced\oledemo\"
    .SampleName := "OLEDEMO"
    .DND_NONE := 0
    .DND_COPY := 1
    .DND_MOVE := 2
    .DND_LINK := 4
    .DND_SCROLL := 2147483647
    .DND_MOREFILES := -1
    .DND_LASTFILE := 0
    .DND_ENTER := 0
    .DND_LEAVE := 1
    .DND_OVER := 2
    .DND_DROP := 3
    .DND_DROPFILE := 4
    With .oleDisplayer
      .Caption := "oleDisplayer"
      .DragMode := "No Drag"
      .ZOrder := 2
      .Move(0, 1950, 8700, 3930)
      .Class := "Sound (OLE2)"
      .SizeMode := "Autosize"
    End With  'OLEDemoMasterForm.oleDisplayer
    With .Label3
      .Caption := "2. Double-Click on the OLE object to start the native application for editing."
      .ForeColor := 13107200
      .ZOrder := 3
      .Move(150, 1590, 7890, 300)
    End With  'OLEDemoMasterForm.Label3
    With .Label4
      .Caption := "1. Drag and Drop an application file from the File Manager or use the Right Mouse"
      .ForeColor := 13107200
      .ZOrder := 4
      .Move(150, 150, 8115, 300)
    End With  'OLEDemoMasterForm.Label4
    With .OLESymbol1
      .Caption := "OLESymbol1"
      .ZOrder := 5
      .Move(1350, 825, 615, 600)
      .AutoInitCropRect := False
      .Picture := OLEDemoMasterForm.OLESymbol1.BitmapSymbol
      .ResizeMode := "Clip"
      .ScaleX := 1
      .ScaleY := 1
      .FileName := "C:\envelop\bootcamp\advanced\oledemo\destruct.wav"
      With .BitmapSymbol
        .LoadType := "MemoryBased"
        .FileName := "oledemo.ero"
        .ResId := 0
      End With  'OLEDemoMasterForm.OLESymbol1.BitmapSymbol
    End With  'OLEDemoMasterForm.OLESymbol1
    With .OLESymbol3
      .Caption := "OLESymbol3"
      .ZOrder := 6
      .Move(3450, 825, 615, 600)
      .AutoInitCropRect := False
      .Picture := OLEDemoMasterForm.OLESymbol3.BitmapSymbol
      .ResizeMode := "Clip"
      .ScaleX := 1
      .ScaleY := 1
      .FileName := "C:\envelop\bootcamp\advanced\oledemo\sales.xls"
      With .BitmapSymbol
        .LoadType := "MemoryBased"
        .FileName := "oledemo.ero"
        .ResId := 836
      End With  'OLEDemoMasterForm.OLESymbol3.BitmapSymbol
    End With  'OLEDemoMasterForm.OLESymbol3
    With .OLESymbol4
      .Caption := "OLESymbol4"
      .ZOrder := 7
      .Move(4500, 825, 615, 600)
      .AutoInitCropRect := False
      .Picture := OLEDemoMasterForm.OLESymbol4.BitmapSymbol
      .ResizeMode := "Clip"
      .ScaleX := 1
      .ScaleY := 1
      .FileName := "C:\envelop\bootcamp\advanced\oledemo\paint.bmp"
      With .BitmapSymbol
        .LoadType := "MemoryBased"
        .FileName := "oledemo.ero"
        .ResId := 1712
      End With  'OLEDemoMasterForm.OLESymbol4.BitmapSymbol
    End With  'OLEDemoMasterForm.OLESymbol4
    With .OLESymbol5
      .Caption := "OLESymbol5"
      .ZOrder := 8
      .Move(5550, 825, 615, 600)
      .AutoInitCropRect := False
      .Picture := OLEDemoMasterForm.OLESymbol5.BitmapSymbol
      .ResizeMode := "Clip"
      .ScaleX := 1
      .ScaleY := 1
      .FileName := "C:\envelop\bootcamp\advanced\oledemo\welcome.doc"
      With .BitmapSymbol
        .LoadType := "MemoryBased"
        .FileName := "oledemo.ero"
        .ResId := 2716
      End With  'OLEDemoMasterForm.OLESymbol5.BitmapSymbol
    End With  'OLEDemoMasterForm.OLESymbol5
    With .OLESymbol6
      .Caption := "OLESymbol6"
      .ZOrder := 9
      .Move(6600, 825, 615, 600)
      .AutoInitCropRect := False
      .Picture := OLEDemoMasterForm.OLESymbol6.BitmapSymbol
      .ResizeMode := "Clip"
      .ScaleX := 1
      .ScaleY := 1
      .FileName := "C:\envelop\bootcamp\advanced\oledemo\world.ppt"
      With .BitmapSymbol
        .LoadType := "MemoryBased"
        .FileName := "oledemo.ero"
        .ResId := 3572
      End With  'OLEDemoMasterForm.OLESymbol6.BitmapSymbol
    End With  'OLEDemoMasterForm.OLESymbol6
    With .OLESymbol7
      .Caption := "OLESymbol7"
      .ZOrder := 10
      .Move(2400, 825, 615, 600)
      .AutoInitCropRect := False
      .Picture := OLEDemoMasterForm.OLESymbol7.BitmapSymbol
      .ResizeMode := "Clip"
      .ScaleX := 1
      .ScaleY := 1
      .FileName := "C:\envelop\bootcamp\advanced\oledemo\readme.txt"
      With .BitmapSymbol
        .LoadType := "MemoryBased"
        .FileName := "oledemo.ero"
        .ResId := 4576
      End With  'OLEDemoMasterForm.OLESymbol7.BitmapSymbol
    End With  'OLEDemoMasterForm.OLESymbol7
    With .Label1
      .Caption := "Button to drag one of the application  icons below onto the lower part of this form."
      .ForeColor := 13107200
      .ZOrder := 1
      .Move(400, 420, 7995, 300)
    End With  'OLEDemoMasterForm.Label1
    With .helpfile
      .FileName := "C:\envelop\bootcamp\advanced\oledemo\OLEDEMO.hlp"
    End With  'OLEDemoMasterForm.helpfile
  End With  'OLEDemoMasterForm
End Code