📄 dlgxtcs.frm
字号:
Top = 240
Width = 600
End
Begin VB.TextBox txtBarCodeH
Height = 285
Left = 1950
TabIndex = 44
Top = 540
Width = 600
End
Begin VB.Label lblBarCodeW
BackStyle = 0 'Transparent
Caption = "宽度"
Height = 255
Left = 270
TabIndex = 135
Top = 570
Width = 435
End
Begin VB.Label lblBarCodeX
BackStyle = 0 'Transparent
Caption = "X坐标"
Height = 285
Left = 180
TabIndex = 70
Top = 270
Width = 525
End
Begin VB.Label lblBarCodeY
BackStyle = 0 'Transparent
Caption = "Y坐标"
Height = 255
Left = 1410
TabIndex = 69
Top = 270
Width = 465
End
Begin VB.Label lblBarCodeH
BackStyle = 0 'Transparent
Caption = "高度"
Height = 255
Left = 1530
TabIndex = 68
Top = 570
Width = 435
End
End
Begin VB.Frame fraBCNumber
BackColor = &H00D3DABC&
Caption = "编码数字(单位：mm)"
ForeColor = &H00FF0000&
Height = 885
Left = 3120
TabIndex = 63
Top = 1040
Width = 3795
Begin VB.CheckBox chkPrintNumber
BackColor = &H00D3DABC&
Caption = "打印"
ForeColor = &H000000FF&
Height = 255
Left = 2850
TabIndex = 133
Top = 540
Width = 825
End
Begin VB.TextBox txtNumberX
Height = 285
Left = 750
TabIndex = 45
Top = 240
Width = 600
End
Begin VB.TextBox txtNumberY
Height = 285
Left = 2070
TabIndex = 46
Top = 240
Width = 600
End
Begin XPControls.XPCommandButton cmdNumberFont
Height = 285
Left = 1950
TabIndex = 47
Top = 540
Width = 615
_ExtentX = 1085
_ExtentY = 503
Caption = "字体..."
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.Label lblNumberX
BackStyle = 0 'Transparent
Caption = "X坐标"
Height = 285
Left = 180
TabIndex = 66
Top = 270
Width = 525
End
Begin VB.Label lblNumberY
BackStyle = 0 'Transparent
Caption = "Y坐标"
Height = 255
Left = 1530
TabIndex = 65
Top = 270
Width = 465
End
Begin VB.Label lblNumberFont
BackStyle = 0 'Transparent
Caption = "字体示例"
Height = 345
Left = 180
TabIndex = 64
Top = 540
Width = 1275
End
End
Begin VB.Frame fraHospital
BackColor = &H00D3DABC&
Caption = "客户单位名称(单位：mm)"
ForeColor = &H00FF0000&
Height = 1005
Left = 150
TabIndex = 58
Top = 3570
Width = 2775
Begin VB.CheckBox chkPrintUnit
BackColor = &H00D3DABC&
Caption = "打印"
ForeColor = &H000000FF&
Height = 255
Left = 1920
TabIndex = 134
Top = 630
Width = 705
End
Begin VB.TextBox txtHospitalX
Height = 285
Left = 750
TabIndex = 39
Top = 270
Width = 600
End
Begin VB.TextBox txtHospitalY
Height = 285
Left = 2070
TabIndex = 40
Top = 270
Width = 600
End
Begin VB.TextBox txtHospital
BackColor = &H8000000F&
Height = 285
Left = 2310
TabIndex = 38
Top = 120
Visible = 0 'False
Width = 1905
End
Begin XPControls.XPCommandButton cmdHospitalFont
Height = 285
Left = 1110
TabIndex = 41
Top = 630
Width = 615
_ExtentX = 1085
_ExtentY = 503
Caption = "字体..."
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.Label lblHospitalX
BackStyle = 0 'Transparent
Caption = "X坐标"
Height = 225
Left = 180
TabIndex = 62
Top = 300
Width = 525
End
Begin VB.Label lblHospitalY
BackStyle = 0 'Transparent
Caption = "Y坐标"
Height = 225
Left = 1530
TabIndex = 61
Top = 300
Width = 465
End
Begin VB.Label lblHospital
BackStyle = 0 'Transparent
Caption = "名称"
Height = 225
Left = 1740
TabIndex = 60
Top = 150
Visible = 0 'False
Width = 465
End
Begin VB.Label lblHospitalFont
BackStyle = 0 'Transparent
Caption = "字体示例"
Height = 315
Left = 180
TabIndex = 59
Top = 660
Width = 1185
End
End
Begin VB.Frame fraBCUse
BackColor = &H00D3DABC&
Caption = "首选项"
ForeColor = &H00FF0000&
Height = 3405
Left = 150
TabIndex = 34
Top = 120
Width = 2775
Begin VB.Frame fraBarCodeContents
BackColor = &H00D3DABC&
Caption = "选择条形码编码内容"
Height = 615
Left = 90
TabIndex = 137
Top = 2700
Width = 2595
Begin VB.ComboBox cmbBarCodeContents
Height = 300
ItemData = "dlgXTCS.frx":1A4A
Left = 90
List = "dlgXTCS.frx":1A54
Style = 2 'Dropdown List
TabIndex = 138
Top = 240
Width = 2445
End
End
Begin VB.Frame fraBarCodeType
BackColor = &H00D3DABC&
Caption = "选择条形码编码格式"
Height = 615
Left = 90
TabIndex = 129
Top = 2030
Width = 2595
Begin VB.ComboBox cmbBarCodeType
Height = 300
ItemData = "dlgXTCS.frx":1A72
Left = 90
List = "dlgXTCS.frx":1A7C
Style = 2 'Dropdown List
TabIndex = 130
ToolTipText = "Code39支持数字和字母，密度低；EAN码密度高，仅支持长度为7和12的数字串（不支持字母）"
Top = 240
Width = 2445
End
End
Begin VB.Frame fraPrinter
BackColor = &H00D3DABC&
Caption = "选择条形码打印机"
Height = 615
Left = 90
TabIndex = 80
Top = 1360
Width = 2595
Begin VB.ComboBox cmbPrinter
Height = 300
Left = 90
Style = 2 'Dropdown List
TabIndex = 81
Top = 240
Width = 2445
End
End
Begin VB.Frame fraBCCount
BackColor = &H00D3DABC&
Caption = "打印份数"
Height = 795
Left = 90
TabIndex = 56
Top = 510
Width = 2595
Begin VB.CheckBox chkBCTips
Alignment = 1 'Right Justify
BackColor = &H00D3DABC&
Caption = "每次打印都提醒"
Height = 255
Left = 360
TabIndex = 37
Top = 480
Width = 1725
End
Begin VB.TextBox txtBCCount
Height = 285
Left = 1560
TabIndex = 36
Top = 180
Width = 600
End
Begin VB.Label lblBCCount
BackColor = &H00D3DABC&
Caption = "默认值："
Height = 255
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -