Liren Large Software Subsidy 10/10.iso/l/l405/1.ddi/MAIN1.FR_/MAIN1.bin

Visual Basic Form | 1993-04-28 | 1.9 KB | 66 lines

VERSION 2.00
Begin MDIForm frmMain
   Caption         =   "Mouse Examples"
   Height          =   5130
   Left            =   195
   LinkTopic       =   "MDIForm1"
   Top             =   1095
   Width           =   7365
   Begin Menu mnuOptions
      Caption         =   "&Options"
      Begin Menu mnuClickLine
         Caption         =   "&Click-A-Line"
      End
      Begin Menu mnuScribble
         Caption         =   "&Scribble"
      End
      Begin Menu mnuDragDrop
         Caption         =   "&Drag Drop"
      End
      Begin Menu sep1
         Caption         =   "-"
      End
      Begin Menu mnuInstructions
         Caption         =   "&Instructions"
      End
      Begin Menu sep2
         Caption         =   "-"
      End
      Begin Menu mnuExit
         Caption         =   "E&xit"
      End
   End
Sub MDIForm_Unload (Cancel As Integer)
    End
End Sub
Sub mnuClickLine_Click ()
    frmClickLine.Cls
End Sub
Sub mnuDragDrop_Click ()
    frmDrag.Show
End Sub
Sub mnuExit_Click ()
    End
End Sub
Sub mnuInstructions_Click ()
    ' Declare local variables
    Dim MsgText
    Dim CR
    Dim PB
    ' Initialize paragraph break local variable
    CR = Chr$(10) & Chr$(13)
    PB = Chr$(10) & Chr$(13) & Chr$(10) & Chr$(13)
    ' Define message text
    MsgText = "Click-A-Line"
    MsgText = MsgText & CR & "Click on the form to draw connecting lines."
    MsgText = MsgText & PB & "Scribble"
    MsgText = MsgText & CR & "Drag the mouse across the from to draw a line."
    MsgText = MsgText & PB & "Drag Drop"
    MsgText = MsgText & CR & "Select a valid text (.txt), bitmap (.bmp), Windows executable (.exe), or Help (.hlp) file in the files list box. Drag the file and drop it in the picture box to display or execute the file."
    ' Display message
    MsgBox MsgText, 64, "Mouse Demo Instructions"
End Sub
Sub mnuScribble_Click ()
    frmScribble.Cls
End Sub