杆端力结果显示.frm

钢筋混凝土框架结构设计计算源程序

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form Form6 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "杆端力结果显示"
   ClientHeight    =   4545
   ClientLeft      =   3075
   ClientTop       =   2760
   ClientWidth     =   7290
   LinkTopic       =   "Form6"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   4545
   ScaleWidth      =   7290
   Begin VB.CommandButton Command1 
      Caption         =   "作内力图"
      Height          =   375
      Left            =   5400
      TabIndex        =   1
      Top             =   4080
      Width           =   1215
   End
   Begin MSFlexGridLib.MSFlexGrid Grid1 
      Height          =   4035
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   7155
      _ExtentX        =   12621
      _ExtentY        =   7117
      _Version        =   393216
      Rows            =   11
      Cols            =   7
      RowHeightMin    =   300
      FormatString    =   "^ 单元号  |^ N1(kN)   |^ Q1(kN)   |^ M1(kN.m) |^ N2(kN)   |^ Q2(kN)   |^ M2(kN.m)  "
   End
End
Attribute VB_Name = "Form6"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
DefInt I-N
DefSng B, D, F, X-Y
Dim x1, y1, x2, y2

Private Sub Command1_Click()
    图 = "内力"
    Form1.Show
    Form1.Opt(0).Enabled = False
    Form1.Opt(1).Enabled = True
    Form1.Opt(2).Enabled = True
    Form1.Opt(3).Enabled = True
    Call 杆件图(Form1.Picture1)
    Unload Me
End Sub

Private Sub Form_Load()
    Dim i, j, k, ii, kk, Ne
    Form6.Caption = "杆端内力"
    With Grid1
        .Rows = Ncell + 1
        If Ncell < 10 Then
            .Height = .RowHeight(1) * (Ncell + 2)
        End If
        For i = 1 To Ncell
            .TextMatrix(i, 0) = i
        Next i
    End With
    For Ne = 1 To Ncell              '逐个单元
         With 杆端力(Ne)
            Grid1.TextMatrix(Ne, 1) = Format(.N1, "####.##")
            Grid1.TextMatrix(Ne, 2) = Format(.Q1, "####.##")
            Grid1.TextMatrix(Ne, 3) = Format(.M1, "####.##")
            Grid1.TextMatrix(Ne, 4) = Format(.N2, "####.##")
            Grid1.TextMatrix(Ne, 5) = Format(.Q2, "####.##")
            Grid1.TextMatrix(Ne, 6) = Format(.M2, "####.##")
        End With
    Next Ne
End Sub