home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Visual Database / Visual BASIC 5.0 (Ent. Edition) / Vb5ent Extractor.EXE / VB / SAMPLES / PGUIDE / MOUSE / SCRMAIN.FRM (.txt) < prev   
Encoding:
Visual Basic Form  |  1997-01-08  |  2.2 KB  |  72 lines
  1. VERSION 5.00
  2. Begin VB.MDIForm frmMain 
  3.    BackColor       =   &H8000000C&
  4.    Caption         =   "Mouse Examples"
  5.    ClientHeight    =   4395
  6.    ClientLeft      =   1290
  7.    ClientTop       =   2160
  8.    ClientWidth     =   7275
  9.    LinkTopic       =   "MDIForm1"
  10.    Begin VB.Menu mnuOptions 
  11.       Caption         =   "&Options"
  12.       Begin VB.Menu mnuClickLine 
  13.          Caption         =   "&Click-A-Line"
  14.       End
  15.       Begin VB.Menu mnuScribble 
  16.          Caption         =   "&Scribble"
  17.       End
  18.       Begin VB.Menu mnuDragDrop 
  19.          Caption         =   "&Drag and Drop"
  20.       End
  21.       Begin VB.Menu sep1 
  22.          Caption         =   "-"
  23.       End
  24.       Begin VB.Menu mnuInstructions 
  25.          Caption         =   "&Instructions"
  26.       End
  27.       Begin VB.Menu sep2 
  28.          Caption         =   "-"
  29.       End
  30.       Begin VB.Menu mnuExit 
  31.          Caption         =   "E&xit"
  32.       End
  33.    End
  34. Attribute VB_Name = "frmMain"
  35. Attribute VB_GlobalNameSpace = False
  36. Attribute VB_Creatable = False
  37. Attribute VB_PredeclaredId = True
  38. Attribute VB_Exposed = False
  39. Private Sub MDIForm_Unload(Cancel As Integer)
  40.     End
  41. End Sub
  42. Private Sub mnuClickLine_Click()
  43.     frmClickLine.Cls
  44. End Sub
  45. Private Sub mnuDragDrop_Click()
  46.     frmDrag.Show
  47. End Sub
  48. Private Sub mnuExit_Click()
  49.     End
  50. End Sub
  51. Private Sub mnuInstructions_Click()
  52.     ' Declare local variables.
  53.     Dim MsgText
  54.     Dim CR
  55.     Dim PB
  56.     ' Initialize paragraph break local variable.
  57.     CR = Chr$(10) & Chr$(13)
  58.     PB = Chr$(10) & Chr$(13) & Chr$(10) & Chr$(13)
  59.     ' Define message text.
  60.     MsgText = "Click-A-Line"
  61.     MsgText = MsgText & CR & "Click the form several times to draw connecting lines."
  62.     MsgText = MsgText & PB & "Scribble"
  63.     MsgText = MsgText & CR & "Drag the mouse across the form to draw a line."
  64.     MsgText = MsgText & PB & "Drag and Drop"
  65.     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."
  66.     ' Display the message.
  67.     MsgBox MsgText, 64, "Mouse Demo Instructions"
  68. End Sub
  69. Private Sub mnuScribble_Click()
  70.     frmScribble.Cls
  71. End Sub
  72.