home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PROG_BAS / DGDEMO.ZIP / TGDEMO9.FRM (.txt) < prev    next >
Visual Basic Form  |  1994-01-25  |  5KB  |  118 lines
  1. Demo9
  2. Demo 9 - Drag and Drop
  3. Form15`    
  4. Table2
  5. TgDemo
  6. MS Sans Serif
  7. CallDate
  8. Phone
  9. Phone
  10. "("###")" ###"-"####
  11. Customer
  12. Customer
  13. Data2R
  14. Data2%
  15. OE.MDB
  16. CallList
  17. Data2
  18. Table1
  19. TgDemo
  20. MS Sans Serif
  21. LastName
  22. First
  23. FirstName
  24. Company
  25. Company
  26. Phone
  27. Phone
  28. "("###")" ###"-"####
  29. Data1R
  30. Data1%
  31. OE.MDB
  32.     Customers
  33. Data1
  34. Label2
  35. To here:
  36. Label1
  37. Drag from here:
  38. Form_UnloadU
  39. Cancel~
  40. QuitCurrentDemo
  41. ResetDragDrop
  42. Table1
  43. MarqueeStyle)
  44. GMQ_SOLIDCELL
  45. Data1u
  46. Captionj
  47. Table1_DragCell
  48. Split
  49. ColumnIndex
  50. RowIndex
  51. ColumnName
  52. GMQ_HIGHCELL
  53. GMQ_HIGHROW
  54. BEGIN_DRAG
  55. Table1_MouseMove
  56. Buttoni
  57. Shift
  58. Table2_DragDrop`
  59. Source
  60. Control
  61. Table2
  62. ColumnText
  63. Data2
  64.     Recordset"
  65. CallDate
  66. Phone
  67. Customer
  68.     FirstName
  69. LastNameJ
  70. Company
  71. Table2_DragOver
  72. State
  73. dragFrom
  74. overCol
  75. overRow
  76. ENTER
  77. GMQ_NONE
  78. LEAVE
  79. PointX
  80. PointY
  81. ColumnAtPoint
  82. RowAtPoint
  83. Table2_KeyUp
  84. KeyCode
  85. KEY_DELETE
  86. EditActive
  87. Form_Unload
  88. ResetDragDrop
  89.  Turn off drag drop by resetting the highlight
  90.  and data control caption.
  91. Drag a row, or just phone #
  92. Table1_DragCell
  93.  DragCell is triggered when TrueGrid detects an attempt
  94.  to drag data from a cell.  We first set the actuale
  95.  cell location to the one being dragged, then change
  96.  the marquee to indicate whether we're dragging a row,
  97.  or just the phone number.
  98. Phone
  99. Dragging phone number...
  100. Create new call when dropped...
  101.  Use Visual Basic manual drag supporte
  102. Table1_MouseMove
  103.  If the button is up and we get MouseMove, that means,
  104.  we exited the form and tried to drop elsewhere.
  105.  Reset the drag upon returning.o
  106. Table2_DragDrop
  107.  Allow phone drops right into the cell, other
  108.  drops cause a new row to be added
  109. Phone
  110. Table2_DragOver
  111.  DragOver provides visual feedback as we are dragging,
  112.  a row, or just the phone number.k
  113. Phone
  114. Phone
  115. Table2_KeyUp
  116.  Allow the DELETE key to remove a record, providingn
  117.  that we're not currently editing data in a cell.n
  118.