home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Unleashed / Visual_Basic_4_Unleashed_SAMS_Publishing_1995.iso / mabry / barcod15 / sample / bsample.frm (.txt) next >
Encoding:
Visual Basic Form  |  1995-04-06  |  3.2 KB  |  108 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    Caption         =   "BarCod VBX Sample"
  4.    ClientHeight    =   3930
  5.    ClientLeft      =   1170
  6.    ClientTop       =   1890
  7.    ClientWidth     =   3975
  8.    Height          =   4335
  9.    Left            =   1110
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   3930
  12.    ScaleWidth      =   3975
  13.    Top             =   1545
  14.    Width           =   4095
  15.    Begin ComboBox Combo1 
  16.       Height          =   300
  17.       Left            =   240
  18.       Style           =   2  'Dropdown List
  19.       TabIndex        =   4
  20.       Top             =   1920
  21.       Width           =   3495
  22.    End
  23.    Begin TextBox Text1 
  24.       Height          =   285
  25.       Left            =   960
  26.       TabIndex        =   0
  27.       Text            =   "SAMPLE"
  28.       Top             =   960
  29.       Width           =   2775
  30.    End
  31.    Begin Barcode Barcode1 
  32.       BarWidth        =   0
  33.       Caption         =   "Barcode1"
  34.       Direction       =   0  'Left to Right
  35.       Height          =   495
  36.       Left            =   240
  37.       Style           =   3  '3 of 9
  38.       Top             =   240
  39.       UPCNotches      =   3  'Both
  40.       Width           =   3495
  41.    End
  42.    Begin Label Label4 
  43.       Caption         =   "Select a barcode style with the combo box, and then enter sample text into the Input edit box.  The barcode will show you what that text looks like, and the Output box will show you what's really being displayed."
  44.       Height          =   1335
  45.       Left            =   240
  46.       TabIndex        =   5
  47.       Top             =   2400
  48.       Width           =   3495
  49.    End
  50.    Begin Label Label3 
  51.       BorderStyle     =   1  'Fixed Single
  52.       Caption         =   "SAMPLE"
  53.       Height          =   285
  54.       Left            =   960
  55.       TabIndex        =   3
  56.       Top             =   1440
  57.       Width           =   2775
  58.    End
  59.    Begin Label Label2 
  60.       Caption         =   "Output:"
  61.       Height          =   255
  62.       Left            =   240
  63.       TabIndex        =   2
  64.       Top             =   1440
  65.       Width           =   735
  66.    End
  67.    Begin Label Label1 
  68.       Caption         =   "Input:"
  69.       Height          =   255
  70.       Left            =   240
  71.       TabIndex        =   1
  72.       Top             =   960
  73.       Width           =   735
  74.    End
  75. Option Explicit
  76. Sub Combo1_Change ()
  77.     Barcode1.Style = Combo1.ListIndex
  78.     Label3.Caption = Barcode1.Displayed
  79. End Sub
  80. Sub Combo1_Click ()
  81.     Combo1_Change
  82. End Sub
  83. Sub Form_Load ()
  84.     Combo1.AddItem "None"
  85.     Combo1.AddItem "Code 2 of 5"
  86.     Combo1.AddItem "Interleaved 2 of 5"
  87.     Combo1.AddItem "Code 3 of 9"
  88.     Combo1.AddItem "Codabar (Rationalized)"
  89.     Combo1.AddItem "Extended Code 3 of 9"
  90.     Combo1.AddItem "Code 128-A"
  91.     Combo1.AddItem "Code 128-B"
  92.     Combo1.AddItem "Code 128-C"
  93.     Combo1.AddItem "UPC-A"
  94.     Combo1.AddItem "MSI (Plessey)"
  95.     Combo1.AddItem "Code 93"
  96.     Combo1.AddItem "Extended Code 93"
  97.     Combo1.AddItem "EAN-13"
  98.     Combo1.AddItem "EAN-8"
  99.     Combo1.AddItem "PostNet"
  100.     Combo1.ListIndex = 3
  101.     Text1_Change
  102. End Sub
  103. Sub Text1_Change ()
  104.     Barcode1.Caption = Text1
  105.     DoEvents
  106.     Label3.Caption = Barcode1.Displayed
  107. End Sub
  108.