📄 frmmain.frm
字号:
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "Mscomctl.ocx"
Begin VB.Form Frmmain
AutoRedraw = -1 'True
Caption = "水平方向值自动计算三角闭合差"
ClientHeight = 7980
ClientLeft = 165
ClientTop = 855
ClientWidth = 10290
FillColor = &H80000012&
ForeColor = &H00000000&
Picture = "frmmain.frx":0000
ScaleHeight = 7980
ScaleWidth = 10290
StartUpPosition = 3 '窗口缺省
Begin MSComctlLib.ImageList ImageList1
Left = 120
Top = 840
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 33
ImageHeight = 31
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 9
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmmain.frx":16B1C
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmmain.frx":173CA
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmmain.frx":17C78
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmmain.frx":18526
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmmain.frx":18879
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmmain.frx":1A5C7
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmmain.frx":1A6D9
Key = ""
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmmain.frx":1A7EB
Key = ""
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmmain.frx":1ABA5
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 645
Left = 0
TabIndex = 1
Top = 0
Width = 10290
_ExtentX = 18150
_ExtentY = 1138
ButtonWidth = 1058
ButtonHeight = 979
Appearance = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 9
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "New"
Object.ToolTipText = "新项目"
ImageIndex = 1
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "Open"
Object.ToolTipText = "打开项目"
ImageIndex = 2
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "SaveAs"
Object.ToolTipText = "另存为"
ImageIndex = 3
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "Close"
Object.ToolTipText = "关闭"
ImageIndex = 4
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "Exit"
Object.ToolTipText = "退出"
ImageIndex = 5
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "Calculate"
Object.ToolTipText = "计算"
ImageIndex = 6
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "View"
Object.ToolTipText = "查看"
ImageIndex = 7
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "Print"
Object.ToolTipText = "打印结果"
ImageIndex = 8
EndProperty
BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "HelpAbout"
Object.ToolTipText = "帮助关于"
ImageIndex = 9
EndProperty
EndProperty
End
Begin MSComDlg.CommonDialog CommonDialog1
Left = 120
Top = 1560
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.Image Image2
Height = 600
Left = 8760
Picture = "frmmain.frx":1AF0E
Top = 3240
Width = 600
End
Begin VB.Image Image1
Height = 600
Left = 480
Picture = "frmmain.frx":1B072
Top = 3240
Width = 600
End
Begin VB.Label Label1
Caption = "欢迎使用水平方向值自动计算三角形闭合差程序 "
BeginProperty Font
Name = "隶书"
Size = 21.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF00FF&
Height = 975
Left = 1200
TabIndex = 0
Top = 3000
Width = 7455
End
Begin VB.Menu MnuFile
Caption = "文件(&F)"
Begin VB.Menu MnuNewProject
Caption = "新建工程(&N)"
Shortcut = ^N
End
Begin VB.Menu MnuOpenProject
Caption = "打开工程"
Shortcut = ^O
End
Begin VB.Menu step1
Caption = "-"
End
Begin VB.Menu MnuCloseProject
Caption = "关闭"
End
Begin VB.Menu MnuSave
Caption = "保存"
End
Begin VB.Menu MnuSaveProjectAs
Caption = "另存为..."
End
Begin VB.Menu step2
Caption = "-"
End
Begin VB.Menu MnuLastProject
Caption = "最近打开的项目"
End
Begin VB.Menu step3
Caption = "-"
End
Begin VB.Menu MnuExitProject
Caption = "退出"
Shortcut = ^E
End
End
Begin VB.Menu MnuDataInput
Caption = "数据输入(&D)"
Begin VB.Menu spfxvalue
Caption = "水平方向值"
End
End
Begin VB.Menu MnuCalculate
Caption = "计算(&C)"
Begin VB.Menu Calculatetri
Caption = "计算三角闭合差"
End
Begin VB.Menu callevelmiddleerror
Caption = "计算水平方向中误差"
End
End
Begin VB.Menu MnuView
Caption = "查看(&V)"
Begin VB.Menu MnuViewSpfxValue
Caption = "查看水平方向值"
End
Begin VB.Menu MnuViewTri
Caption = "查看三角形闭合差"
End
Begin VB.Menu MnuViewLevelMiddleError
Caption = "查看水平方向中误差"
End
End
Begin VB.Menu MnuReport
Caption = "报表(&R)"
Begin VB.Menu MnuReportPrint
Caption = "报表打印"
End
End
Begin VB.Menu MnuHelp
Caption = "帮助(&H)"
Begin VB.Menu MnuHelpTopics
Caption = "帮助主题"
End
Begin VB.Menu MnuHelpAbout
Caption = "关于"
End
End
End
Attribute VB_Name = "frmmain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
Me.Left = (Screen.Width - Me.Width) / 2
Me.Top = (Screen.Height - Me.Height) / 2
End Sub
Private Sub Form_Initialize()
MnuSaveProjectAs.Enabled = False
spfxvalue.Enabled = False
Calculatetri.Enabled = False
callevelmiddleerror.Enabled = False
MnuLastProject.Enabled = False
MnuSave.Enabled = False
MnuReportPrint.Enabled = False
MnuViewLevelMiddleError.Enabled = False
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -