📄 frmpagesetup.frm
字号:
VERSION 5.00
Begin VB.Form frmPageSetup
BackColor = &H8000000B&
BorderStyle = 3 'Fixed Dialog
Caption = "Page Setup"
ClientHeight = 3540
ClientLeft = 45
ClientTop = 435
ClientWidth = 6375
Icon = "frmPageSetup.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2.458
ScaleMode = 5 'Inch
ScaleWidth = 4.427
ShowInTaskbar = 0 'False
StartUpPosition = 1 'CenterOwner
Begin VB.Frame frmUnits
BackColor = &H8000000B&
Caption = " Measurement Units "
Height = 1155
Left = 180
TabIndex = 21
Top = 120
Width = 1755
Begin VB.OptionButton optEng
BackColor = &H8000000B&
Caption = "English"
Height = 255
Left = 240
TabIndex = 23
Top = 360
Value = -1 'True
Width = 855
End
Begin VB.OptionButton optMetric
BackColor = &H8000000B&
Caption = "Metric (SI)"
Height = 255
Left = 240
TabIndex = 22
Top = 720
Width = 1035
End
End
Begin VB.TextBox txtPageHt
Alignment = 2 'Center
BackColor = &H8000000F&
Height = 315
Left = 3060
Locked = -1 'True
TabIndex = 18
Top = 1770
Width = 525
End
Begin VB.TextBox txtPageWid
Alignment = 2 'Center
BackColor = &H8000000F&
Height = 315
Left = 2100
Locked = -1 'True
TabIndex = 16
Top = 1770
Width = 525
End
Begin VB.CommandButton cmdCancel
Caption = "Cancel"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Left = 5220
TabIndex = 8
Top = 3060
Width = 975
End
Begin VB.CommandButton cmdOK
Caption = "OK"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Left = 4140
TabIndex = 7
Top = 3060
Width = 975
End
Begin VB.ComboBox cboPageSize
Height = 315
ItemData = "frmPageSetup.frx":0442
Left = 150
List = "frmPageSetup.frx":044F
TabIndex = 2
Text = "Letter"
Top = 1770
Width = 1605
End
Begin VB.TextBox txtBM
Alignment = 2 'Center
Height = 315
Left = 1980
TabIndex = 6
Top = 3060
Width = 495
End
Begin VB.TextBox txtTM
Alignment = 2 'Center
Height = 315
Left = 1980
TabIndex = 5
Top = 2400
Width = 495
End
Begin VB.TextBox txtRM
Alignment = 2 'Center
Height = 315
Left = 2700
TabIndex = 4
Top = 2670
Width = 495
End
Begin VB.TextBox txtLM
Alignment = 2 'Center
Height = 315
Left = 1260
TabIndex = 3
Top = 2700
Width = 495
End
Begin VB.Frame FraOrientation
BackColor = &H8000000B&
Caption = "Paper Orientation"
Height = 1155
Left = 2400
TabIndex = 1
Top = 120
Width = 1545
Begin VB.OptionButton OptLandscape
BackColor = &H8000000B&
Caption = "Landscape"
Height = 255
Left = 270
TabIndex = 9
Top = 720
Width = 1125
End
Begin VB.OptionButton OptPortrait
BackColor = &H8000000B&
Caption = "Portrait"
Height = 255
Left = 270
TabIndex = 0
Top = 360
Value = -1 'True
Width = 825
End
End
Begin VB.Label Label9
Alignment = 2 'Center
BackColor = &H8000000B&
Caption = "X"
Height = 195
Left = 2700
TabIndex = 20
Top = 1830
Width = 285
End
Begin VB.Label lblHeight
Alignment = 2 'Center
BackColor = &H8000000B&
Caption = "Height (in.)"
Height = 285
Left = 2940
TabIndex = 19
Top = 1500
Width = 915
End
Begin VB.Label lblWidth
Alignment = 2 'Center
BackColor = &H8000000B&
Caption = "Width (in.)"
Height = 225
Left = 1920
TabIndex = 17
Top = 1500
Width = 945
End
Begin VB.Label lblPageMarg
BackColor = &H8000000B&
Caption = "Page Margins (Inches)"
Height = 465
Left = 150
TabIndex = 15
Top = 2220
Width = 1035
End
Begin VB.Shape shpMargBord
BorderStyle = 3 'Dot
Height = 1440
Left = 4536
Top = 360
Width = 1080
End
Begin VB.Shape shpPage
BackColor = &H00FFFFFF&
BackStyle = 1 'Opaque
Height = 1584
Index = 1
Left = 4464
Top = 288
Width = 1224
End
Begin VB.Shape shpPage
BackColor = &H00000000&
BackStyle = 1 'Opaque
Height = 1584
Index = 0
Left = 4507
Top = 331
Width = 1224
End
Begin VB.Label Label5
BackColor = &H8000000B&
Caption = "Paper size"
Height = 255
Left = 150
TabIndex = 14
Top = 1530
Width = 765
End
Begin VB.Label Label4
BackColor = &H8000000B&
Caption = "Bottom"
Height = 225
Left = 1980
TabIndex = 13
Top = 2820
Width = 555
End
Begin VB.Label Label3
Alignment = 2 'Center
BackColor = &H8000000B&
Caption = "Top"
Height = 225
Left = 1980
TabIndex = 12
Top = 2160
Width = 525
End
Begin VB.Label Label2
Alignment = 2 'Center
BackColor = &H8000000B&
Caption = "Right"
Height = 225
Left = 2700
TabIndex = 11
Top = 2460
Width = 495
End
Begin VB.Label Label1
Alignment = 2 'Center
BackColor = &H8000000B&
Caption = "Left"
Height = 225
Left = 1260
TabIndex = 10
Top = 2460
Width = 495
End
End
Attribute VB_Name = "frmPageSetup"
Attribute VB_GlobalNameSpace = False
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -