📄 main.frm
字号:
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx"
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "comctl32.ocx"
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form Form1
Caption = "沉降分析"
ClientHeight = 8535
ClientLeft = 45
ClientTop = 795
ClientWidth = 11985
LinkTopic = "Form1"
ScaleHeight = 8535
ScaleWidth = 11985
Begin MSFlexGridLib.MSFlexGrid MSFlexGrid1
Height = 7935
Left = 1800
TabIndex = 3
Top = 3720
Width = 4500
_ExtentX = 7938
_ExtentY = 13996
_Version = 393216
Rows = 22
Cols = 4
End
Begin ComctlLib.ProgressBar ProgressBar1
Height = 288
Left = 6000
TabIndex = 0
Top = 8280
Width = 7656
_ExtentX = 13494
_ExtentY = 503
_Version = 327682
Appearance = 1
End
Begin VB.TextBox Text1
Height = 264
Left = 2040
TabIndex = 2
Top = 720
Visible = 0 'False
Width = 852
End
Begin ComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 270
Left = 0
TabIndex = 1
Top = 8265
Width = 11985
_ExtentX = 21140
_ExtentY = 476
SimpleText = ""
_Version = 327682
BeginProperty Panels {0713E89E-850A-101B-AFC0-4210102A8DA7}
NumPanels = 2
BeginProperty Panel1 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Style = 6
Object.Width = 5295
MinWidth = 5295
TextSave = "2008-2-19"
Object.Tag = ""
EndProperty
BeginProperty Panel2 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Style = 5
Object.Width = 5293
MinWidth = 5293
TextSave = "13:22"
Object.Tag = ""
EndProperty
EndProperty
End
Begin MSComDlg.CommonDialog CommonDialog1
Left = 7800
Top = 480
_ExtentX = 688
_ExtentY = 688
_Version = 393216
End
Begin MSFlexGridLib.MSFlexGrid MSFlexGrid2
Height = 8655
Left = 7080
TabIndex = 4
Top = 4560
Width = 9375
_ExtentX = 16536
_ExtentY = 15266
_Version = 393216
Rows = 5
Cols = 14
FixedRows = 0
FixedCols = 0
BackColorBkg = 16777215
WordWrap = -1 'True
Redraw = -1 'True
ScrollTrack = -1 'True
GridLines = 3
AllowUserResizing= 3
OLEDropMode = 1
End
Begin VB.Line Line1
BorderColor = &H000000FF&
BorderStyle = 6 'Inside Solid
DrawMode = 16 'Merge Pen
X1 = 0
X2 = 15240
Y1 = 0
Y2 = 0
End
Begin VB.Menu file
Caption = "文件"
Begin VB.Menu new
Caption = "新建"
End
Begin VB.Menu open
Caption = "打开"
Begin VB.Menu 模版1
Caption = "模版1"
End
Begin VB.Menu 模版2
Caption = "模版2"
End
End
Begin VB.Menu save
Caption = "保存"
End
Begin VB.Menu pnt
Caption = "打印"
End
Begin VB.Menu exit
Caption = "退出"
End
End
Begin VB.Menu 编辑
Caption = "编辑"
Begin VB.Menu addrow
Caption = "增加行"
End
Begin VB.Menu addcol
Caption = "增加列"
End
Begin VB.Menu del
Caption = "删除行"
End
End
Begin VB.Menu 分析
Caption = "分析"
Begin VB.Menu 沉降分析
Caption = "沉降分析"
End
Begin VB.Menu 沉降折线图
Caption = "折线图"
End
Begin VB.Menu spline1
Caption = "曲线图"
End
Begin VB.Menu 沉降拟和图
Caption = "拟和图"
End
End
Begin VB.Menu 报
Caption = "报告"
Begin VB.Menu report
Caption = "报表"
End
End
Begin VB.Menu help
Caption = "帮助"
Begin VB.Menu helpobject
Caption = "帮助主题"
End
Begin VB.Menu ss
Caption = "-"
End
Begin VB.Menu about
Caption = "关于"
End
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -