home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / CODIGO_1 / TABLES / TABLE.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1991-07-14  |  3.7 KB  |  92 lines
  1. Form1
  2. MarkUps R Us
  3. Form1
  4. Label6
  5. Product Name
  6. Label7
  7. Label8
  8. MarkUp
  9. Label9
  10. Price
  11. Label10
  12. In Stock
  13. Label1
  14. ProdName
  15. Label2
  16. Label3
  17. MarkUp
  18. Label4
  19. Price
  20. Label5
  21. InStock
  22. VScroll1
  23. Form_Click
  24. Array1
  25. Array2
  26. Array3
  27. Array4
  28. Array5
  29. Array6
  30. Array7
  31. Array8
  32. @    Form_Load
  33. SampleData|
  34. Item.
  35. ProdName
  36. Label1A
  37. Caption
  38. Costp
  39. Label2
  40. MarkUp
  41. Label3
  42. Price
  43. Label4
  44. InStock
  45. Label5i
  46. VScroll1
  47. MaxItems
  48. VScroll
  49. SmallChange
  50. LargeChange
  51. TableLen
  52. Value
  53. DisplayItems
  54. VScroll1_Change
  55. Itiem
  56. Form_Load
  57. ==> Set the random number generator seed. 
  58. ==> Generate random sample data.
  59. => Dummy Product name.
  60. => Cost of $1 to $70..
  61. => Markup as decimal.f
  62. ==> Set the parameters for the vertical scroll bar. 
  63. => So we don't overrun the end of the Item array.e
  64. => We want a 1 item overlap between pages.
  65. ==> Display the Items. Note that the top
  66.  item in the table is always Item(VScroll1.Value).
  67. DisplayItems
  68.  This is the routine that creates the Captions for eachh
  69.  Label Control. The captions consist of two strings fors
  70.  each line of the Label Control. The first string is the
  71.  value that is to be displayed on a Label line. The second
  72.  string is the End Of Line string (EOL$) which consistss
  73.  of several blank spaces to center the text in the
  74.  middle of the label followed by a Carriage Return
  75.  Chr$(13) and a LineFeed Chr$(10).
  76.  This routine is called by the Form_Load routine and the
  77.  VScroll1_Change routine..
  78. ==> The End Of Line string. 
  79. ==> VScroll1.Value is the index to the Item that
  80.  is displayed as the first item in the table.t
  81. ==> Build the strings for the first Item in the table.
  82. 0.0000
  83. ##,##0
  84. ==> Add the rest of the Items in the table to theo
  85.  initial strings.r
  86. 0.0000
  87. ##,##0
  88. ==> Append blanks to the last Item to keep it aligned.
  89. VScroll1_Change
  90. ==> Display the set of Items beginning with theh
  91.  current VScroll1.Value.
  92.