home *** CD-ROM | disk | FTP | other *** search
/ Master 95 #1 / MASTER95_1.iso / microsof / vbasic4 / vb4-6.cab / scrmain.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-07-26  |  2.3 KB  |  74 lines
  1. VERSION 4.00
  2. Begin VB.MDIForm frmMain 
  3.    BackColor       =   &H8000000C&
  4.    Caption         =   "Mouse Examples"
  5.    ClientHeight    =   4395
  6.    ClientLeft      =   240
  7.    ClientTop       =   1785
  8.    ClientWidth     =   7275
  9.    Height          =   5085
  10.    Left            =   180
  11.    LinkTopic       =   "MDIForm1"
  12.    Top             =   1155
  13.    Width           =   7395
  14.    Begin VB.Menu mnuOptions 
  15.       Caption         =   "&Options"
  16.       Begin VB.Menu mnuClickLine 
  17.          Caption         =   "&Click-A-Line"
  18.       End
  19.       Begin VB.Menu mnuScribble 
  20.          Caption         =   "&Scribble"
  21.       End
  22.       Begin VB.Menu mnuDragDrop 
  23.          Caption         =   "&Drag and Drop"
  24.       End
  25.       Begin VB.Menu sep1 
  26.          Caption         =   "-"
  27.       End
  28.       Begin VB.Menu mnuInstructions 
  29.          Caption         =   "&Instructions"
  30.       End
  31.       Begin VB.Menu sep2 
  32.          Caption         =   "-"
  33.       End
  34.       Begin VB.Menu mnuExit 
  35.          Caption         =   "E&xit"
  36.       End
  37.    End
  38. Attribute VB_Name = "frmMain"
  39. Attribute VB_Creatable = False
  40. Attribute VB_Exposed = False
  41. Private Sub MDIForm_Unload(Cancel As Integer)
  42.     End
  43. End Sub
  44. Private Sub mnuClickLine_Click()
  45.     frmClickLine.Cls
  46. End Sub
  47. Private Sub mnuDragDrop_Click()
  48.     frmDrag.Show
  49. End Sub
  50. Private Sub mnuExit_Click()
  51.     End
  52. End Sub
  53. Private Sub mnuInstructions_Click()
  54.     ' Declare local variables.
  55.     Dim MsgText
  56.     Dim CR
  57.     Dim PB
  58.     ' Initialize paragraph break local variable.
  59.     CR = Chr$(10) & Chr$(13)
  60.     PB = Chr$(10) & Chr$(13) & Chr$(10) & Chr$(13)
  61.     ' Define message text.
  62.     MsgText = "Click-A-Line"
  63.     MsgText = MsgText & CR & "Click the form several times to draw connecting lines."
  64.     MsgText = MsgText & PB & "Scribble"
  65.     MsgText = MsgText & CR & "Drag the mouse across the form to draw a line."
  66.     MsgText = MsgText & PB & "Drag and Drop"
  67.     MsgText = MsgText & CR & "Select a valid text (.txt), bitmap (.bmp), Windows executable (.exe), or Help (.hlp) file in the file list box. Drag the file and drop it into the picture box to display or execute the file."
  68.     ' Display the message.
  69.     MsgBox MsgText, 64, "Mouse Demo Instructions"
  70. End Sub
  71. Private Sub mnuScribble_Click()
  72.     frmScribble.Cls
  73. End Sub
  74.