form1.frm

用visual basic 开发的界面

VERSION 5.00
Begin VB.Form 主界面 
   Caption         =   "非杆件结构自动配筋CAD系统"
   ClientHeight    =   7620
   ClientLeft      =   2220
   ClientTop       =   2415
   ClientWidth     =   11565
   BeginProperty Font 
      Name            =   "幼圆"
      Size            =   14.25
      Charset         =   134
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   Picture         =   "Form1.frx":0000
   ScaleHeight     =   7620
   ScaleWidth      =   11565
   Begin VB.Label Label2 
      BackStyle       =   0  'Transparent
      Caption         =   "开发：西安理工大学土木工程系"
      BeginProperty Font 
         Name            =   "幼圆"
         Size            =   15
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   6000
      TabIndex        =   1
      Top             =   4920
      Width           =   4215
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "非杆件结构自动配筋CAD系统"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   36
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   900
      Left            =   840
      TabIndex        =   0
      Top             =   2640
      Width           =   10095
   End
   Begin VB.Menu wj 
      Caption         =   "文件"
      Begin VB.Menu wjxj 
         Caption         =   "新建"
      End
      Begin VB.Menu wjdk 
         Caption         =   "打开"
      End
      Begin VB.Menu wjbc 
         Caption         =   "保存"
      End
      Begin VB.Menu wjlcw 
         Caption         =   "另存为"
      End
      Begin VB.Menu wjgb 
         Caption         =   "关闭"
      End
   End
   Begin VB.Menu kk 
      Caption         =   "构件类型选择"
      Begin VB.Menu kkyx 
         Caption         =   "圆形孔口"
      End
      Begin VB.Menu kkjx 
         Caption         =   "矩形孔口"
      End
      Begin VB.Menu kkmt 
         Caption         =   "马蹄形孔口"
      End
   End
   Begin VB.Menu mnucs 
      Caption         =   "荷载参数输入"
   End
   Begin VB.Menu mat 
      Caption         =   "材料参数输入"
   End
   Begin VB.Menu mnufem 
      Caption         =   "有限元计算"
   End
   Begin VB.Menu jgxs 
      Caption         =   "查看FEM计算结果"
   End
   Begin VB.Menu pjjs 
      Caption         =   "配筋计算"
   End
   Begin VB.Menu hzpjt 
      Caption         =   "绘制配筋图"
   End
End
Attribute VB_Name = "主界面"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub hzpjt_Click()
On Error Resume Next
Set AcadApp = GetObject(, "AutoCAD.Application")
If Err Then
 Err.Clear
 Set AcadApp = CreateObject("AutoCAD.Application")
If Err Then
MsgBox ("不能运行AutoCAD,请检查是否安装了AutoCAD")
Exit Sub
End If
End If
AcadApp.WindowState = acMax

AcadApp.Visible = True
End Sub

Private Sub jgxs_Click()
Load 图片查看
图片查看.Show
End Sub

Private Sub kkjx_Click()
Load 断面2
断面2.Show
End Sub

Private Sub kkmt_Click()
Load 断面3
断面3.Show
End Sub

Private Sub kkyx_Click()
Load 断面1
断面1.Show
End Sub

Private Sub mat_Click()
Load 材料
材料.Show
End Sub

Private Sub mnucs_Click()
Load 荷载参数
荷载参数.Show
End Sub

Private Sub mnufem_Click()
 If A = 0 Or B = 0 Or H = 0 Then
 respond = MsgBox("请先输入孔口断面参数!", vbExclamation + vbOKOnly, "错误")
 Exit Sub
 End If
 If Qny = 0 And Qwy = 0 Then
 respond = MsgBox("请先输入荷载参数!", vbExclamation + vbOKOnly, "错误")
 Exit Sub
 End If
 If Ec = 0 Or u = 0 Or Ft = 0 Or rz = 0 Or fy = 0 Then
 respond = MsgBox("请先输入材料参数!", vbExclamation + vbOKOnly, "错误")
 Exit Sub
 End If
 Load FEM计算
 FEM计算.Show
End Sub

Private Sub pjjs_Click()
Load frmpjmj
frmpjmj.Show
End Sub

Private Sub wjgb_Click()
Unload Me
End Sub

Private Sub wjxj_Click()
A = 0
B = 0
R = 0
H = 0
Qwy = 0
Qny = 0
Ec = 0
u = 0
rz = 0
Ft = 0
fy = 0
End Sub