home *** CD-ROM | disk | FTP | other *** search
/ Tools / WinSN5.0Ver.iso / PVb5.0 / VB / SAMPLES / PGUIDE / MOUSE / SCRIBBLE.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1997-01-20  |  1.1 KB  |  35 lines
  1. VERSION 5.00
  2. Begin VB.Form frmScribble 
  3.    Caption         =   "
  4.    ClientHeight    =   4590
  5.    ClientLeft      =   1125
  6.    ClientTop       =   2115
  7.    ClientWidth     =   4995
  8.    ClipControls    =   0   'False
  9.    DrawMode        =   14  'Copy Pen
  10.    LinkTopic       =   "Form1"
  11.    MDIChild        =   -1  'True
  12.    PaletteMode     =   1  'UseZOrder
  13.    ScaleHeight     =   4590
  14.    ScaleWidth      =   4995
  15. Attribute VB_Name = "frmScribble"
  16. Attribute VB_GlobalNameSpace = False
  17. Attribute VB_Creatable = False
  18. Attribute VB_PredeclaredId = True
  19. Attribute VB_Exposed = False
  20. Dim DrawNow As Integer
  21. Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  22.     DrawNow = -1
  23.     CurrentX = X
  24.     CurrentY = Y
  25. End Sub
  26. Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  27.     If DrawNow Then
  28.         Line -(X, Y)
  29.         Circle (X, Y), 50
  30.     End If
  31. End Sub
  32. Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  33.     DrawNow = 0
  34. End Sub
  35.