home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / CODIGO_1 / BAR_VBX / FORM2.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1993-11-17  |  5.6 KB  |  182 lines
  1. VERSION 2.00
  2. Begin Form Form2 
  3.    Caption         =   "Set Properties"
  4.    ClientHeight    =   3108
  5.    ClientLeft      =   1044
  6.    ClientTop       =   2196
  7.    ClientWidth     =   5088
  8.    Height          =   3528
  9.    Left            =   996
  10.    LinkTopic       =   "Form3"
  11.    ScaleHeight     =   3108
  12.    ScaleWidth      =   5088
  13.    Top             =   1824
  14.    Width           =   5184
  15.    Begin TextBox Text1 
  16.       Height          =   312
  17.       Left            =   2160
  18.       TabIndex        =   0
  19.       Top             =   180
  20.       Width           =   2712
  21.    End
  22.    Begin TextBox ChecksumChar 
  23.       Height          =   312
  24.       Left            =   2160
  25.       TabIndex        =   5
  26.       Top             =   2040
  27.       Width           =   432
  28.    End
  29.    Begin TextBox Checksum 
  30.       Height          =   312
  31.       Left            =   2160
  32.       TabIndex        =   4
  33.       Top             =   1680
  34.       Width           =   852
  35.    End
  36.    Begin TextBox NarrWidth 
  37.       Height          =   312
  38.       Left            =   2160
  39.       TabIndex        =   3
  40.       Top             =   1320
  41.       Width           =   852
  42.    End
  43.    Begin ComboBox Ratio 
  44.       Height          =   288
  45.       Left            =   2160
  46.       Style           =   2  'Dropdown List
  47.       TabIndex        =   2
  48.       Top             =   960
  49.       Width           =   2592
  50.    End
  51.    Begin CommandButton Command2 
  52.       Cancel          =   -1  'True
  53.       Caption         =   "&Cancel"
  54.       Height          =   432
  55.       Left            =   2520
  56.       TabIndex        =   7
  57.       Top             =   2580
  58.       Width           =   1572
  59.    End
  60.    Begin CommandButton Command1 
  61.       Caption         =   "&OK"
  62.       Default         =   -1  'True
  63.       Height          =   432
  64.       Left            =   720
  65.       TabIndex        =   6
  66.       Top             =   2580
  67.       Width           =   1572
  68.    End
  69.    Begin ComboBox SetBarCodeType 
  70.       Height          =   288
  71.       Left            =   2160
  72.       Style           =   2  'Dropdown List
  73.       TabIndex        =   1
  74.       Top             =   600
  75.       Width           =   2592
  76.    End
  77.    Begin Label Label6 
  78.       Alignment       =   1  'Right Justify
  79.       Caption         =   "Text Value:"
  80.       Height          =   252
  81.       Left            =   180
  82.       TabIndex        =   13
  83.       Top             =   240
  84.       Width           =   1872
  85.    End
  86.    Begin Label Label5 
  87.       Alignment       =   1  'Right Justify
  88.       Caption         =   "Current checksum:"
  89.       Height          =   252
  90.       Left            =   240
  91.       TabIndex        =   12
  92.       Top             =   2100
  93.       Width           =   1812
  94.    End
  95.    Begin Label Label4 
  96.       Alignment       =   1  'Right Justify
  97.       Caption         =   "Checksum:"
  98.       Height          =   252
  99.       Left            =   180
  100.       TabIndex        =   11
  101.       Top             =   1740
  102.       Width           =   1872
  103.    End
  104.    Begin Label Label3 
  105.       Alignment       =   1  'Right Justify
  106.       Caption         =   "Narrow Bar Width:"
  107.       Height          =   252
  108.       Left            =   180
  109.       TabIndex        =   10
  110.       Top             =   1380
  111.       Width           =   1872
  112.    End
  113.    Begin Label Label2 
  114.       Alignment       =   1  'Right Justify
  115.       Caption         =   "Ratio:"
  116.       Height          =   252
  117.       Left            =   960
  118.       TabIndex        =   9
  119.       Top             =   960
  120.       Width           =   1092
  121.    End
  122.    Begin Label Label1 
  123.       Alignment       =   1  'Right Justify
  124.       Caption         =   "Bar Code Type:"
  125.       Height          =   312
  126.       Left            =   540
  127.       TabIndex        =   8
  128.       Top             =   600
  129.       Width           =   1512
  130.    End
  131. Sub ChecksumChar_KeyPress (KeyAscii As Integer)
  132.     Beep
  133.     KeyAscii = 0
  134. End Sub
  135. Sub Command1_Click ()
  136.     Dim ErrCode As Integer
  137.     Hide
  138.     Form1!BarCode1.BarCodeType = SetBarCodeType.ListIndex
  139.     Form1!BarCode1.Ratio = Ratio.ListIndex
  140.     Form1!BarCode1.NarrowBarWidth = Val(NarrWidth.Text)
  141.     Form1!BarCode1.Checksum = Val(Checksum.Text)
  142.     Form1!Text1.Text = Text1.Text
  143.     ErrCode = BarCodeGetLastErrorCode()
  144.     If ErrCode <> 0 Then
  145.         MsgBox BarCodeGetLastErrorString()
  146.     End If
  147.     Unload Form2
  148. End Sub
  149. Sub Command2_Click ()
  150.     Unload Form2
  151. End Sub
  152. Sub Form_Load ()
  153.     Text1.Text = Form1!Text1.Text
  154.     SetBarCodeType.AddItem ("Code 3 of 9")
  155.     SetBarCodeType.AddItem ("Extended Code 3 of 9")
  156.     SetBarCodeType.AddItem ("Interleaved 2 of 5")
  157.     SetBarCodeType.AddItem ("Code 93")
  158.     SetBarCodeType.AddItem ("Extended Code 93")
  159.     SetBarCodeType.AddItem ("UPCA")
  160.     SetBarCodeType.AddItem ("UPCE 10 digit")
  161.     SetBarCodeType.AddItem ("UPCE0 6 digit")
  162.     SetBarCodeType.AddItem ("UPCE1 6 digit")
  163.     SetBarCodeType.AddItem ("EAN 13")
  164.     SetBarCodeType.AddItem ("EAN 8")
  165.     SetBarCodeType.AddItem ("Code 128 Auto")
  166.     SetBarCodeType.AddItem ("Code 128 A")
  167.     SetBarCodeType.AddItem ("Code 128 B")
  168.     SetBarCodeType.AddItem ("Code 128 C")
  169.     SetBarCodeType.AddItem ("Codabar")
  170.     SetBarCodeType.AddItem ("MSI Plessy")
  171.     SetBarCodeType.AddItem ("UCC-128")
  172.     SetBarCodeType.AddItem ("POSTNET (Zip+4 Postal Code)")
  173.     SetBarCodeType.ListIndex = Form1.BarCode1.BarCodeType
  174.     Ratio.AddItem ("0 - 3:1")
  175.     Ratio.AddItem ("1 - 2.5:1")
  176.     Ratio.AddItem ("2 - 2:1")
  177.     Ratio.ListIndex = Form1.BarCode1.Ratio
  178.     NarrWidth.Text = LTrim(Str(Form1!BarCode1.NarrowBarWidth))
  179.     Checksum.Text = LTrim(Str(Form1!BarCode1.Checksum))
  180.     ChecksumChar.Text = Form1!BarCode1.ChecksumString
  181. End Sub
  182.