📄 框架其他参数.frm
字号:
End
Begin VB.Label Label4
Alignment = 2 'Center
Caption = "楼面板附加重量(kN/m2)"
Height = 255
Index = 3
Left = 120
TabIndex = 17
Top = 1320
Width = 2055
End
End
Begin VB.Frame Frame1
Caption = "风荷载基本参数"
Height = 855
Index = 2
Left = 3480
TabIndex = 9
Top = 1250
Width = 3375
Begin VB.TextBox Text1
Alignment = 2 'Center
Height = 300
Index = 9
Left = 2280
TabIndex = 10
Text = "0.55"
Top = 360
Width = 855
End
Begin VB.Label Label1
Alignment = 2 'Center
Caption = "基本风压(kN/m2)"
Height = 180
Index = 2
Left = 720
TabIndex = 11
Top = 420
Width = 1575
End
End
Begin VB.Frame Frame1
Caption = "楼、屋面板厚度"
Height = 1215
Index = 0
Left = 3480
TabIndex = 4
Top = 0
Width = 3375
Begin VB.TextBox Text1
Alignment = 2 'Center
Height = 300
Index = 10
Left = 2280
TabIndex = 6
Text = "600"
Top = 720
Width = 855
End
Begin VB.TextBox Text1
Alignment = 2 'Center
Height = 300
Index = 6
Left = 2280
TabIndex = 5
Text = "100"
Top = 240
Width = 855
End
Begin VB.Label Label1
Alignment = 2 'Center
Caption = "室外地坪距基础顶面(mm)"
Height = 180
Index = 7
Left = 120
TabIndex = 8
Top = 780
Width = 2175
End
Begin VB.Label Label1
Alignment = 2 'Center
Caption = "钢筋混凝土楼板厚度(mm)"
Height = 180
Index = 8
Left = 120
TabIndex = 7
Top = 360
Width = 2175
End
End
Begin VB.Frame Frame1
Caption = "抗震相关资料"
Height = 2175
Index = 1
Left = 3480
TabIndex = 0
Top = 2160
Width = 3375
Begin VB.ComboBox Combo1
Height = 300
Index = 3
ItemData = "框架其他参数.frx":005E
Left = 2040
List = "框架其他参数.frx":006B
Style = 2 'Dropdown List
TabIndex = 37
Top = 1680
Width = 1095
End
Begin VB.Label Label1
Alignment = 2 'Center
Caption = "设计地震分组"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Index = 11
Left = 600
TabIndex = 36
Top = 1755
Width = 1215
End
Begin VB.Label Label1
Alignment = 2 'Center
Caption = "地震影响"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Index = 5
Left = 600
TabIndex = 3
Top = 1275
Width = 1215
End
Begin VB.Label Label1
Alignment = 2 'Center
Caption = "建筑场地类别"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Index = 0
Left = 600
TabIndex = 2
Top = 315
Width = 1215
End
Begin VB.Label Label1
Alignment = 2 'Center
Caption = "抗震设防烈度"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Index = 1
Left = 600
TabIndex = 1
Top = 795
Width = 1215
End
End
End
Attribute VB_Name = "kuangjia2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim i As Integer
Private Sub Command1_Click()
Dim i As Integer
Dim Filename As String, N
For i = 1 To 12
基本设计资料(i) = Text1(i - 1).Text
Next i
For i = 13 To 16
基本设计资料(i) = Combo1(i - 13).Text
Next i
屋面梁附加重量 = Text1(0).Text
楼面梁附加重量 = Text1(1).Text
屋面板附加重量 = Text1(2).Text
楼面板附加重量 = Text1(3).Text
屋面均布活荷载 = Text1(4).Text
楼面均布活荷载 = Text1(5).Text
钢筋混凝土楼板厚度 = Text1(6).Text
框架总榀数 = Text1(7).Text
相邻框架间距 = Text1(8).Text
基本风压 = Text1(9).Text
室外地坪距基础顶面 = Text1(10).Text
建筑场地类别 = Combo1(0).Text
抗震设防烈度 = Combo1(1).Text
地震类型 = Combo1(2).Text
设计地震分组 = Combo1(3).Text
女儿墙墙高 = Text1(11).Text
For i = 0 To 3
MDIForm1.jm(i).Enabled = True
Next i
gongju1.Toolbar2.Buttons("zhu").Enabled = True
gongju1.Toolbar2.Buttons("lian").Enabled = True
gongju1.Toolbar2.Buttons("zhuzhg").Enabled = True
gongju1.Toolbar2.Buttons("qiti").Enabled = True
' Call 自动生成NgnXY ' 求得kuashu,cengshu
Filename = Fname & "工程"
If 存盘标记 = True Then
Call 设计资料输出至文件(Filename)
End If
Unload kuangjia2
End Sub
Private Sub Command2_Click()
For i = 0 To 11
kuangjia2.Text1(i).Text = "" '清空文本
kuangjia2.Text1(i).Alignment = vbCenter '文本居中
Next i
End Sub
Private Sub Command3_Click()
Unload Me
End Sub
Private Sub Form_Load()
Me.Width = 7000
Me.Height = 5300
Me.Left = MDIForm1.Width - Me.Width - 200
If 存盘标记 = False Then
Combo1(2).ListIndex = 0
Combo1(1).ListIndex = 2
Combo1(0).ListIndex = 1
Combo1(3).ListIndex = 0
Else:
For i = 0 To 3
Combo1(i).Text = 基本设计资料(i + 13)
Next i
For i = 1 To 12
Text1(i - 1).Text = 基本设计资料(i)
Next i
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -