home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Basic / Samples / VBUTIL / VBUTIL.ZIP / MOUSEV2.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1993-03-05  |  7.2 KB  |  172 lines
  1. Form1
  2. Mouse Events (part 2)
  3. Form1%
  4. MouseCoordBox
  5. QuitCom
  6. &Quit
  7. ClearCom
  8. &Clear
  9. LastBoxCom
  10. Last box
  11. "    ScreenCom
  12. Screen
  13. Form_Click
  14. @    Form_LoadY
  15. DateFormatOptn
  16. Value>
  17. TimeFormat
  18. TimeFormatOpt*
  19. NowBtn_Click
  20. TextBox
  21. QuitBtn_ClickV
  22. CountryCmb_Change%
  23. CountryCmbI
  24.     ComboItemm
  25. VScroll1_Change
  26. TimeScl_Changed
  27. ScrollBarValueBox
  28. TimeSclc
  29. ScrollValueBox
  30. Label1_Click&
  31. TimerBtn_Click
  32. Count
  33. Total
  34. TextLine
  35. TimerBtnt
  36. Caption
  37. ScrollValueBox_Change
  38. MaxLbl_Click~
  39. TextBox_Change@
  40. TextBox_LostFocus
  41. QuitBtn)
  42. Enabled
  43. FalseA
  44.     MIN_VALUE
  45.     MAX_VALUE
  46. MinLble
  47. MaxLbl
  48. SmallChange
  49. LargeChange
  50. properties
  51. PrintBtn_Click
  52. Filename:
  53. CurrentLineNumber$
  54.     MAX_LINES/
  55. PrintHeadingq
  56. Printer_
  57. BadFiley
  58. ExitSub
  59. PrintHadingW
  60. PageNumber
  61. PageNum}
  62. PageNumStr
  63. PrintTab
  64. TAB_SIZE
  65. PageNumberStr
  66. PageX
  67. TextBox_KeyPress
  68. KeyAscii
  69. WindowState
  70. MousePointer`
  71.     BackColor
  72. WHITEL
  73.     ForeColor
  74. BLACK
  75. IsFirst
  76. QuitCom_ClickR
  77. ClearCom_Click
  78. ScreenCom_Click
  79. LastLineCom_Click
  80. MouseIsDown
  81. Ystrj
  82. Form_MouseDown
  83. Button
  84. Shift
  85. Form_MouseUp
  86. Form_MouseMove
  87.     MouseDown
  88. MouseCoordBox
  89. LastX
  90. LastYG
  91. FirstX0
  92. FirstY
  93. those
  94. FillBox|
  95.     IsFillBox
  96. LEFT_BUTTONE
  97.     MAX_BOXES
  98. CROSS
  99. RIGHT_BUTTON
  100. FinBox
  101. FindBox
  102. @    RemoveBoxV
  103.     AsInteger
  104. UpdateBoxes
  105. DiffY
  106. DiffX
  107. MouseCoordBox_Change
  108. PressedCTRL7
  109. PressedSHIFT
  110. PressedALT
  111. AlterBoxOrder
  112. Updateg
  113. TheFillBox
  114. TheFileBox
  115. DragBoxIndex
  116. ShiftX
  117. ShiftY
  118. Form_KeyDown
  119. KeyCode
  120. YELLOW
  121. LastBoxCom_Click
  122. ##0.0
  123.  declare the arrays of data for the boxesx
  124.  number of lines
  125.  DBI is short for DraggedBoxIndexe
  126. - Boolean Variables 
  127. AlterBoxOrder
  128.  make the topmost box at the (X, Y) location the
  129.  topmost box in the set of boxes
  130.  find the boxb
  131.  if found a box that is not already the topmoste
  132.  store data of selected box 
  133.  shift the data for the other boxes 
  134.  update the data of the topmost box 
  135. FindBox
  136.  find the "topmost" box which contains the coordinates
  137.  (X, Y) the function returns the index of the matching
  138.  box, or 0 if no box is foundd
  139.  is (X, Y) between (X1(I),Y1(I)) and (X2(I),Y2(I)) ?
  140.  yes? then exitI
  141.  return the function resultn
  142. Form_Load
  143. Form_MouseDown
  144.  initialize Boolean flags
  145.  SHIFT key pressed ?
  146.  CTRL key pressed?
  147.  ALT key pressed
  148.  attained maximum number of boxes?
  149.  store coordinates of start point
  150.  initialize coordinates of end point
  151.  with those of the start point
  152. Form_MouseMove
  153.  dragging a box?
  154.  calculate shift in coordinates(
  155.  drawing a box?t
  156. Form_MouseUp
  157.  updated box movei
  158.  add a new box?d
  159. LastBoxCom_Click
  160.  delete the topmost box
  161. QuitCom_Click
  162. RemoveBox
  163.  remove the topmost box at the (X, Y) coordinates.  
  164.  find matching box
  165.  found one? 
  166.  not the last box?
  167.  erase the box
  168.  shift the data for the other boxes
  169.  delete the last box
  170. ScreenCom_Click
  171. UpdateBoxes
  172.