📄 ymsz_frm.frm
字号:
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form ymsz_frm
BorderStyle = 3 'Fixed Dialog
Caption = "页面设置"
ClientHeight = 4110
ClientLeft = 30
ClientTop = 330
ClientWidth = 5790
Icon = "ymsz_frm.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 72.496
ScaleMode = 6 'Millimeter
ScaleWidth = 102.129
ShowInTaskbar = 0 'False
StartUpPosition = 3 'Windows Default
Begin MSComDlg.CommonDialog cd
Left = 1410
Top = 3675
_ExtentX = 688
_ExtentY = 688
_Version = 393216
End
Begin VB.CommandButton Command1
Caption = "默认(&D)"
Height = 336
Index = 3
Left = 132
TabIndex = 31
Top = 3684
Width = 1176
End
Begin VB.CommandButton Command1
Cancel = -1 'True
Caption = "取消(&C)"
Height = 336
Index = 2
Left = 4476
TabIndex = 20
Top = 3684
Width = 1176
End
Begin VB.CommandButton Command1
Caption = "应用(&A)"
Height = 336
Index = 1
Left = 3240
TabIndex = 19
Top = 3684
Width = 1176
End
Begin VB.CommandButton Command1
Caption = "确定(&Q)"
Default = -1 'True
Height = 336
Index = 0
Left = 2004
TabIndex = 18
Top = 3684
Width = 1176
End
Begin TabDlg.SSTab SSTab1
Height = 3435
Left = 135
TabIndex = 0
Top = 150
Width = 5505
_ExtentX = 9710
_ExtentY = 6059
_Version = 393216
Style = 1
Tabs = 4
TabsPerRow = 5
TabHeight = 617
TabCaption(0) = "字体/颜色"
TabPicture(0) = "ymsz_frm.frx":000C
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "Frame2(0)"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "Frame2(1)"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).ControlCount= 2
TabCaption(1) = "表格/文字控制"
TabPicture(1) = "ymsz_frm.frx":0028
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "UpDown6"
Tab(1).Control(1)= "Text9"
Tab(1).Control(2)= "Text1(2)"
Tab(1).Control(3)= "Text1(3)"
Tab(1).Control(4)= "UpDown1(0)"
Tab(1).Control(5)= "Frame3"
Tab(1).Control(6)= "Text2(1)"
Tab(1).Control(7)= "Text2(0)"
Tab(1).Control(8)= "Check1(1)"
Tab(1).Control(9)= "Check1(0)"
Tab(1).Control(10)= "Text1(1)"
Tab(1).Control(11)= "Text1(0)"
Tab(1).Control(12)= "Frame1"
Tab(1).Control(13)= "UpDown1(1)"
Tab(1).Control(14)= "UpDown1(10)"
Tab(1).Control(15)= "UpDown1(11)"
Tab(1).Control(16)= "UpDown1(2)"
Tab(1).Control(17)= "UpDown1(3)"
Tab(1).Control(18)= "Label12"
Tab(1).Control(19)= "Label10"
Tab(1).Control(20)= "Label1(4)"
Tab(1).Control(21)= "Label1(5)"
Tab(1).Control(22)= "Label2(4)"
Tab(1).Control(23)= "Label2(5)"
Tab(1).Control(24)= "Label2(3)"
Tab(1).Control(25)= "Label2(2)"
Tab(1).Control(26)= "Label1(3)"
Tab(1).Control(27)= "Label1(2)"
Tab(1).Control(28)= "Label2(1)"
Tab(1).Control(29)= "Label2(0)"
Tab(1).Control(30)= "Label1(1)"
Tab(1).Control(31)= "Label1(0)"
Tab(1).ControlCount= 32
TabCaption(2) = "纸张"
TabPicture(2) = "ymsz_frm.frx":0044
Tab(2).ControlEnabled= 0 'False
Tab(2).Control(0)= "Frame4"
Tab(2).Control(1)= "Frame5"
Tab(2).ControlCount= 2
TabCaption(3) = "页眉/页尾"
TabPicture(3) = "ymsz_frm.frx":0060
Tab(3).ControlEnabled= 0 'False
Tab(3).Control(0)= "Label11"
Tab(3).Control(1)= "Check3(0)"
Tab(3).Control(2)= "Check3(1)"
Tab(3).Control(3)= "Text5(0)"
Tab(3).Control(4)= "Text5(1)"
Tab(3).Control(5)= "Check4(0)"
Tab(3).Control(6)= "Check4(1)"
Tab(3).Control(7)= "Check4(2)"
Tab(3).Control(8)= "Frame6(0)"
Tab(3).Control(9)= "Frame6(1)"
Tab(3).Control(10)= "Frame7"
Tab(3).Control(11)= "Check6(0)"
Tab(3).Control(12)= "Check6(1)"
Tab(3).Control(13)= "Text10"
Tab(3).Control(14)= "UpDown7"
Tab(3).ControlCount= 15
Begin MSComCtl2.UpDown UpDown7
Height = 270
Left = -72465
TabIndex = 125
Top = 2910
Width = 240
_ExtentX = 423
_ExtentY = 476
_Version = 393216
Value = 5
BuddyControl = "Text10"
BuddyDispid = 196610
OrigLeft = 2580
OrigTop = 2880
OrigRight = 2820
OrigBottom = 3225
Increment = 5
Max = 80
Min = 5
SyncBuddy = -1 'True
BuddyProperty = 65547
Enabled = -1 'True
End
Begin VB.TextBox Text10
Alignment = 1 'Right Justify
Height = 270
Left = -72900
Locked = -1 'True
TabIndex = 124
Text = "20"
Top = 2910
Width = 450
End
Begin MSComCtl2.UpDown UpDown6
Height = 285
Left = -72885
TabIndex = 122
Top = 2355
Width = 270
_ExtentX = 423
_ExtentY = 503
_Version = 393216
Value = 10
BuddyControl = "Text9"
BuddyDispid = 196611
OrigLeft = 2232
OrigTop = 2352
OrigRight = 2484
OrigBottom = 2640
Max = 80
Min = 5
SyncBuddy = -1 'True
BuddyProperty = 65547
Enabled = -1 'True
End
Begin VB.TextBox Text9
Alignment = 1 'Right Justify
Height = 264
Left = -73605
Locked = -1 'True
TabIndex = 121
Text = "40"
Top = 2370
Width = 684
End
Begin VB.CheckBox Check6
Caption = "水平居中"
Height = 216
Index = 1
Left = -74460
TabIndex = 116
Top = 2088
Value = 1 'Checked
Width = 1020
End
Begin VB.CheckBox Check6
Caption = "水平居中"
Height = 216
Index = 0
Left = -74460
TabIndex = 115
Top = 1092
Value = 1 'Checked
Width = 1020
End
Begin VB.TextBox Text1
Alignment = 1 'Right Justify
Height = 264
Index = 2
Left = -73605
Locked = -1 'True
TabIndex = 108
Text = "9.1176"
Top = 1752
Visible = 0 'False
Width = 696
End
Begin VB.TextBox Text1
Alignment = 1 'Right Justify
Height = 264
Index = 3
Left = -73605
Locked = -1 'True
TabIndex = 107
Text = "2.12"
Top = 2040
Visible = 0 'False
Width = 696
End
Begin MSComCtl2.UpDown UpDown1
Height = 285
Index = 0
Left = -72900
TabIndex = 97
Top = 1170
Width = 240
_ExtentX = 423
_ExtentY = 503
_Version = 393216
Value = 10
BuddyControl = "Text1(0)"
BuddyDispid = 196613
BuddyIndex = 0
OrigLeft = 2244
OrigTop = 1164
OrigRight = 2484
OrigBottom = 1452
Max = 50
Min = 10
SyncBuddy = -1 'True
BuddyProperty = 65547
Enabled = -1 'True
End
Begin VB.Frame Frame7
Caption = "样式："
Height = 576
Left = -72045
TabIndex = 90
Top = 2712
Width = 2340
Begin VB.OptionButton Option3
Caption = "第 1 页"
Height = 300
Index = 1
Left = 150
Style = 1 'Graphical
TabIndex = 92
Top = 195
Value = -1 'True
Width = 984
End
Begin VB.OptionButton Option3
Caption = "第1/N页"
Height = 300
Index = 0
Left = 1245
Style = 1 'Graphical
TabIndex = 91
Top = 195
Width = 984
End
End
Begin VB.Frame Frame6
Caption = "位置："
Height = 588
Index = 1
Left = -73440
TabIndex = 83
Top = 1836
Width = 3732
Begin MSComCtl2.UpDown UpDown4
Height = 288
Index = 0
Left = 1200
TabIndex = 105
Top = 192
Width = 240
_ExtentX = 423
_ExtentY = 503
_Version = 393216
Value = 5
BuddyControl = "Text6(3)"
BuddyDispid = 196617
BuddyIndex = 3
OrigLeft = 1188
OrigTop = 192
OrigRight = 1428
OrigBottom = 492
Increment = 5
Max = 90
Min = 5
SyncBuddy = -1 'True
BuddyProperty = 65547
Enabled = 0 'False
End
Begin VB.TextBox Text6
Alignment = 1 'Right Justify
Enabled = 0 'False
Height = 288
Index = 3
Left = 684
Locked = -1 'True
TabIndex = 85
Top = 192
Width = 516
End
Begin VB.TextBox Text6
Alignment = 1 'Right Justify
Enabled = 0 'False
Height = 288
Index = 2
Left = 2580
Locked = -1 'True
TabIndex = 84
Top = 192
Width = 504
End
Begin MSComCtl2.UpDown UpDown4
Height = 288
Index = 1
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -