home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l408 / 2.img / EXAMPLES.EXE / EXAMPLES / CURPOS / CURPOS.FRM (.txt) next >
Encoding:
Visual Basic Form  |  1992-10-12  |  3.3 KB  |  74 lines
  1. CurPos
  2. &Demonstrate Showing the Caret Position
  3. System
  4. ww{www
  5. ww{www
  6. Form1
  7.     CursorPos
  8. System
  9. Label2
  10. nWhen you use the View menu option, you are toggling the state of the picturebox that shows the caret position.
  11. System
  12. FileMenu
  13. &File
  14. FileMenuExit
  15. E&xit
  16. ViewMenu
  17. &View
  18. ViewMenuCp
  19. &Caret Position
  20. CursorPosTest
  21. FileMenu
  22. FileMenuExit
  23. ViewMenu
  24. ViewMenuCpk
  25. FileMenuExit_Click}
  26. ViewMenuCp_Click
  27.     CursorPos
  28. Cptest
  29. Right
  30. Width@
  31. Enabled
  32. Form_Click`
  33. Form_MouseMoveN
  34. Button
  35. Shift
  36.     CursorLoc
  37. Caption
  38. FileMenu_Click
  39. ViewMenu_Click+
  40. Picture1
  41. CurPos
  42. Label1
  43. CurrentX
  44. Visible
  45. False
  46. Picture
  47. Checked
  48. CurrentY
  49.     ScaleMode
  50. Divisor
  51. Label2
  52. Label1_Click?
  53. Label1_MouseMove
  54. Label2_MouseMove]
  55. MhTrue
  56. MhFalse
  57. Important: In order for the cursor position indicatorr
  58.  to function smoothly, the picture box should have
  59.  AutoRedraw=MhFalse and FontTransparent=MhFalse.
  60. FileMenuExit_Click
  61. ViewMenuCp_Click
  62.  If picturebox is visible, make it invisible
  63.  Uncheck menu item
  64.  Make it visible
  65.  Check menu item
  66. Form_MouseMove
  67.  Convert from Twips to pixels
  68.  No conversion necessary
  69.  Where to "draw" next X 
  70.  Where to "draw" next Y 
  71.   000"
  72. Label1_MouseMove
  73. Label2_MouseMove
  74.