frmmodcommonprintsetup.frm
来自「通用书店管理系统」· FRM 代码 · 共 1,707 行 · 第 1/5 页
FRM
1,707 行
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form frmModCommonPrintSetup
BorderStyle = 3 'Fixed Dialog
Caption = "页面设置"
ClientHeight = 6375
ClientLeft = 2760
ClientTop = 3750
ClientWidth = 8040
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 6375
ScaleWidth = 8040
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin TabDlg.SSTab SSTab1
Height = 5205
Left = 225
TabIndex = 5
Top = 345
Width = 7620
_ExtentX = 13441
_ExtentY = 9181
_Version = 393216
Tab = 1
TabHeight = 520
TabCaption(0) = "常规"
TabPicture(0) = "frmModCommonPrintSetup.frx":0000
Tab(0).ControlEnabled= 0 'False
Tab(0).Control(0)= "Frame2"
Tab(0).Control(1)= "Frame1"
Tab(0).Control(2)= "fraModel"
Tab(0).ControlCount= 3
TabCaption(1) = "显示"
TabPicture(1) = "frmModCommonPrintSetup.frx":001C
Tab(1).ControlEnabled= -1 'True
Tab(1).Control(0)= "fraTable"
Tab(1).Control(0).Enabled= 0 'False
Tab(1).Control(1)= "fraRepeat"
Tab(1).Control(1).Enabled= 0 'False
Tab(1).Control(2)= "fraPageOf"
Tab(1).Control(2).Enabled= 0 'False
Tab(1).ControlCount= 3
TabCaption(2) = "布局"
TabPicture(2) = "frmModCommonPrintSetup.frx":0038
Tab(2).ControlEnabled= 0 'False
Tab(2).Control(0)= "fraText"
Tab(2).Control(1)= "ist"
Tab(2).Control(2)= "tv"
Tab(2).Control(3)= "fraGrid"
Tab(2).Control(4)= "fraParent"
Tab(2).ControlCount= 5
Begin VB.Frame fraPageOf
Caption = "页码显示"
Height = 1755
Left = 3630
TabIndex = 98
Top = 525
Width = 3570
Begin VB.Frame fraPageOfPosition
BorderStyle = 0 'None
Height = 600
Left = 1035
TabIndex = 103
Top = 1080
Width = 1920
Begin VB.TextBox txtPageOfPositionY
Height = 270
Left = 510
TabIndex = 107
Top = 300
Width = 1395
End
Begin VB.TextBox txtPageOfPositionX
Height = 270
Left = 510
TabIndex = 106
Top = 0
Width = 1395
End
Begin VB.Label lblFields
AutoSize = -1 'True
Caption = "Y位置"
Height = 180
Index = 30
Left = 30
TabIndex = 105
Top = 330
Width = 450
End
Begin VB.Label lblFields
AutoSize = -1 'True
Caption = "X位置"
Height = 180
Index = 29
Left = 30
TabIndex = 104
Top = 45
Width = 450
End
End
Begin VB.ComboBox cboPageOfPosition
Height = 300
ItemData = "frmModCommonPrintSetup.frx":0054
Left = 1065
List = "frmModCommonPrintSetup.frx":0067
TabIndex = 102
Top = 690
Width = 1920
End
Begin VB.ComboBox cboPageOfFormat
Height = 300
ItemData = "frmModCommonPrintSetup.frx":009B
Left = 1065
List = "frmModCommonPrintSetup.frx":00A8
TabIndex = 100
Top = 255
Width = 1920
End
Begin VB.Label lblFields
AutoSize = -1 'True
Caption = "页码位置"
Height = 180
Index = 28
Left = 195
TabIndex = 101
Top = 750
Width = 720
End
Begin VB.Label lblFields
AutoSize = -1 'True
Caption = "页码格式"
Height = 180
Index = 27
Left = 210
TabIndex = 99
Top = 315
Width = 720
End
End
Begin VB.Frame fraText
Height = 4600
Left = -72225
TabIndex = 65
Top = 90
Width = 4600
Begin VB.Frame fraLayoutLabel
Caption = "标签"
Height = 1350
Left = 120
TabIndex = 81
Top = 240
Width = 4365
Begin VB.TextBox txtLayoutLabelOffset
Height = 315
Left = 1125
TabIndex = 84
Top = 930
Width = 1170
End
Begin VB.TextBox txtLayoutLabelWidth
Height = 285
Left = 675
TabIndex = 83
Top = 585
Width = 900
End
Begin VB.ComboBox cboLayoutLabelAlign
Height = 300
ItemData = "frmModCommonPrintSetup.frx":00D9
Left = 675
List = "frmModCommonPrintSetup.frx":00E6
Style = 2 'Dropdown List
TabIndex = 82
Top = 195
Width = 1140
End
Begin MSComCtl2.UpDown udLabelWidth
Height = 285
Left = 1575
TabIndex = 85
Top = 585
Width = 240
_ExtentX = 423
_ExtentY = 503
_Version = 393216
Value = 4
BuddyControl = "txtLayoutLabelWidth"
BuddyDispid = 196619
OrigLeft = 1350
OrigTop = 555
OrigRight = 1590
OrigBottom = 840
Max = 100
Min = 2
SyncBuddy = -1 'True
BuddyProperty = 65547
Enabled = -1 'True
End
Begin VB.Label lblFields
AutoSize = -1 'True
Caption = "**像素单位"
Height = 180
Index = 11
Left = 2400
TabIndex = 90
Top = 990
Width = 900
End
Begin VB.Label lblFields
AutoSize = -1 'True
Caption = "横向偏移量"
Height = 180
Index = 10
Left = 180
TabIndex = 89
Top = 990
Width = 900
End
Begin VB.Label lblFields
AutoSize = -1 'True
Caption = "**宽度以英文字数为单位"
Height = 180
Index = 6
Left = 1845
TabIndex = 88
Top = 600
Width = 1980
End
Begin VB.Label lblFields
AutoSize = -1 'True
Caption = "宽度"
Height = 180
Index = 5
Left = 180
TabIndex = 87
Top = 615
Width = 360
End
Begin VB.Label lblFields
AutoSize = -1 'True
Caption = "位置"
Height = 180
Index = 4
Left = 180
TabIndex = 86
Top = 270
Width = 360
End
End
Begin VB.TextBox txtLayoutSpanCols
Height = 300
Left = 1440
TabIndex = 80
Top = 3465
Width = 795
End
Begin VB.CheckBox chkNewLine
Caption = "强行换行"
Height = 285
Left = 600
TabIndex = 79
Top = 4005
Width = 1245
End
Begin VB.Frame fraLayoutText
Caption = "文本"
Height = 1395
Left = 120
TabIndex = 69
Top = 1740
Width = 4605
Begin VB.TextBox txtLayoutTextOffset
Height = 315
Left = 1200
TabIndex = 72
Top = 945
Width = 1170
End
Begin VB.TextBox txtLayoutTextWidth
Height = 285
Left = 675
TabIndex = 71
Top = 585
Width = 825
End
Begin VB.ComboBox cboLayoutTextAlign
Height = 300
ItemData = "frmModCommonPrintSetup.frx":00F6
Left = 660
List = "frmModCommonPrintSetup.frx":0103
Style = 2 'Dropdown List
TabIndex = 70
Top = 210
Width = 1140
End
Begin MSComCtl2.UpDown udTextWidth
Height = 285
Left = 1500
TabIndex = 73
Top = 585
Width = 240
_ExtentX = 423
_ExtentY = 503
_Version = 393216
Value = 4
BuddyControl = "txtLayoutTextWidth"
BuddyDispid = 196625
OrigLeft = 1950
OrigTop = 705
OrigRight = 2190
OrigBottom = 1005
Max = 100
Min = 2
SyncBuddy = -1 'True
BuddyProperty = 65547
Enabled = -1 'True
End
Begin VB.Label lblFields
AutoSize = -1 'True
Caption = "**像素单位"
Height = 180
Index = 13
Left = 2505
TabIndex = 78
Top = 990
Width = 900
End
Begin VB.Label lblFields
AutoSize = -1 'True
Caption = "横向偏移量"
Height = 180
Index = 12
Left = 195
TabIndex = 77
Top = 1005
Width = 900
End
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?