home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l408 / 2.img / EXAMPLES.EXE / EXAMPLES / EDITCOL / EDITCOL.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1992-10-12  |  4.2 KB  |  125 lines
  1. EditColors
  2. Edit Colors
  3. System
  4. Form1
  5.     ColorText
  6. System
  7. ColorBar
  8.     MhHScroll
  9. EdColVal
  10. System
  11.     EdColFill
  12. System
  13.     ColorText
  14. &Green
  15. System
  16. ColorBar
  17.     MhHScroll
  18. EdColVal
  19. System
  20.     ColorText
  21. &Blue
  22. System
  23. ColorBar
  24.     MhHScroll
  25. EdColVal
  26. System
  27. EdColCommand
  28. System
  29. EdColCommand
  30. Cancel
  31. System
  32. EdColCommand
  33. R&eset
  34. System
  35. Label1
  36.     ColorText
  37. HScroll1
  38. ColorBar
  39. Command1
  40. EdColCommandi
  41. Text1
  42. EdColVal
  43. Picture1
  44.     EdColFill^
  45. Form1
  46. EdCoTest
  47. ColorText_Click
  48. Index
  49. Form_Click
  50. TestColCommandZ
  51. Form_LinkCloset
  52. Form_LinkError
  53. LinkErr
  54. Form_LinkExecute
  55. CmdStr
  56. Cancel
  57. Form_LinkOpen)
  58. @    Form_Load
  59. Form_LostFocus
  60. EdColCommand_LostFocus
  61. EditColors 
  62. OriginalColor
  63.     BackColor+
  64. EdColCommand_Click
  65. ShowRgbValues
  66. OldRedH
  67. OldGreen
  68. OldBlue
  69. ExtractRedm
  70. ExtractGreen
  71. ExtractBlue
  72. Green
  73. Caption
  74. Form_GotFocus
  75. Value
  76. ColorBar_Change
  77. Colorr
  78. ColorBar_GotFocus_
  79. MouseChange
  80. ColorBar_MouseChangeY
  81. EdColFill_GotFocus
  82. Enabled>
  83. EdColFill_Click
  84. EdColVal_Click
  85. width
  86. EdColCommand_GotFocus
  87. RestoreColor
  88. UpdateInProcess
  89. False
  90. Form_Resize)
  91.     KickStart$
  92. KickStart_Click7
  93. EditDone
  94. MhHScrollBar1
  95. ColorBar_Change1
  96. PartBar
  97. UpdateBars
  98. SetFinalColor
  99. HiddenLabel
  100. Actives
  101. MhTrue
  102. MhFalse
  103.  Note that each of the controls in EditColors has af
  104.  call to ShowRgbValues in the GotFocus event. 
  105.  This is because during early testing of Visual Basic,
  106.  if controls existed on a form, then the form itself
  107.  did not get a GotFocus event.
  108.  Module level declarationv
  109. EdColCommand_Click
  110.  OK Button
  111.  Cancel Button
  112.  Reset
  113. EdColCommand_GotFocus
  114. EdColFill_GotFocus
  115. ShowRgbValues
  116.  Isolate the color valuesi
  117. 000000
  118.  Fill the labels with the values
  119. ColorBar_Change1
  120.  Do this only if we're not already in process from
  121.  Show the new value in the box
  122. UpdateBars
  123.  Set the scroll bar positions
  124. Form_Load
  125.