home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / vb_prgms / bars3 / bars2.frm (.txt) < prev    next >
Visual Basic Form  |  1992-03-18  |  15KB  |  342 lines
  1. Form1
  2. BarCode 3 of 9 Version 2.0
  3.     Helvetica
  4. wwwwwwwwwwwwwww
  5. wwwwwwwwwwww
  6. wwwwwwwwwwww
  7. Form1,
  8. Label11
  9. Single Label Display of Output
  10. Picture3
  11. wwwwwwwwwwwwwww
  12. wwwwwwwwwwww
  13. wwwwwwwwwwww
  14. Picture5
  15. Label1
  16.     Helvetica
  17. Picture1
  18. Label2
  19. Command5
  20. &Add a New Code
  21. Command2
  22. &Modify a Code
  23. Command6
  24. &Delete a Code
  25. Command4
  26. &Lookup a Code
  27. &    fontlabel
  28. Command7
  29. &Select a Text Font
  30. Label8
  31. #Please Enter a Code and Description
  32. Command1
  33. &Print
  34. Label5
  35. Label6
  36. Description
  37. Text1
  38. Text2
  39. Command3
  40. &Exit
  41. Combo2
  42. .03125
  43. Label7
  44. Barcode Height
  45. Label3
  46. Number of Labels Across Page
  47. Combo4
  48. .01325
  49. Label9
  50.  Vertical Distance Between Labels
  51. Picture2
  52. Option1
  53. 1 Across
  54. Option2
  55. 2 Across
  56. Option3
  57. 3 Across
  58. Combo5
  59. .01325
  60. Label10
  61. "Horizontal Distance Between Labels
  62. Combo1
  63. Label4
  64. Number of Rows to Print
  65. Label12
  66. _Note: All values are in inches. Please use the decimal equivelance of the value you wish to set
  67. ABOUT
  68. &File
  69. E    WHATS_NEW
  70.     Whats New
  71. Setup 
  72. About
  73. Form_Click
  74. @    Form_Load~
  75. FORM1
  76. CURRENTX
  77. CURRENTY
  78. onewide
  79.     threewide)
  80. twospace
  81.     fourspaceo
  82.     fillstyle
  83.     FILLCOLOR
  84. THREE
  85. PRINTER9
  86. wbnb1
  87. wbnsN
  88.     SCALEMODE
  89. HEADER
  90. FOOTER
  91. SEVEN,
  92. EIGHT6
  93. LETTER_AP
  94. LETTER_Bl    
  95. LETTER_C7
  96. LETTER_D_
  97. LETTER_E{
  98. LETTER_F
  99. PICTUREBOX
  100. PICTUREBOX1g
  101. picture1Q
  102. Form_DragOver1
  103. SOURCEE
  104. Stateq
  105. Form_DragDrop
  106. Form_MouseMove
  107. Button
  108. Shift-
  109. DIGIT
  110. LABEL2B
  111. caption
  112. LABEL1!
  113. Command3_Click
  114. LETTER_G
  115. LETTER_H
  116. LETTER_I^
  117. LETTER_J
  118. LETTER_K
  119. LETTER_L
  120. LETTER_M
  121. LETTER_N
  122. LETTER_O]
  123. LETTER_P
  124. LETTER_Q
  125. LETTER_R
  126. LETTER_S
  127. LETTER_T
  128. LETTER_U
  129. LETTER_V!
  130. LETTER_WM
  131. LETTER_X
  132. LETTER_Y
  133. LETTER_Zv
  134. NSWB-
  135. Command1_Click_
  136. picture
  137. IMAGE
  138. PICTURE2s
  139. VISIBLE
  140. COMMAND3
  141. COMMAND1J
  142. COMMAND2
  143. Command2_Click
  144. NOCODES,
  145. SCREEN1
  146. WIDTH%
  147. HEIGHTx
  148. ABOUT_Click
  149. FORM2M
  150. barcode
  151. DESCRIPTION
  152.     PrintFlAG
  153. NOCODES1
  154. Useprinter1`
  155. useprinter2
  156. useprinter3W
  157. useprinter4
  158. NB_EXIT
  159. NS_EXIT
  160. WB_EXIT|
  161. WS_EXIT
  162. OPTION1
  163. COUNTER<
  164. OPTION2
  165. OPTION3
  166. ACROSS
  167. VALUE
  168. WHATS_NEW_Click
  169. FORM3
  170. MOUSEPOINTER
  171. Command7_Click
  172. form4g
  173.     labelfont
  174.     fontlabel
  175. FONTNAMEQ
  176. COMBO1+
  177. Text1_Change
  178. TEXT1h
  179. TEXT;
  180. Text1_KeyPress
  181. keyascii#
  182.     SETNEWBAR
  183. Text2_Change+
  184. Text2_KeyPress
  185. setnewdescrip
  186. TEXT2
  187. LABELSTOPRINT
  188. NUMBEROFLABELS
  189. NEWVALUE
  190. COMBO2
  191.     BARHEIGHT$    
  192. COMBO3|
  193. combo4
  194. combo5
  195. BARCODEHEIGHT
  196.     NOBARCODE
  197.     EXITPRINT
  198. SAVETOPPOS
  199. BETWEENHEIGHTj
  200. HORBETWEEN>
  201. Text1_LostFocus
  202. Text2_LostFocus
  203. sets_Click
  204. FORM5
  205. getprofilestring&
  206. sname
  207. knameH
  208. APPNAME
  209. KEYNAME
  210. default
  211. RETURNS
  212. buffsize
  213. WRITEProfileString^
  214. RINGS
  215. IstringS
  216. SUCCESS
  217. SetNewDefaults
  218. lstring
  219. string1
  220. lstring2
  221. string3
  222. string2
  223. Istring2
  224. Istring3
  225.     REDOSTART
  226. FONTDEFAULT
  227. string4
  228. string5H    
  229. string6c    
  230. string7
  231.     FONTTOUSE
  232. LABELSACROSS
  233. LEFTMARGIN
  234.     TOPMARGIN
  235. TEXT4
  236. TEXT56    @
  237. Command5_Click-    
  238. LABELS
  239. FORM6
  240. FORM7Q    @
  241. Command6_Click
  242. FORM8
  243. Command4_Click
  244. FORM9
  245. GFDG_Click
  246. Form_Load
  247. LABELS.DB"
  248. Bars Version 2.0
  249. BarHeight"
  250. Program will use standard default settings
  251. Bars Version 2.0
  252. Bars Version 2.0
  253. BarHeight"
  254. BarVertical"
  255. BarHorizontal"
  256. Current Font is 
  257. NumAcross"
  258. TopMargin"
  259. LeftMargin
  260. .03125
  261. .0625"
  262. .0125"
  263. 1.0625
  264. 1.125"
  265. .03125
  266. .0625"
  267. .0125"
  268. 1.0625
  269. 1.125"
  270.  Main Form
  271.   Purpose: Create Code 3 of 9 BarCodes For Windows Ver 3.0
  272.  Input: Barcode Number = BARCODE$
  273.  Description = Description$O
  274.    Output: Screen = Visual BarCode
  275.  Description: Code 3 of 9 BarCodes
  276.  Each Code is Made up of 2 Different Types of Lines*
  277.  One Thick and One Thin Also There Are Two Types Of*
  278.  Spaces One Thick and One Thin
  279.   This Programs Concept is Very Simple it Will First Divide thee
  280.   Code Into Seperate Digits it Will Then Pick the Correctt
  281.   Subroutine to Call Based on The BarCode Digit.
  282.   Each Digit Subroutine Will Call Four Other Subroutines
  283.   Each of The Four Subroutines Contains Code To Either Draw Liness
  284.   or Spaces To Picture1.
  285.    NB Subroutine : Thick  Space   Three   Pixels Wide
  286.    NS Subroutine : Thin   Space   One
  287.  Pixel  Wide
  288.    WS Subroutine : Thick  Line
  289.  Three   Pixels Wide
  290.    WB Subroutine : Thin   Line
  291.  Pixel  Wide
  292. Show This Form
  293.  Center Form On Screen
  294. Calculate The ScreenWidth / 2I
  295. Calculate The ScreenHeight / 2
  296. Command3_Click
  297. Command1_Click
  298. Set mouse pointer to hourglass
  299.  Main Print Routine 
  300.  The Code That Follows is One Possible Solution to Print too
  301.  any Graphics Printer That Windows Will Support.
  302.  This Code May Be Further Modified To Ask The User How Many 
  303.  Labels They Wish To Print.W
  304.  ALSO THE X AND Y CORDS MAY BE MODIFIED TO SUPPORT DIFFERENT
  305.  SPACING FOR DIFFERENT SIZE LABELS F
  306. WINDOWS LIKES THIS I DONT KNOW WHY
  307. ONE LABEL ACROSS
  308. TWO LABELS ACROSS
  309. THREE LABELS ACROSS
  310. SET COUNTER TO NUMBER ACROSS
  311. PRINT THE DESCRIPTIONR
  312.  THIS ROUTINE WILL RESET THE X CORD FOR EACH LABEL
  313.  TO PRINT THE BAR CODE
  314.  EACH BAR CODE HAS A HEADERR
  315. PRINT BARCODE HEADER
  316.  THIS ROUTINE WILL DIVIDE THE CODE INTO DIGITS THEN CALL
  317.  EACH DIGITS SUBROUTINEE
  318. GET BARCODE FROM LABEL2*
  319. Set A=Length Of Barcode*
  320. Get Each Digit Of Code
  321. ADD 1 MORE SINGLE SPACEC
  322.  THIS ROUTINE WILL TAKE CARE OF THE LAST DIGIT IN THE BARCODE*
  323.  THIS WAS ADDED BECAUSE IT WAS A SIMPLE WAY TO DO IT..
  324.  HOWEVER IF YOU CAN THINK OF A BETTER WAY I LIKE TO SEE IT.*
  325.  EACH BARCODE HAS A FOOTER
  326.  THIS CODE WILL RESET THE X CORD TO PRINT THE BARCODE TEXT
  327. RESET FLAG
  328. PRINT THIS PAGER
  329. Reset mouse pointer to arrow
  330. WHATS_NEW_Click
  331. Command7_Click
  332. Text1_KeyPress
  333. Text2_KeyPress
  334. Text1_LostFocus
  335. Text2_LostFocus
  336. sets_Click
  337. Command5_Click
  338. Command2_Click
  339. Command6_Click
  340. Command4_Click
  341. GFDG_Click
  342.