home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / code / various / easyba / bardemo.frm (.txt) next >
Encoding:
Visual Basic Form  |  1995-02-23  |  2.4 KB  |  79 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    Caption         =   "Easybar/VBX Demo v1.1"
  4.    ClientHeight    =   3015
  5.    ClientLeft      =   2640
  6.    ClientTop       =   1785
  7.    ClientWidth     =   4170
  8.    Height          =   3420
  9.    Left            =   2580
  10.    LinkTopic       =   "Form2"
  11.    ScaleHeight     =   3015
  12.    ScaleWidth      =   4170
  13.    Top             =   1440
  14.    Width           =   4290
  15.    Begin Barcode Barcode1 
  16.       AddOnData       =   ""
  17.       AddOnMessage    =   ""
  18.       AddOnTextAlign  =   0  'Top
  19.       BarcodeType     =   0  'Code 39
  20.       BarWidth0       =   1
  21.       BarWidth1       =   3
  22.       BarWidth2       =   0
  23.       BarWidth3       =   0
  24.       Data            =   "123456"
  25.       FigureHeight    =   1440
  26.       FigureLeft      =   288
  27.       FigureTop       =   288
  28.       FigureTransparent=   -1  'True
  29.       FigureWidth     =   2880
  30.       FontBold        =   -1  'True
  31.       FontItalic      =   0   'False
  32.       FontName        =   "Arial"
  33.       FontSize        =   8.25
  34.       FontStrikethru  =   0   'False
  35.       FontUnderline   =   0   'False
  36.       HorzAlign       =   0  'Left
  37.       InterCharGap    =   2
  38.       Left            =   0
  39.       Message         =   ""
  40.       MiddleGap       =   0
  41.       Orientation     =   0  '0
  42.       PixelAlign      =   -1  'True
  43.       RetainAspectRatio=   -1  'True
  44.       sBottomMargin   =   1
  45.       sLeftMargin     =   10
  46.       SpaceWidth0     =   1
  47.       SpaceWidth1     =   3
  48.       SpaceWidth2     =   0
  49.       SpaceWidth3     =   0
  50.       sRightMargin    =   10
  51.       sTopMargin      =   1
  52.       StretchText     =   -1  'True
  53.       TextAlign       =   1  'Bottom
  54.       Top             =   0
  55.       UniBarHeight    =   0   'False
  56.       UpcSmallFont    =   -1  'True
  57.       VertAlign       =   0  'Top
  58.    End
  59.    Begin CommandButton Command1 
  60.       Caption         =   "Print"
  61.       Height          =   375
  62.       Left            =   1320
  63.       TabIndex        =   0
  64.       Top             =   2520
  65.       Width           =   1095
  66.    End
  67. Sub Command1_Click ()
  68.     'set other properties if necessary: barcode1.xxx = yyy
  69.     'barcode1.Data = "123456"
  70.     barcode1.PrintTo = Printer.hDC
  71.     Printer.NewPage
  72.     Printer.EndDoc
  73. End Sub
  74. Sub Form_Paint ()
  75.     'set other properties if necessary: barcode1.xxx = xxx
  76.     'barcode1.Data = "123456"
  77.     barcode1.PrintTo = form1.hDC
  78. End Sub
  79.