home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / CODIGO_2 / VB_MENU / MENUBMPS.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1991-09-06  |  26.7 KB  |  210 lines
  1. MenuBitmaps
  2. Bitmap Menus
  3. Script
  4. Form1,
  5. Picture1
  6. wwwww
  7. System
  8. Picture3
  9. Script
  10. Picture1
  11. System
  12. Picture3
  13. Script
  14. Picture1
  15. wwwwwwwww
  16. wwwwwwwwww
  17. wwwwwwwww
  18. wwwwwwwww
  19. wwwwwwwwww
  20. DDDDDDDDDGw
  21. wpwww
  22. wwwwwwwww
  23. wpwwwww
  24. wwwwwp
  25. ffffffff`
  26. DDDDDDDD
  27. wpwwwwwww
  28. fffffffff`wwww
  29. wwwwwwwp
  30. fffffffff`
  31. wpwwwwwwwww
  32. fffffffff
  33. wwwwwwwwwpw
  34. fffffffff
  35. wpwwwwwwwwwwpw
  36. fffffffff`
  37. wwwwwww
  38. fffffffff`
  39. pwwwpwwwwwwpw
  40. fffffffff
  41. wwwww
  42. fffffffff
  43. wwwpwpwwwwpw
  44. fffffffff`
  45. fffffffff`ww
  46. wwwpwpwwpw
  47. fffffffff
  48. wwwwwwpw
  49. wwwww
  50. fffffffff`
  51. wwwwpw
  52. fffffffff
  53. fffffffff
  54. fffffffff`
  55. System
  56. Picture3
  57. Script
  58. Picture2
  59. System
  60. Picture1
  61. wwwwwwwwwwwwww
  62. wwwwwwwwwwwwww
  63. wwwwwwwwwww
  64. wwwwwwwwwwww
  65. System
  66. Picture3
  67. Script
  68. Picture1
  69. wwwwwwwp
  70. pwwwwp
  71. wwwwwww
  72. wwwww
  73. wwwwp
  74. wwwwwwx
  75. wwwww
  76. System
  77. Picture3
  78. Script
  79. Bitmaps
  80. &Static
  81. SubMenu
  82. Static Bitmap 0
  83. SubMenu
  84. Static Bitmap 1
  85. SubMenu
  86. Static Bitmap 2
  87. SubMenu
  88. Static Bitmap 3
  89. SubMenu
  90. Static Bitmap 4
  91. DynamicBitmaps
  92. &Dynamic
  93. MSubMenu
  94. Dynamic Bitmap 0
  95. MSubMenu
  96. Dynamic Bitmap 1
  97. MSubMenu
  98. Dynamic Bitmap 2
  99. MSubMenu
  100. Dynamic Bitmap 3
  101. MSubMenu
  102. Dynamic Bitmap 4
  103. CreateDynamic
  104. &Create Dynamic Bitmaps!
  105. GetMenul
  106. GetSubMenu
  107. hMenu
  108. GetMenuItemIDQ
  109. ModifyMenu
  110.     nPosition
  111. wFlags#
  112. wIDNewItem
  113.     lpNewItem
  114. SetMenuItemBitmaps
  115. hBitmapUnchecked
  116. hBitmapCheckedV
  117. TrackPopupMenub
  118. GetSystemMenu
  119. revert
  120.     MF_BITMAPH
  121. CLR_MENUBAR
  122. FALSE
  123.     TextItems
  124. LastSelection~
  125. CurrentText.
  126.     Form_Loadb
  127. Static_Bitmaps_To_Menus
  128. MSubMenu
  129. Caption
  130. picture3"
  131. FontName
  132. FontSize
  133. SubMenu_Click
  134. Index
  135. Form_Paint
  136. SubMenu
  137. CheckedU
  138. MSubMenu_Click
  139. Create_Dynamic_Menu_Bitmaps
  140. Width2
  141. Height|
  142.     BackColor
  143. hSubMenu
  144. Picture
  145. Image
  146. menuId
  147. picture2
  148. CreateDynamic_Click
  149. CreateDynamicL
  150. enabled
  151. picture1B
  152. Form_MouseUp
  153. Button
  154. Shift
  155.     ScaleMode
  156. InPixels
  157. ScaleWidth
  158. ScaleHeight
  159. Window API Function Declarations
  160. usero
  161. usero
  162. Form_Load
  163. * Obtain handle to the Forms top level menu
  164. * Initial String with text displayed when menus are selected.u
  165. * (Just so something happens when a menu is selected.)
  166. Writing Tools"
  167. Fonts"
  168. Books/Notes"
  169. Printers
  170. Computers"
  171. * Set "Dynamic" menus submenus initial Menu text values
  172. * to Fontname + Fontsize of each menu item
  173. SubMenu_Click
  174. * Set text to that of selected menu item and
  175. * display the new text
  176. * Uncheck last selected item and check seledted item
  177. Check selected menuk
  178. UnCheck last selected menu
  179. Save current selection
  180. MSubMenu_Click
  181. * Reset forms FontSize to selected fontsizeu
  182. * and redisplay current text
  183. * Uncheck last selected item and check selected item
  184. Create_Dynamic_Menu_Bitmaps
  185. * Set the width and height of the Picture controls
  186. * based on their corresponding Menu items caption,
  187. * and the Picture controls Font and FontSize.t
  188. * DoEvents() is neccessary to make new dimension
  189. * values to take affect prior to exiting this Sub.
  190. * Set Backcolor of Picture control to that of the
  191. * current system Menu Bar color, so Dynamic bitmaps
  192. * will appear as normal menu items when menu bar
  193. * color is changed via the control panel
  194. * Print Text onto Picture control.  This text will
  195. * become the bitmap.
  196. * Obtain handle Second submenu
  197. * - Set picture controls backgroup picture (Bitmap) to its Image.
  198.  Can't use the Image bitmap directly for some reason.
  199. * - Get ID of sub menu
  200. * - Replace menu text with bitmap from corresponding picture control
  201. * - Replace bitmap for menu check mark with custom check mark bitmap
  202. Form_Paint
  203. CreateDynamic_Click
  204. Static_Bitmaps_To_Menus
  205. * Obtain handle to first submenu
  206. * - Get ID of each sub menub
  207. * - Replace menu text with bitmap from corresponding picture control
  208. * - Replace bitmap for menu check mark with custom check mark bitmap
  209. Form_MouseUp
  210.