home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DP Tool Club 26
/
CD_ASCQ_26_1295.iso
/
vrac
/
msmega.zip
/
BARCODSA.ZIP
/
BSAMPLE.FRM
next >
Wrap
Text File
|
1995-04-06
|
3KB
|
116 lines
VERSION 2.00
Begin Form Form1
Caption = "BarCod VBX Sample"
ClientHeight = 3930
ClientLeft = 1170
ClientTop = 1890
ClientWidth = 3975
Height = 4335
Left = 1110
LinkTopic = "Form1"
ScaleHeight = 3930
ScaleWidth = 3975
Top = 1545
Width = 4095
Begin ComboBox Combo1
Height = 300
Left = 240
Style = 2 'Dropdown List
TabIndex = 4
Top = 1920
Width = 3495
End
Begin TextBox Text1
Height = 285
Left = 960
TabIndex = 0
Text = "SAMPLE"
Top = 960
Width = 2775
End
Begin Barcode Barcode1
BarWidth = 0
Caption = "Barcode1"
Direction = 0 'Left to Right
Height = 495
Left = 240
Style = 3 '3 of 9
Top = 240
UPCNotches = 3 'Both
Width = 3495
End
Begin Label Label4
Caption = "Select a barcode style with the combo box, and then enter sample text into the Input edit box. The barcode will show you what that text looks like, and the Output box will show you what's really being displayed."
Height = 1335
Left = 240
TabIndex = 5
Top = 2400
Width = 3495
End
Begin Label Label3
BorderStyle = 1 'Fixed Single
Caption = "SAMPLE"
Height = 285
Left = 960
TabIndex = 3
Top = 1440
Width = 2775
End
Begin Label Label2
Caption = "Output:"
Height = 255
Left = 240
TabIndex = 2
Top = 1440
Width = 735
End
Begin Label Label1
Caption = "Input:"
Height = 255
Left = 240
TabIndex = 1
Top = 960
Width = 735
End
End
Option Explicit
Sub Combo1_Change ()
Barcode1.Style = Combo1.ListIndex
Label3.Caption = Barcode1.Displayed
End Sub
Sub Combo1_Click ()
Combo1_Change
End Sub
Sub Form_Load ()
Combo1.AddItem "None"
Combo1.AddItem "Code 2 of 5"
Combo1.AddItem "Interleaved 2 of 5"
Combo1.AddItem "Code 3 of 9"
Combo1.AddItem "Codabar (Rationalized)"
Combo1.AddItem "Extended Code 3 of 9"
Combo1.AddItem "Code 128-A"
Combo1.AddItem "Code 128-B"
Combo1.AddItem "Code 128-C"
Combo1.AddItem "UPC-A"
Combo1.AddItem "MSI (Plessey)"
Combo1.AddItem "Code 93"
Combo1.AddItem "Extended Code 93"
Combo1.AddItem "EAN-13"
Combo1.AddItem "EAN-8"
Combo1.AddItem "PostNet"
Combo1.ListIndex = 3
Text1_Change
End Sub
Sub Text1_Change ()
Barcode1.Caption = Text1
DoEvents
Label3.Caption = Barcode1.Displayed
End Sub