home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / actvcrsr / cursorde.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-01-20  |  1.9 KB  |  65 lines
  1. VERSION 5.00
  2. Object = "{98DA81CC-91CB-11D1-96FF-E86909C1A868}#10.0#0"; "ActiveCursor.ocx"
  3. Begin VB.Form Form1 
  4.    Caption         =   "Form1"
  5.    ClientHeight    =   1644
  6.    ClientLeft      =   -120
  7.    ClientTop       =   276
  8.    ClientWidth     =   3684
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   1644
  11.    ScaleWidth      =   3684
  12.    Begin ActiveCursor.cursorControl cursorControl1 
  13.       Left            =   840
  14.       Top             =   600
  15.       _ExtentX        =   656
  16.       _ExtentY        =   656
  17.    End
  18.    Begin VB.CommandButton cmdCancel 
  19.       Caption         =   "Stop"
  20.       Height          =   372
  21.       Left            =   2520
  22.       TabIndex        =   0
  23.       Top             =   1080
  24.       Width           =   972
  25.    End
  26.    Begin VB.Timer Timer1 
  27.       Interval        =   100
  28.       Left            =   120
  29.       Top             =   120
  30.    End
  31.    Begin VB.Label Label1 
  32.       Caption         =   "Press Enter to stop this demo"
  33.       Height          =   372
  34.       Left            =   600
  35.       TabIndex        =   1
  36.       Top             =   120
  37.       Width           =   2292
  38.    End
  39. Attribute VB_Name = "Form1"
  40. Attribute VB_GlobalNameSpace = False
  41. Attribute VB_Creatable = False
  42. Attribute VB_PredeclaredId = True
  43. Attribute VB_Exposed = False
  44. Dim curXY As POINTAPI
  45. Dim x, y As Long
  46. Private Sub cmdCancel_Click()
  47.     End
  48. End Sub
  49. Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
  50.     'cursorControl1.setVisible (false)
  51.     Let cursorControl1.Visible = False
  52. End Sub
  53. Private Sub Form_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
  54.     'cursorControl1.setVisible (True)
  55.     Let cursorControl1.Visible = True
  56. End Sub
  57. Private Sub Timer1_Timer()
  58.   Debug.Print cursorControl1.getX, cursorControl1.getY
  59.   'cursorControl1.setX (x)
  60.   'cursorControl1.setY (y)
  61.   cursorControl1.setXY x, y
  62.   x = x + 1
  63.   y = y + 1
  64. End Sub
  65.