Programming Tool Box/SIMS_2.iso/vb_code1/bar_vbx/form2.frm

Text File | 1993-11-16 | 6KB | 190 lines

VERSION 2.00
Begin Form Form2
   Caption         =   "Set Properties"
   ClientHeight    =   3108
   ClientLeft      =   1044
   ClientTop       =   2196
   ClientWidth     =   5088
   Height          =   3528
   Left            =   996
   LinkTopic       =   "Form3"
   ScaleHeight     =   3108
   ScaleWidth      =   5088
   Top             =   1824
   Width           =   5184
   Begin TextBox Text1
      Height          =   312
      Left            =   2160
      TabIndex        =   0
      Top             =   180
      Width           =   2712
   End
   Begin TextBox ChecksumChar
      Height          =   312
      Left            =   2160
      TabIndex        =   5
      Top             =   2040
      Width           =   432
   End
   Begin TextBox Checksum
      Height          =   312
      Left            =   2160
      TabIndex        =   4
      Top             =   1680
      Width           =   852
   End
   Begin TextBox NarrWidth
      Height          =   312
      Left            =   2160
      TabIndex        =   3
      Top             =   1320
      Width           =   852
   End
   Begin ComboBox Ratio
      Height          =   288
      Left            =   2160
      Style           =   2  'Dropdown List
      TabIndex        =   2
      Top             =   960
      Width           =   2592
   End
   Begin CommandButton Command2
      Cancel          =   -1  'True
      Caption         =   "&Cancel"
      Height          =   432
      Left            =   2520
      TabIndex        =   7
      Top             =   2580
      Width           =   1572
   End
   Begin CommandButton Command1
      Caption         =   "&OK"
      Default         =   -1  'True
      Height          =   432
      Left            =   720
      TabIndex        =   6
      Top             =   2580
      Width           =   1572
   End
   Begin ComboBox SetBarCodeType
      Height          =   288
      Left            =   2160
      Style           =   2  'Dropdown List
      TabIndex        =   1
      Top             =   600
      Width           =   2592
   End
   Begin Label Label6
      Alignment       =   1  'Right Justify
      Caption         =   "Text Value:"
      Height          =   252
      Left            =   180
      TabIndex        =   13
      Top             =   240
      Width           =   1872
   End
   Begin Label Label5
      Alignment       =   1  'Right Justify
      Caption         =   "Current checksum:"
      Height          =   252
      Left            =   240
      TabIndex        =   12
      Top             =   2100
      Width           =   1812
   End
   Begin Label Label4
      Alignment       =   1  'Right Justify
      Caption         =   "Checksum:"
      Height          =   252
      Left            =   180
      TabIndex        =   11
      Top             =   1740
      Width           =   1872
   End
   Begin Label Label3
      Alignment       =   1  'Right Justify
      Caption         =   "Narrow Bar Width:"
      Height          =   252
      Left            =   180
      TabIndex        =   10
      Top             =   1380
      Width           =   1872
   End
   Begin Label Label2
      Alignment       =   1  'Right Justify
      Caption         =   "Ratio:"
      Height          =   252
      Left            =   960
      TabIndex        =   9
      Top             =   960
      Width           =   1092
   End
   Begin Label Label1
      Alignment       =   1  'Right Justify
      Caption         =   "Bar Code Type:"
      Height          =   312
      Left            =   540
      TabIndex        =   8
      Top             =   600
      Width           =   1512
   End
End

Sub ChecksumChar_KeyPress (KeyAscii As Integer)
    Beep
    KeyAscii = 0
End Sub

Sub Command1_Click ()
    Dim ErrCode As Integer
    Hide
    Form1!BarCode1.BarCodeType = SetBarCodeType.ListIndex
    Form1!BarCode1.Ratio = Ratio.ListIndex
    Form1!BarCode1.NarrowBarWidth = Val(NarrWidth.Text)
    Form1!BarCode1.Checksum = Val(Checksum.Text)
    Form1!Text1.Text = Text1.Text
    ErrCode = BarCodeGetLastErrorCode()
    If ErrCode <> 0 Then
        MsgBox BarCodeGetLastErrorString()
    End If
    Unload Form2
End Sub

Sub Command2_Click ()
    Unload Form2
End Sub

Sub Form_Load ()
    Text1.Text = Form1!Text1.Text
    SetBarCodeType.AddItem ("Code 3 of 9")
    SetBarCodeType.AddItem ("Extended Code 3 of 9")
    SetBarCodeType.AddItem ("Interleaved 2 of 5")
    SetBarCodeType.AddItem ("Code 93")
    SetBarCodeType.AddItem ("Extended Code 93")
    SetBarCodeType.AddItem ("UPCA")
    SetBarCodeType.AddItem ("UPCE 10 digit")
    SetBarCodeType.AddItem ("UPCE0 6 digit")
    SetBarCodeType.AddItem ("UPCE1 6 digit")
    SetBarCodeType.AddItem ("EAN 13")
    SetBarCodeType.AddItem ("EAN 8")
    SetBarCodeType.AddItem ("Code 128 Auto")
    SetBarCodeType.AddItem ("Code 128 A")
    SetBarCodeType.AddItem ("Code 128 B")
    SetBarCodeType.AddItem ("Code 128 C")
    SetBarCodeType.AddItem ("Codabar")
    SetBarCodeType.AddItem ("MSI Plessy")
    SetBarCodeType.AddItem ("UCC-128")
    SetBarCodeType.AddItem ("POSTNET (Zip+4 Postal Code)")
    SetBarCodeType.ListIndex = Form1.BarCode1.BarCodeType

    Ratio.AddItem ("0 - 3:1")
    Ratio.AddItem ("1 - 2.5:1")
    Ratio.AddItem ("2 - 2:1")
    Ratio.ListIndex = Form1.BarCode1.Ratio

    NarrWidth.Text = LTrim(Str(Form1!BarCode1.NarrowBarWidth))
    Checksum.Text = LTrim(Str(Form1!BarCode1.Checksum))
    ChecksumChar.Text = Form1!BarCode1.ChecksumString
End Sub