home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PROG_BAS / DBGRID.ZIP / DEMOFORM.FRM (.txt) < prev    next >
Visual Basic Form  |  1994-01-16  |  10KB  |  276 lines
  1. DemoForm
  2. DBT Grid Demonstration Program
  3.     Wingdings
  4. Form1,
  5. RowLabel
  6. RowPosition
  7. ColumnLabel
  8. Column:
  9. ColumnPosition
  10. DBTGrid1
  11. DBTGrid
  12. &(Copyright (C)-1993, by Douglas A. Bebber
  13. MNU_GridSettings
  14. &Grid
  15. MNU_ColumnLabels
  16. &Column labels
  17. MNU_ColLabelsNone
  18. &None
  19. MNU_ColLabelLetters
  20. &Letters
  21. MNU_ColLabNum
  22. &Numbers
  23. MNU_ColLabelUser
  24. &User defined
  25. MNU_Edit
  26. &Edit mode
  27. MNU_EditOn
  28. MNU_EditOff
  29. MNU_Font
  30. &Fonts
  31.     MNU_FBold
  32. MNU_FBT
  33. MNU_FBF
  34. False
  35. MNU_FontName
  36.     MNU_Arial
  37. Arial
  38. MNU_Courier
  39. Courier
  40. MNU_Fences
  41. Fences
  42. MNU_Fixedsys
  43. Fixedsys
  44. MNU_Modern
  45. Modern
  46. MNU_MSS
  47. MS Sans Serif
  48. MNU_MSSerif
  49. MS Serif
  50. MNU_MTExtra
  51. MT Extra
  52.     MNU_Roman
  53. Roman
  54. MNU_Script
  55. Script
  56. MNU_SmallFonts
  57. Small Fonts
  58. MNU_Symbol
  59. Symbol
  60. MNU_System
  61. System
  62. MNU_Terminal
  63. Terminal
  64. MNU_TNR
  65. Times New Roman
  66. MNU_WDG
  67.     Wingdings
  68. #    MNU_Horiz
  69. &Horizontals
  70. MNU_HorizOn
  71. MNU_HorizOff
  72. MNU_RowLab
  73. &Row labels
  74. MNU_RowLabNo
  75. &None
  76. MNU_RowLabBut
  77. Row &buttons
  78. MNU_RowLabNum
  79. Row &numbers
  80. *    MNU_Verts
  81. &Verticals
  82. MNU_RowVertOn
  83. MNU_VertsOff
  84. MNU_Quit
  85. &Quit
  86. Label1_Click
  87. MNU_Quit_Click
  88. Form_Click
  89. @    Form_Load"
  90. DBTGrid1
  91. Columns    
  92. RowSelection3
  93. SetColumnHeadings
  94. FillGridr
  95. Column
  96. ColumnHeading
  97.     CellStyleY
  98. ColumnStringLengthD
  99. Textf
  100. Form_Resize
  101. Height
  102. Form1
  103. Widthv
  104. DemoForm
  105. DBTGrid1_CellDoubleClicked
  106. DBTGrid1_GridPositionChanged
  107. ColumnPosition
  108. RowPosition
  109. MNU_RowVertOn_Click
  110.     Verticals
  111. MNU_VertsOff_Click/
  112. MNU_HorizOn_Click4
  113. HorizontalsE
  114. MNU_HorizOff_Clicke
  115. MNU_EditOn_Click
  116. EditModez
  117. MNU_EditOff_Click
  118. MNU_ColLabelsNone_Click
  119. ColumnLabels
  120. MNU_ColLabelLetters_Click
  121. MNU_ColLabelUser_Click
  122. MNU_ColLabNum_Click
  123. MNU_RowLabNo_Click
  124.     RowLabels-
  125. MNU_RowLabBut_Click\
  126. MNU_RowLabNum_Click
  127. DBTGrid1_GridHScroll
  128. MNU_Arial_Click
  129. FontName
  130. MNU_Courier_Click
  131. MNU_Fences_Click
  132. MNU_Fixedsys_Click
  133. MNU_Modern_Click
  134. MNU_MSS_Click
  135. DBTGrid1_CellValueChanged
  136. DBTGrid*
  137. MNU_MSSerif_Click?
  138. MNU_MTExtra_ClickR
  139. MNU_Roman_Clickf
  140. MNU_Script_Click~
  141. MNU_SmallFonts_Click
  142. MNU_Symbol_Click
  143. MNU_System_Click
  144. MNU_Terminal_Click
  145. MNU_TNR_Click
  146. MNU_WDG_Click
  147. MNU_FBF_Click-
  148. FontBold
  149. MNU_FBT_Click;
  150. MNU_FBF
  151. CheckedO
  152. MNU_FBT
  153. MNU_EditOn
  154. MNU_EditOff
  155. MNU_ColLabelUserr
  156. MNU_ColLabelNone
  157. MNU_ColLabelsNone
  158. MNU_ColLabelsNum#
  159. MNU_ColLabNum
  160. MNU_ColLabelLetters
  161. MNU_HoizOn
  162. MNU_HorizOn
  163. MNU_HorizOff
  164. MNU_RowVertOn
  165. MNU_RowVertOff
  166. MNU_VertsOff
  167. MNU_RowLabNum
  168. MNU_Row
  169. MNU_RowLabNo
  170. MNU_RowLabBut
  171. MNU_Quit_Click
  172. Form_Load
  173. Define the number of rows and columns in the Grid.
  174. Let the user select single rowso
  175. Now label the Column Headings (keep the defaulti
  176. ColumnHeadingStyle = 0-Centered)
  177. OK the Grid's column format has been set.e
  178. Lets put some data in it!a
  179. SetColumnHeadings
  180. Start with Column #1
  181. Customer No.
  182. Center text in the Celle
  183. Move to Column #2e
  184. Last Name"
  185. Left justify text in the Cellt
  186. Move to Column #3 
  187. First Name
  188. Left justify text in the Cellt
  189. Move to Column #4 
  190. Center text in the Celle
  191. Move to Column #5e
  192. Address"
  193. Left justify text in the Cellt
  194. Move to Column #6 
  195. Left justify text in the Cellt
  196. Move to Column #7 
  197. State"
  198. Center text in the Celle
  199. Move to Column #8e
  200. Center text in the Celle
  201. Move to Column #9e
  202. Phone"
  203. Center text in the Celle
  204. FillGrid
  205. 123459
  206. 1212 Westwood Ave.
  207. Moline
  208. 61265"
  209. (309) 762-4444
  210. Move to Next row
  211. 623857
  212. Smith"
  213. 4733 Carry Street"
  214. Davenport"
  215. 52803"
  216. (319) 326-8088
  217. Move to Next row
  218. 883853
  219. 1114 Sparrow Road"
  220. Rock Island"
  221. 61201"
  222. (309) 788-8086
  223. Move back to Row 0 Column 0
  224. Form_Resize
  225. DBTGrid1_GridPositionChanged
  226. MNU_RowVertOn_Click
  227. MNU_VertsOff_Click
  228. MNU_HorizOn_Click
  229. MNU_HorizOff_Click
  230. MNU_EditOn_Click
  231. MNU_EditOff_Click
  232. MNU_ColLabelsNone_Click
  233. MNU_ColLabelLetters_Click
  234. MNU_ColLabelUser_Click
  235. MNU_ColLabNum_Click
  236. MNU_RowLabNo_Click
  237. MNU_RowLabBut_Click
  238. MNU_RowLabNum_Click
  239. DBTGrid1_CellDoubleClicked
  240. Cell Value: 
  241. MNU_Arial_Click
  242. Arial"
  243. MNU_Courier_Click
  244. Courier"
  245. MNU_Fences_Click
  246. Fences
  247. MNU_Fixedsys_Click
  248. Fixedsys
  249. MNU_Modern_Click
  250. Modern
  251. MNU_MSS_Click
  252. MS Sans Serif"
  253. DBTGrid1_CellValueChanged
  254. MNU_MSSerif_Click
  255. MS Serif
  256. MNU_MTExtra_Click
  257. MT Extra
  258. MNU_Roman_Click
  259. Roman"
  260. MNU_Script_Click
  261. Script
  262. MNU_SmallFonts_Click
  263. Small Fonts"
  264. MNU_Symbol_Click
  265. Symbol
  266. MNU_System_Click
  267. System
  268. MNU_Terminal_Click
  269. Terminal
  270. MNU_TNR_Click
  271. Times New Roman"
  272. MNU_WDG_Click
  273. Wingdings"
  274. MNU_FBF_Click
  275. MNU_FBT_Click
  276.