home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PROG_BAS / TBAR15.ZIP / MDIFORM1.FRM (.txt) < prev    next >
Visual Basic Form  |  1994-01-13  |  6KB  |  96 lines
  1. MDIForm1
  2.     TBar Demo
  3. MDIForm15
  4. Picture1
  5. Label1
  6. No Mouse Events Received Yet!
  7. TBar1
  8. wwwwp
  9. wwwwwp
  10. 0;;8;;;8;8
  11. 0;;;;;;1;1;1;1
  12. ;;;1;1;1
  13. None;;;;;;None;8,9;7,9;7,8
  14. ;;;;;;1 
  15. TBar1_ClickA
  16. MDIForm_Load
  17. TBar1
  18. ButtonState
  19. define
  20. BS_IS_TOGGLED
  21. BS_IS_ENABLED
  22. BS_IS_NOTTOGGLEDh
  23. BS_IS_NOTENABLED
  24. Picture1_Click"
  25. Picture1_ResizeS
  26. Label1
  27. Widthq
  28. Picture1D
  29. Picture1_Paint
  30. Picture
  31. Height
  32. Bevel
  33. Picutre1
  34. Button
  35. TBar1_MouseMove
  36. MouseButton
  37. Shift
  38. Caption
  39. CurY;
  40. TBar1_MouseDown
  41. TBar1_MouseUp
  42. TBar1_DoubleClick
  43. TBar1_Toggle
  44. State
  45. aString
  46. Form1
  47. IS_VISIBLEo
  48. BS_IS_VISIBLE
  49. BS_IS_INVISIBLEF
  50. MDIForm_Load
  51.  TBar1.Id(0) = 1
  52.  TBar1.Id(1) = 0
  53.  TBar1.ButtonState(1) = BS_IS_INVISIBLE
  54. TBar1_Click
  55. Button 
  56.  was clicked!
  57. TBar1_DoubleClick
  58. Double click received for button 
  59. TBar1_MouseDown
  60. Left mouse button is pressed!  Button is 
  61. Right mouse button is pressed!  Button is 
  62. Middle mouse button is pressed! Button is 
  63. Shift button is down
  64. Control button is down
  65. Alt button is down
  66. TBar1_MouseMove
  67. Open an empty document
  68. Open existing document
  69. Save current document
  70. Cut currently selected text
  71. Cut currently selected text to the clipboard
  72. Insert text in clipboard into text
  73. Change line styles
  74. Print the current document
  75. Open help
  76. Open context sensitive help
  77. Mouse is moving
  78.  Uncommenting this line doesn't allow other events to be processed
  79.  So uncomment it only for testing purposes
  80.  If CurX <> X Or CurY <> Y Then Debug.Print "Mouse is at:"; X; ","; Y
  81. If MouseButton And 1 Then Debug.Print "Left mouse button is pressed!"t
  82. If MouseButton And 2 Then Debug.Print "Right mouse button is pressed!"
  83. If MouseButton And 4 Then Debug.Print "Middle mouse button is pressed!"
  84. If Shift And 1 Then Debug.Print "Shift button is down"
  85. If Shift And 2 Then Debug.Print "Control button is down"
  86. TBar1_MouseUp
  87. If MouseButton And 1 Then Debug.Print "Left mouse button is Up!  Button is "; Button
  88. If MouseButton And 2 Then Debug.Print "Right mouse button is Up!  Button is "; Button
  89. If MouseButton And 4 Then Debug.Print "Middle mouse button is Up! Button is "; Button
  90. If Shift And 1 Then Debug.Print "Shift button is down"
  91. If Shift And 2 Then Debug.Print "Control button is down"
  92. If Shift And 4 Then Debug.Print "Alt button is down"
  93. TBar1_Toggle
  94. Button 
  95.  toggled to 
  96.