📄 水泥砼设计.frm
字号:
TabIndex = 37
Text = "Text11"
Top = 2622
Width = 1575
End
Begin VB.ComboBox Combo4
Height = 300
Left = 1440
TabIndex = 35
Text = "Combo4"
Top = 2225
Width = 1575
End
Begin VB.TextBox Text10
Height = 270
Left = 1440
TabIndex = 13
Text = "Text10"
ToolTipText = "不用输入"
Top = 1858
Width = 1575
End
Begin VB.TextBox Text9
Height = 270
Left = 1440
TabIndex = 12
Text = "Text9"
Top = 1491
Width = 1575
End
Begin VB.ComboBox Combo3
Height = 300
Left = 1440
TabIndex = 11
Text = "Combo3"
Top = 727
Width = 1575
End
Begin VB.TextBox Text7
Height = 270
Left = 1440
TabIndex = 10
Text = "Text7"
ToolTipText = "一般情况为0.5"
Top = 360
Width = 1575
End
Begin VB.Label Label33
Caption = "交通分级"
Height = 255
Left = 120
TabIndex = 84
Top = 3360
Width = 1335
End
Begin VB.Label Label16
Caption = "标准轴载次数Ne"
Height = 255
Left = 120
TabIndex = 38
Top = 3015
Width = 1335
End
Begin VB.Label Label15
Caption = "车轮轮迹横向值"
Height = 255
Left = 120
TabIndex = 36
Top = 2670
Width = 1335
End
Begin VB.Label Label14
Caption = "横向分布系数"
Height = 255
Left = 120
TabIndex = 34
Top = 2325
Width = 1335
End
Begin VB.Label Label13
Caption = "设计年平均日货车交通量ADTT"
Height = 375
Left = 120
TabIndex = 18
Top = 1860
Width = 1335
End
Begin VB.Label Label12
Caption = "使用初期年平均日交通量(双向)"
Height = 375
Left = 120
TabIndex = 17
Top = 1395
Width = 1335
End
Begin VB.Label Label8
Caption = "方向分配系数"
Height = 255
Left = 120
TabIndex = 16
Top = 360
Width = 1335
End
Begin VB.Label Label9
Caption = "单向车道数"
Height = 255
Left = 120
TabIndex = 15
Top = 705
Width = 1215
End
Begin VB.Label Label10
Caption = "车道分配系数"
Height = 255
Left = 120
TabIndex = 14
Top = 1050
Width = 1215
End
End
Begin VB.Frame Frame3
Caption = "轴载当量法"
Height = 2895
Left = 120
TabIndex = 5
Top = 1320
Width = 6615
Begin VSFlex7DAOCtl.VSFlexGrid VSFlexGrid1
Height = 2535
Left = 120
TabIndex = 6
Top = 240
Width = 6375
_cx = 11245
_cy = 4471
_ConvInfo = -1
Appearance = 1
BorderStyle = 1
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
MousePointer = 0
BackColor = -2147483643
ForeColor = -2147483640
BackColorFixed = -2147483633
ForeColorFixed = -2147483630
BackColorSel = -2147483635
ForeColorSel = -2147483634
BackColorBkg = 14737632
BackColorAlternate= -2147483643
GridColor = -2147483633
GridColorFixed = -2147483632
TreeColor = -2147483632
FloodColor = 192
SheetBorder = -2147483642
FocusRect = 3
HighLight = 1
AllowSelection = -1 'True
AllowBigSelection= -1 'True
AllowUserResizing= 3
SelectionMode = 0
GridLines = 1
GridLinesFixed = 2
GridLineWidth = 1
Rows = 7
Cols = 8
FixedRows = 1
FixedCols = 1
RowHeightMin = 280
RowHeightMax = 0
ColWidthMin = 0
ColWidthMax = 0
ExtendLastCol = 0 'False
FormatString = ""
ScrollTrack = 0 'False
ScrollBars = 3
ScrollTips = 0 'False
MergeCells = 0
MergeCompare = 0
AutoResize = -1 'True
AutoSizeMode = 0
AutoSearch = 0
AutoSearchDelay = 2
MultiTotals = -1 'True
SubtotalPosition= 1
OutlineBar = 0
OutlineCol = 0
Ellipsis = 0
ExplorerBar = 0
PicturesOver = 0 'False
FillStyle = 0
RightToLeft = 0 'False
PictureType = 0
TabBehavior = 0
OwnerDraw = 0
Editable = 2
ShowComboButton = -1 'True
WordWrap = 0 'False
TextStyle = 0
TextStyleFixed = 0
OleDragMode = 0
OleDropMode = 0
DataMode = 0
VirtualData = -1 'True
ComboSearch = 3
AutoSizeMouse = -1 'True
FrozenRows = 0
FrozenCols = 0
AllowUserFreezing= 3
BackColorFrozen = 0
ForeColorFrozen = 0
WallPaperAlignment= 9
End
End
Begin VB.Frame Frame5
Caption = "轴载分析方法"
Height = 735
Left = 120
TabIndex = 2
Top = 480
Width = 4695
Begin VB.OptionButton Option1
Caption = "轴载当量换算系数法"
Height = 255
Left = 120
TabIndex = 4
Top = 360
Value = -1 'True
Width = 2055
End
Begin VB.OptionButton Option2
Caption = "车辆当量轴载系数法"
Height = 255
Left = 2520
TabIndex = 3
Top = 360
Width = 2055
End
End
Begin VB.Frame Frame4
Caption = "车辆当量法"
Height = 2895
Left = 120
TabIndex = 7
Top = 1320
Width = 6615
Begin VSFlex7DAOCtl.VSFlexGrid VSFlexGrid2
Height = 2535
Left = 120
TabIndex = 8
Top = 240
Width = 6375
_cx = 11245
_cy = 4471
_ConvInfo = -1
Appearance = 1
BorderStyle = 1
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
MousePointer = 0
BackColor = -2147483643
ForeColor = -2147483640
BackColorFixed = -2147483633
ForeColorFixed = -2147483630
BackColorSel = -2147483635
ForeColorSel = -2147483634
BackColorBkg = 14737632
BackColorAlternate= -2147483643
GridColor = -2147483633
GridColorFixed = -2147483632
TreeColor = -2147483632
FloodColor = 192
SheetBorder = -2147483642
FocusRect = 3
HighLight = 1
AllowSelection = -1 'True
AllowBigSelection= -1 'True
AllowUserResizing= 3
SelectionMode = 0
GridLines = 1
GridLinesFixed = 2
GridLineWidth = 1
Rows = 7
Cols = 10
FixedRows = 1
FixedCols = 1
RowHeightMin = 280
RowHeightMax = 0
ColWidthMin = 0
ColWidthMax = 0
ExtendLastCol = 0 'False
FormatString = ""
ScrollTrack = 0 'False
ScrollBars = 3
ScrollTips = 0 'False
MergeCells = 0
MergeCompare = 0
AutoResize = -1 'True
AutoSizeMode = 0
AutoSearch = 0
AutoSearchDelay = 2
MultiTotals = -1 'True
SubtotalPosition= 1
OutlineBar = 0
OutlineCol = 0
Ellipsis = 0
ExplorerBar = 0
PicturesOver = 0 'False
FillStyle = 0
RightToLeft = 0 'False
PictureType = 0
TabBehavior = 0
OwnerDraw = 0
Editable = 2
ShowComboButton = -1 'True
WordWrap = 0 'False
TextStyle = 0
TextStyleFixed = 0
OleDragMode = 0
OleDropMode = 0
DataMode = 0
VirtualData = -1 'True
ComboSearch = 3
AutoSizeMouse = -1 'True
FrozenRows = 0
FrozenCols = 0
AllowUserFreezing= 3
BackColorFrozen = 0
ForeColorFrozen = 0
WallPaperAlignment= 9
End
End
End
Begin VB.CommandButton Command3
Caption = "荷载应力"
Height = 375
Left = 4800
TabIndex = 56
Top = 4440
Width = 975
End
Begin VB.CommandButton Command4
Caption = "温度应力"
Height = 375
Left = 4800
TabIndex = 91
Top = 4440
Width = 975
End
End
Attribute VB_Name = "frmsntshj"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim sj(3) As String
Dim fjwb As String
Dim nss As Double
Dim adtt As Double
Dim ne As Double
Dim eex As Double, hh1 As Double, hh2 As Double
Dim ee1 As Double, ee2 As Double
Dim ddx As Double, hhx As Double
Dim kf As Double, kr As Double, kc As Double, et As Double, ppr As Double
Dim h As Double, r As Double, bps As Double, ec As Double
Dim ap As Double, bp As Double, cp As Double
Private Sub Combo1_Click()
'选择公路等级
On Error GoTo handlerror
If Trim(Combo1.Text) = "高速公路" Then
Text1.Text = "一级"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -