home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Planet Source Code Jumbo …e CD Visual Basic 1 to 7
/
6_2008-2009.ISO
/
data
/
zips
/
LinearBarc2152715192009.psc
/
frmDemo.frm
< prev
Wrap
Text File
|
2009-05-19
|
13KB
|
397 lines
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form frmDemo
BorderStyle = 1 'Fixed Single
Caption = "Demo"
ClientHeight = 8145
ClientLeft = 150
ClientTop = 540
ClientWidth = 8910
Icon = "frmDemo.frx":0000
LinkTopic = "Form2"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 8145
ScaleWidth = 8910
StartUpPosition = 2 'CenterScreen
Begin VB.ComboBox cboXFactor
Height = 315
Left = 7920
TabIndex = 40
Top = 1800
Width = 855
End
Begin VB.CheckBox chkCD
Caption = "Use Check Digit"
Enabled = 0 'False
Height = 315
Left = 6360
TabIndex = 38
ToolTipText = "Use a Check Digit if optional for code."
Top = 2880
Width = 1575
End
Begin VB.CommandButton cmdColor
Caption = "Barcode Color ...."
Height = 315
Left = 7200
TabIndex = 35
Top = 3960
Width = 1575
End
Begin VB.Frame Frame4
Caption = "Human Readable"
Height = 1815
Left = 240
TabIndex = 32
Top = 5280
Width = 2175
Begin VB.CheckBox chkDCD
Caption = "Display Check Digit"
Enabled = 0 'False
Height = 315
Left = 120
TabIndex = 37
Top = 960
Width = 1695
End
Begin VB.CheckBox chkDSS
Caption = "Display Stop/Start"
Height = 315
Left = 120
TabIndex = 36
Top = 1320
Width = 1935
End
Begin VB.OptionButton optHR
Caption = "Barcode and Text"
Height = 315
Index = 1
Left = 120
TabIndex = 34
Top = 600
Value = -1 'True
Width = 1575
End
Begin VB.OptionButton optHR
Caption = "Barcode Only"
Height = 315
Index = 0
Left = 120
TabIndex = 33
Top = 240
Width = 1575
End
End
Begin VB.Frame Frame3
Caption = "Rotation"
Height = 1815
Left = 4320
TabIndex = 27
Top = 5280
Width = 2055
Begin VB.OptionButton optRotation
Caption = "Upside Down"
Height = 315
Index = 3
Left = 120
TabIndex = 31
Top = 1320
Width = 1695
End
Begin VB.OptionButton optRotation
Caption = "Sideways Down"
Height = 315
Index = 2
Left = 120
TabIndex = 30
Top = 960
Width = 1575
End
Begin VB.OptionButton optRotation
Caption = "Sideways UP"
Height = 315
Index = 1
Left = 120
TabIndex = 29
Top = 600
Width = 1455
End
Begin VB.OptionButton optRotation
Caption = "Normal"
Height = 315
Index = 0
Left = 120
TabIndex = 28
Top = 240
Value = -1 'True
Width = 1215
End
End
Begin MSComDlg.CommonDialog CommonDialog1
Left = 8280
Top = 3000
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.CommandButton cmdFont
Caption = "Font ...."
Height = 315
Left = 6360
TabIndex = 26
Top = 3960
Width = 855
End
Begin VB.TextBox txtGap
Height = 315
Left = 7920
TabIndex = 25
Text = "0"
Top = 1440
Width = 615
End
Begin VB.Frame Frame2
Caption = "Text Alignment"
Height = 1815
Left = 2520
TabIndex = 19
Top = 5280
Width = 1695
Begin VB.OptionButton optTxtAlign
Caption = "Full Width"
Height = 315
Index = 3
Left = 120
TabIndex = 23
Top = 1320
Width = 1215
End
Begin VB.OptionButton optTxtAlign
Caption = "Right"
Height = 315
Index = 2
Left = 120
TabIndex = 22
Top = 960
Width = 1215
End
Begin VB.OptionButton optTxtAlign
Caption = "Left"
Height = 315
Index = 1
Left = 120
TabIndex = 21
Top = 600
Width = 1215
End
Begin VB.OptionButton optTxtAlign
Caption = "Centred"
Height = 315
Index = 0
Left = 120
TabIndex = 20
Top = 240
Value = -1 'True
Width = 1215
End
End
Begin VB.Frame Frame1
Caption = "Text Position"
Height = 975
Left = 6480
TabIndex = 16
Top = 5280
Width = 1935
Begin VB.OptionButton optTxtPos
Caption = "Under Barcode"
Height = 315
Index = 0
Left = 120
TabIndex = 18
Top = 240
Value = -1 'True
Width = 1575
End
Begin VB.OptionButton optTxtPos
Caption = "Above Barcode"
Height = 315
Index = 1
Left = 120
TabIndex = 17
Top = 600
Width = 1575
End
End
Begin VB.ComboBox cboBarRatio
Height = 315
Left = 7920
TabIndex = 6
Top = 2520
Width = 855
End
Begin VB.ComboBox cboMultiplier
Height = 315
Left = 7920
TabIndex = 5
Top = 2160
Width = 855
End
Begin VB.CommandButton cmdPrint
Caption = "&Print"
Height = 375
Left = 1440
TabIndex = 8
Top = 7440
Width = 900
End
Begin VB.CommandButton cmdDraw
Caption = "&Draw"
Height = 375
Left = 360
TabIndex = 7
Top = 7440
Width = 900
End
Begin VB.TextBox txtHeight
Height = 315
Left = 7920
TabIndex = 4
Text = "12"
Top = 1080
Width = 615
End
Begin VB.TextBox txtY
Height = 315
Left = 7920
TabIndex = 3
Text = "5"
Top = 720
Width = 615
End
Begin VB.TextBox txtX
Height = 315
Left = 7920
TabIndex = 2
Text = "5"
Top = 360
Width = 615
End
Begin VB.TextBox txtBarcode
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 6360
MaxLength = 20
TabIndex = 1
Top = 3600
Width = 2415
End
Begin VB.PictureBox picSave
Appearance = 0 'Flat
AutoRedraw = -1 'True
AutoSize = -1 'True
BackColor = &H80000005&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 375
Left = 6480
ScaleHeight = 375
ScaleWidth = 375
TabIndex = 39
Top = 6360
Visible = 0 'False
Width = 375
End
Begin VB.PictureBox picWorkspace
AutoRedraw = -1 'True
BackColor = &H00FFFFFF&
Height = 4575
Left = 240
ScaleHeight = 4515
ScaleWidth = 5835
TabIndex = 0
Top = 360
Width = 5895
End
Begin VB.Label lblImage
AutoSize = -1 'True
Caption = "Bitmap Image"
ForeColor = &H8000000D&
Height = 195
Left = 7080
TabIndex = 42
Top = 6480
Visible = 0 'False
Width = 960
End
Begin VB.Label Label8
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Bar X Width"
Height = 195
Left = 6360
TabIndex = 41
Top = 1800
Width = 855
End
Begin VB.Label Label7
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Bar/Text Gap [mm]"
Height = 195
Left = 6360
TabIndex = 24
Top = 1440
Width = 1350
End
Begin VB.Label Label6
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Bar Ratio:"
Height = 195
Left = 6360
TabIndex = 15
Top = 2520
Width = 705
End
Begin VB.Label Label5
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Multiplier"
Height = 195
Left = 6360
TabIndex = 14
Top = 2160
Width = 615
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "Height: [mm]"
Height = 195
Left = 6360
TabIndex = 13
Top = 1080
Width = 885
End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Y: [mm]"
Height = 195
Left = 6360
TabIndex = 12
Top = 720
Width = 525
End
Begin VB.Label Label2 End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transpar ckSt:am d.s 3r