📄 mfrm_prop.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form mFrm_Prop
BorderStyle = 3 'Fixed Dialog
Caption = "对象属性："
ClientHeight = 4080
ClientLeft = 45
ClientTop = 330
ClientWidth = 5385
Icon = "mFrm_Prop.frx":0000
LinkTopic = "Form2"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4080
ScaleWidth = 5385
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin VB.ComboBox CmbSave
Height = 300
ItemData = "mFrm_Prop.frx":000C
Left = 240
List = "mFrm_Prop.frx":000E
Style = 2 'Dropdown List
TabIndex = 46
Top = 3690
Visible = 0 'False
Width = 1365
End
Begin VB.CommandButton CmdCancel
Cancel = -1 'True
Caption = "取 消(&A)"
Height = 345
Left = 3975
TabIndex = 27
Top = 3690
Width = 1185
End
Begin VB.CommandButton CmdOK
Caption = "确 定(&K)"
Height = 345
Left = 2670
TabIndex = 26
Top = 3690
Width = 1185
End
Begin VB.PictureBox Pic
Height = 3075
Index = 2
Left = 180
ScaleHeight = 3015
ScaleWidth = 4905
TabIndex = 15
Top = 450
Width = 4965
Begin VB.CheckBox ChkSumPage
Alignment = 1 'Right Justify
Caption = "页内合计"
Height = 225
Left = 3660
TabIndex = 40
Top = 510
Width = 1125
End
Begin VB.CheckBox ChkSumAll
Alignment = 1 'Right Justify
Caption = "跨页合计"
Height = 225
Left = 3660
TabIndex = 39
Top = 150
Width = 1125
End
Begin VB.Frame Frame6
Caption = "样式："
Height = 735
Left = 90
TabIndex = 32
Top = 30
Width = 3375
Begin VB.CommandButton CmdFont
Caption = "字体(&F)"
Height = 315
Left = 2160
TabIndex = 35
Top = 240
Width = 1035
End
Begin VB.ComboBox CmbAlign
Height = 300
ItemData = "mFrm_Prop.frx":0010
Left = 840
List = "mFrm_Prop.frx":001D
Style = 2 'Dropdown List
TabIndex = 34
Top = 240
Width = 1125
End
Begin VB.Label Label18
AutoSize = -1 'True
Caption = "对齐(&L)"
Height = 180
Left = 150
TabIndex = 33
Top = 300
Width = 630
End
End
Begin VB.Frame Frame5
Caption = "文本："
Height = 2085
Left = 90
TabIndex = 28
Top = 840
Width = 4695
Begin VB.CheckBox ChkScroll
Alignment = 1 'Right Justify
Caption = "滚动打印"
Height = 345
Left = 1290
TabIndex = 45
Top = 240
Width = 1065
End
Begin VB.TextBox TxtCaption
Height = 1725
Left = 2490
MultiLine = -1 'True
ScrollBars = 3 'Both
TabIndex = 37
Text = "mFrm_Prop.frx":0037
Top = 240
Width = 2085
End
Begin VB.ComboBox CmbFormat
Height = 300
Left = 150
TabIndex = 31
Top = 1590
Width = 2265
End
Begin VB.ComboBox CmbKey
Height = 300
Left = 120
Style = 2 'Dropdown List
TabIndex = 29
Top = 810
Width = 2265
End
Begin VB.Label Label7
AutoSize = -1 'True
Caption = "关键字(&K)："
Height = 180
Left = 120
TabIndex = 38
Top = 540
Width = 990
End
Begin VB.Label LabFormat
AutoSize = -1 'True
Caption = "格式(&F)："
Height = 180
Left = 120
TabIndex = 30
Top = 1290
Width = 810
End
End
End
Begin MSComDlg.CommonDialog Cdlg
Left = 5850
Top = 270
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.PictureBox Pic
Height = 3015
Index = 1
Left = 180
ScaleHeight = 2955
ScaleWidth = 4905
TabIndex = 14
Top = 450
Width = 4965
Begin VB.CheckBox ChkClip
Alignment = 1 'Right Justify
Caption = "自动裁减"
Height = 255
Left = 3150
TabIndex = 48
Top = 2213
Width = 1035
End
Begin VB.CheckBox ChkAutoSize
Alignment = 1 'Right Justify
Caption = "自动调整"
Height = 255
Left = 3150
TabIndex = 47
Top = 1673
Width = 1035
End
Begin VB.VScrollBar VScrLineWidth
Height = 375
Left = 2550
Max = 1
Min = 10
TabIndex = 25
Top = 2160
Value = 1
Width = 195
End
Begin VB.TextBox TxtLineWidth
Alignment = 1 'Right Justify
Height = 300
Left = 1830
LinkItem = "VScrLineWidth"
Locked = -1 'True
TabIndex = 23
Text = "1"
Top = 2190
Width = 705
End
Begin VB.ComboBox CmbLineStyle
Height = 300
ItemData = "mFrm_Prop.frx":003D
Left = 1320
List = "mFrm_Prop.frx":0050
Style = 2 'Dropdown List
TabIndex = 21
Top = 1650
Width = 1425
End
Begin VB.Frame Frame4
Height = 30
Left = 870
TabIndex = 20
Top = 1350
Width = 3765
End
Begin VB.Frame Frame3
Height = 30
Left = 870
TabIndex = 18
Top = 420
Width = 3765
End
Begin VB.Label Label10
AutoSize = -1 'True
Caption = "修改(&F)："
Height = 180
Left = 540
TabIndex = 44
Top = 735
Width = 810
End
Begin VB.Label LabColor
Alignment = 2 'Center
BorderStyle = 1 'Fixed Single
Height = 255
Left = 1410
TabIndex = 43
Top = 705
Width = 2865
End
Begin VB.Label LabLineStyle
AutoSize = -1 'True
Caption = "边线(&L)："
Height = 180
Left = 450
TabIndex = 42
Top = 1710
Width = 810
End
Begin VB.Label Label14
AutoSize = -1 'True
Caption = "(像素)"
Height = 180
Left = 1110
TabIndex = 24
Top = 2250
Width = 540
End
Begin VB.Label Label13
AutoSize = -1 'True
Caption = "线宽(&W) ："
Height = 180
Left = 450
TabIndex = 22
Top = 2250
Width = 1350
End
Begin VB.Label Label9
AutoSize = -1 'True
Caption = "样式："
Height = 180
Left = 240
TabIndex = 19
Top = 1260
Width = 540
End
Begin VB.Label Label8
AutoSize = -1 'True
Caption = "颜色："
Height = 180
Left = 240
TabIndex = 17
Top = 330
Width = 540
End
End
Begin VB.PictureBox Pic
Height = 3015
Index = 0
Left = 180
ScaleHeight = 2955
ScaleWidth = 4905
TabIndex = 9
Top = 450
Width = 4965
Begin VB.CheckBox ChkPrint
Alignment = 1 'Right Justify
Caption = "不打印此对象"
Height = 285
Left = 2970
TabIndex = 36
Top = 2280
Width = 1395
End
Begin VB.CheckBox ChkLock
Alignment = 1 'Right Justify
Caption = "对象锁定(&O)"
Height = 285
Left = 1020
TabIndex = 16
Top = 2280
Width = 1335
End
Begin VB.Frame Frame2
Height = 75
Left = 1230
TabIndex = 12
Top = 1290
Width = 3315
End
Begin VB.Frame Frame1
Height = 75
Left = 1230
TabIndex = 10
Top = 270
Width = 3315
End
Begin VB.TextBox TxtLeft
Height = 270
Left = 3270
TabIndex = 7
Top = 1650
Width = 1095
End
Begin VB.TextBox TxtTop
Height = 270
Left = 1260
TabIndex = 5
Top = 1650
Width = 1095
End
Begin VB.TextBox TxtWidth
Height = 270
Left = 3270
TabIndex = 3
Top = 615
Width = 1095
End
Begin VB.TextBox TxtHeight
Height = 270
Left = 1260
TabIndex = 1
Top = 630
Width = 1095
End
Begin VB.Label Label6
AutoSize = -1 'True
Caption = "位置(mm)："
Height = 180
Left = 210
TabIndex = 13
Top = 1260
Width = 900
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "大小(mm)："
Height = 180
Left = 210
TabIndex = 11
Top = 240
Width = 900
End
Begin VB.Label Label4
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "居左(&L):"
Height = 180
Left = 2550
TabIndex = 6
Top = 1695
Width = 720
End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "居上(&T):"
Height = 180
Left = 540
TabIndex = 4
Top = 1695
Width = 720
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -