home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / CODIGO_1 / CURS_MAN / CURSMAN.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1992-09-12  |  3.5 KB  |  88 lines
  1. Form1
  2. -Cursor Manipulations - (c)1992 Pierre Fillion
  3. Form1,
  4. Label1
  5. Label2
  6. Label3
  7. Click in box to set a position
  8. Command2
  9. &Go to position 
  10. Command1
  11. E&xit
  12. Command3
  13. &Hide cursor
  14. Command4
  15. &Show cursor
  16. Command5
  17. &Clip Cursor
  18. Command6
  19. &UnClip Cursor
  20. Command1_Click
  21. Picture1_Click
  22. GetCursorPos
  23. Picture2_ClickS
  24. Picture4_Click
  25. Picture3_Click3
  26. Command2_Click
  27. SetCursorPos
  28. Label3_ClickT
  29. Form1%
  30. Label2
  31. Captionm
  32. Command3_Click
  33. ShowCursorn
  34. State
  35. C_Hide
  36. Command4_Click
  37. C_ShowI
  38. Label1
  39. Label3
  40. C_State
  41. C_HideThen7
  42. Command6_Click
  43. Screen
  44. Height
  45. Width
  46. ClipCursor
  47. lpRect
  48. ClipWin
  49. Right
  50. Bottomh
  51. Command5_Click
  52. convert
  53. twips
  54. Form_Click
  55. Label1_Click
  56. Label2_Click
  57. Command1_Click
  58. Exit the program
  59. Picture1_Click
  60. Picture2_Click
  61. Picture4_Click
  62. Picture3_Click
  63. Command2_Click
  64. Call API function to set cursor position on the screen
  65. defined in tPos.X and tPos.Y in Sub Label3_Click ()e
  66. Label3_Click
  67. Store the current position of the cursor on mouse click in Label3
  68. Command3_Click
  69. Verify if the cursor is already hidden (to prevent stacking)
  70. If not hide it!u
  71. Press Alt+S to show cursor
  72. Command4_Click
  73. Verify if the cursor is already showed (to prevent stacking)
  74. If not show it!u
  75. Click in box to set a position
  76. Command6_Click
  77. Clip Positions defined on screen resolution
  78. Divided by 15 to convert twips in pixels for the API calln
  79. Click in box to set a position
  80. Clip= T:
  81. Call API to clip cursor in positions
  82. Command5_Click
  83. Clip Positions defined on Form1 positionsf
  84. Divided by 15 to convert twips in pixels for the API calln
  85. Click in box to set a position
  86. Clip= T:
  87. Call API to clip cursor in positions
  88.