Tools/WinSN5.0Ver.iso/PVb5.0/VB/SAMPLES/PGUIDE/OLECONT/CONTCHLD.FRM

Visual Basic Form | 1997-01-20 | 5.2 KB | 208 lines

VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.1#0"; "COMDLG32.OCX"
Begin VB.Form ChildForm
   AutoRedraw      =   -1  'True
   Caption         =   "OLE
   ClientHeight    =   3330
   ClientLeft      =   1140
   ClientTop       =   3735
   ClientWidth     =   5550
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   3330
   ScaleWidth      =   5550
   Begin MSComDlg.CommonDialog CommonDialog1
      Left            =   360
      Top             =   360
      _ExtentX        =   847
      _ExtentY        =   847
      FontSize        =   8.49966e-19
   End
   Begin VB.OLE OLE1
      Height          =   3252
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   5532
   End
   Begin VB.Menu mnuFile
      Caption         =   "
(&F)"
      NegotiatePosition=   1  'Left
      Begin VB.Menu mnuFileNew
         Caption         =   "
(&N)..."
      End
      Begin VB.Menu mnuSave
         Caption         =   "
(&S)..."
      End
      Begin VB.Menu mnuOpen
         Caption         =   "
(&O)"
      End
      Begin VB.Menu sep1
         Caption         =   "-"
      End
      Begin VB.Menu mnuExit
         Caption         =   "
(&X)"
      End
      Begin VB.Menu sep2
         Caption         =   "-"
      End
      Begin VB.Menu mnuAbout
         Caption         =   "
(&B)..."
      End
   End
   Begin VB.Menu mnuEdit
      Caption         =   "
(&E)"
      Begin VB.Menu mnuCopy
         Caption         =   "
(&C)"
      End
      Begin VB.Menu mnuDelete
         Caption         =   "
(&D)"
      End
      Begin VB.Menu mnuSpecial
         Caption         =   "
(&S)..."
      End
      Begin VB.Menu esep2
         Caption         =   "-"
      End
      Begin VB.Menu mnuUpdate
         Caption         =   "
(&U)"
      End
   End
   Begin VB.Menu mnuCloseOLE
      Caption         =   "
 Ole
(&C)"
      NegotiatePosition=   3  'Right
   End
   Begin VB.Menu mnuWindow
      Caption         =   "
(&W)"
      WindowList      =   -1  'True
      Begin VB.Menu mnuCascade
         Caption         =   "
(&C)"
      End
      Begin VB.Menu mnuTile
         Caption         =   "
(&T)"
      End
      Begin VB.Menu mnuArrange
         Caption         =   "
(&A)"
      End
   End
Attribute VB_Name = "ChildForm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Form_Load()
On Error Resume Next
    OLE1.Move 0, 0
    OLE1.Height = Me.Height
    OLE1.Width = Me.Width

    OLE1.HostName = "OLE
End Sub
Private Sub mnuAbout_Click()
    DisplayInstructions
End Sub
Private Sub mnuArrange_Click()
    ParentForm.Arrange vbArrangeIcons
End Sub
Private Sub mnuCascade_Click()
    ParentForm.Arrange vbCascade
End Sub
Private Sub mnuClose_Click()
    '
 OLE
    OLE1.Close
End Sub
Private Sub mnuCloseOLE_Click()
    OLE1.Close
End Sub
Private Sub mnuCopy_Click()
    If OLE1.AppIsRunning = True Then
        OLE1.Copy
    Else
        OLE1.AppIsRunning = True
        If OLE1.AppIsRunning Then OLE1.Copy
    End If
    If OLE1.OLEType <> vbOLENone Then   '
        '
        Screen.MousePointer = 11
        If OLE1.AppIsRunning Then
           OLE1.Copy                    '
        End If
    End If
    Screen.MousePointer = 0
End Sub
Private Sub mnuDelete_Click()
    If OLE1.OLEType <> vbOLENone Then   '
        OLE1.Delete                     '
    End If
        Unload Me
End Sub
Private Sub mnuEdit_Click()
    On Error Resume Next
    If Err Then
        MsgBox "
    End If
    If OLE1.PasteOK Then
        ParentForm.ActiveForm.mnuSpecial.Enabled = True
    Else
        ParentForm.ActiveForm.mnuSpecial.Enabled = False
    End If
End Sub
Private Sub mnuExit_Click()
    End
End Sub
Private Sub mnuFileNew_Click()
    NewObject
End Sub
Private Sub mnuOpen_Click()
    OpenObject
End Sub
Private Sub mnuSave_Click()
    OpenSave ("Save")
End Sub
Private Sub mnuSpecial_Click()
    If OLE1.PasteOK Then
        MDINew = False
        OLE1.PasteSpecialDlg
        Screen.MousePointer = 11
        UpdateCaption
        Screen.MousePointer = 0
    End If
End Sub
Private Sub mnuTile_Click()
    ParentForm.Arrange vbTileHorizontal
End Sub
Private Sub mnuUpdate_Click()
    Screen.MousePointer = 11
    OLE1.Update
    Screen.MousePointer = 0
End Sub
Private Sub Ole1_ObjectMove(Left As Single, Top As Single, Width As Single, Height As Single)
    OLE1.Move OLE1.Left, OLE1.Top, Width, Height
    OLE1.Move Left, Top, OLE1.Width, OLE1.Height
End Sub
Private Sub OLE1_Resize(HeightNew As Single, WidthNew As Single)
    OLE1.SizeMode = vbOLESizeAutoSize
End Sub
Private Sub Ole1_Updated(Code As Integer)
    OLE1.SizeMode = vbOLESizeAutoSize
End Sub