home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Programming Tool Box
/
SIMS_2.iso
/
vb_code1
/
bar_vbx
/
form2.frm
< prev
next >
Wrap
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