home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / vb_code1 / barcode / bsample.frm < prev    next >
Text File  |  1993-09-24  |  2KB  |  96 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   3750
  5.    ClientLeft      =   1170
  6.    ClientTop       =   1890
  7.    ClientWidth     =   3975
  8.    Height          =   4155
  9.    Left            =   1110
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   3750
  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.       Width           =   3495
  40.    End
  41.    Begin Label Label3 
  42.       BorderStyle     =   1  'Fixed Single
  43.       Caption         =   "SAMPLE"
  44.       Height          =   285
  45.       Left            =   960
  46.       TabIndex        =   3
  47.       Top             =   1440
  48.       Width           =   2775
  49.    End
  50.    Begin Label Label2 
  51.       Caption         =   "Output:"
  52.       Height          =   255
  53.       Left            =   240
  54.       TabIndex        =   2
  55.       Top             =   1440
  56.       Width           =   735
  57.    End
  58.    Begin Label Label1 
  59.       Caption         =   "Input:"
  60.       Height          =   255
  61.       Left            =   240
  62.       TabIndex        =   1
  63.       Top             =   960
  64.       Width           =   735
  65.    End
  66. End
  67. Option Explicit
  68.  
  69. Sub Combo1_Change ()
  70.     Barcode1.Style = Combo1.ListIndex
  71.     Label3.Caption = Barcode1.Displayed
  72. End Sub
  73.  
  74. Sub Combo1_Click ()
  75.     Combo1_Change
  76. End Sub
  77.  
  78. Sub Form_Load ()
  79.     Combo1.AddItem "None"
  80.     Combo1.AddItem "2 of 5"
  81.     Combo1.AddItem "Interleaved 2 of 5"
  82.     Combo1.AddItem "3 of 9"
  83.     Combo1.AddItem "Codabar (Rationalized)"
  84.  
  85.     Combo1.ListIndex = 3
  86.  
  87.     Text1_Change
  88. End Sub
  89.  
  90. Sub Text1_Change ()
  91.     Barcode1.Caption = Text1
  92.     DoEvents
  93.     Label3.Caption = Barcode1.Displayed
  94. End Sub
  95.  
  96.