home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / CODIGO_1 / BARCODE / SAMPLE.ZIP / BSAMPLE.FRM (.txt) next >
Encoding:
Visual Basic Form  |  1993-09-24  |  2.4 KB  |  88 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. Option Explicit
  67. Sub Combo1_Change ()
  68.     Barcode1.Style = Combo1.ListIndex
  69.     Label3.Caption = Barcode1.Displayed
  70. End Sub
  71. Sub Combo1_Click ()
  72.     Combo1_Change
  73. End Sub
  74. Sub Form_Load ()
  75.     Combo1.AddItem "None"
  76.     Combo1.AddItem "2 of 5"
  77.     Combo1.AddItem "Interleaved 2 of 5"
  78.     Combo1.AddItem "3 of 9"
  79.     Combo1.AddItem "Codabar (Rationalized)"
  80.     Combo1.ListIndex = 3
  81.     Text1_Change
  82. End Sub
  83. Sub Text1_Change ()
  84.     Barcode1.Caption = Text1
  85.     DoEvents
  86.     Label3.Caption = Barcode1.Displayed
  87. End Sub
  88.