📄 baseform.frm
字号:
VERSION 5.00
Begin VB.Form BaseForm
Caption = "请输入支座信息"
ClientHeight = 7590
ClientLeft = 60
ClientTop = 495
ClientWidth = 6225
LinkTopic = "Form1"
ScaleHeight = 7590
ScaleWidth = 6225
StartUpPosition = 3 '窗口缺省
Begin VB.Frame Frame1
Caption = "说明"
Height = 3615
Left = 240
TabIndex = 17
Top = 3720
Width = 3975
Begin VB.Image Image1
Height = 810
Index = 7
Left = 1920
Picture = "BaseForm.frx":0000
Stretch = -1 'True
Top = 2640
Width = 855
End
Begin VB.Label Label8
Caption = "X=-1 Y=1"
Height = 255
Index = 8
Left = 2880
TabIndex = 25
Top = 2880
Width = 855
End
Begin VB.Label Label8
Caption = "X=-1 Y=-1"
Height = 255
Index = 6
Left = 840
TabIndex = 24
Top = 3000
Width = 855
End
Begin VB.Image Image1
Height = 930
Index = 6
Left = 0
Picture = "BaseForm.frx":2612
Stretch = -1 'True
Top = 2640
Width = 855
End
Begin VB.Label Label8
Caption = "X=1 Y=-1"
Height = 255
Index = 7
Left = 2880
TabIndex = 23
Top = 1920
Width = 855
End
Begin VB.Image Image1
Height = 810
Index = 5
Left = 1920
Picture = "BaseForm.frx":4C64
Stretch = -1 'True
Top = 1680
Width = 855
End
Begin VB.Label Label8
Caption = "X=1 Y=1"
Height = 255
Index = 5
Left = 840
TabIndex = 22
Top = 1920
Width = 855
End
Begin VB.Image Image1
Height = 810
Index = 4
Left = 0
Picture = "BaseForm.frx":7276
Stretch = -1 'True
Top = 1680
Width = 855
End
Begin VB.Image Image1
Height = 525
Index = 3
Left = 1920
Picture = "BaseForm.frx":98C8
Stretch = -1 'True
Top = 960
Width = 855
End
Begin VB.Image Image1
Height = 570
Index = 2
Left = 0
Picture = "BaseForm.frx":BD8E
Stretch = -1 'True
Top = 960
Width = 735
End
Begin VB.Image Image1
Height = 570
Index = 1
Left = 1920
Picture = "BaseForm.frx":E218
Stretch = -1 'True
Top = 120
Width = 855
End
Begin VB.Image Image1
Height = 570
Index = 0
Left = 0
Picture = "BaseForm.frx":106DE
Stretch = -1 'True
Top = 240
Width = 735
End
Begin VB.Label Label8
Caption = "X=1 Y=0"
Height = 255
Index = 4
Left = 840
TabIndex = 21
Top = 360
Width = 855
End
Begin VB.Label Label8
Caption = "X=0 Y=-1"
Height = 255
Index = 1
Left = 2880
TabIndex = 20
Top = 1200
Width = 855
End
Begin VB.Label Label8
Caption = "X=0 Y=1"
Height = 255
Index = 2
Left = 2880
TabIndex = 19
Top = 360
Width = 855
End
Begin VB.Label Label8
Caption = "X=-1 Y=0"
Height = 255
Index = 3
Left = 840
TabIndex = 18
Top = 1080
Width = 855
End
End
Begin VB.CommandButton WanCheng
Caption = "退出"
Height = 375
Left = 3000
TabIndex = 16
Top = 3240
Width = 1095
End
Begin VB.TextBox Text5
Height = 495
Left = 1560
TabIndex = 15
Top = 1800
Width = 1095
End
Begin VB.TextBox Text4
Height = 495
Left = 1560
TabIndex = 14
Top = 1200
Width = 1095
End
Begin VB.CommandButton QueDing
Caption = "确定"
Height = 375
Left = 240
TabIndex = 10
Top = 3240
Width = 1215
End
Begin VB.CommandButton Delete
Caption = "删除"
Height = 375
Left = 1680
TabIndex = 9
Top = 3240
Width = 1095
End
Begin VB.CommandButton Add
Caption = "最后一个"
Height = 375
Index = 4
Left = 3000
TabIndex = 8
Top = 2280
Width = 855
End
Begin VB.CommandButton Add
Caption = "第一个"
Height = 375
Index = 3
Left = 3000
TabIndex = 7
Top = 1800
Width = 855
End
Begin VB.CommandButton Add
Caption = "下翻"
Height = 375
Index = 2
Left = 3000
TabIndex = 6
Top = 1320
Width = 855
End
Begin VB.CommandButton Add
Caption = "上翻"
Height = 375
Index = 1
Left = 3000
TabIndex = 5
Top = 840
Width = 855
End
Begin VB.CommandButton Add
Caption = "新增"
Height = 375
Index = 0
Left = 3000
TabIndex = 4
Top = 360
Width = 855
End
Begin VB.TextBox Text1
Height = 390
Left = 1560
TabIndex = 1
Top = 600
Width = 975
End
Begin VB.Label Label8
Caption = "Y方向固定"
Height = 495
Index = 0
Left = 120
TabIndex = 13
Top = 1920
Width = 1335
End
Begin VB.Label Label7
Caption = "X方向固定"
Height = 375
Left = 120
TabIndex = 12
Top = 1320
Width = 1335
End
Begin VB.Label Label6
Caption = "支座信息："
Height = 375
Left = 360
TabIndex = 11
Top = 240
Width = 975
End
Begin VB.Label Label5
Alignment = 2 'Center
Caption = "编号"
Height = 375
Left = 120
TabIndex = 3
Top = 2640
Width = 975
End
Begin VB.Label Label4
Caption = "0/0"
Height = 375
Left = 1560
TabIndex = 2
Top = 2640
Width = 735
End
Begin VB.Label Label1
Caption = "支座号"
Height = 255
Left = 360
TabIndex = 0
Top = 720
Width = 855
End
End
Attribute VB_Name = "BaseForm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim kl As Integer, j As Integer
Private Sub Add_Click(Index As Integer)
Text1.Enabled = True
Text4.Enabled = True
Text5.Enabled = True
QueDing.Enabled = True
If Index = 0 Then
Add(0).Enabled = False
NDF = 2
Text1.Text = ""
Text4.Text = ""
Text5.Text = ""
NBN1 = NBN1 + 1
ReDim Preserve IB1((NDF + 1) * NBN1) As Integer
ReDim Preserve REAC1(NN1 * NDF) As Double
kl = NBN1
Label4.Caption = kl & "/" & NBN1
ElseIf Index = 1 Then
If kl = 0 Then
MsgBox ("error！")
ElseIf kl = 1 Then
MsgBox ("已为第1个点！")
Else
kl = kl - 1
Text1.Text = IB1(3 * kl - 2)
Text4.Text = IB1(3 * kl - 1)
Text5.Text = IB1(3 * kl)
Label4.Caption = kl & "/" & NBN1
End If
ElseIf Index = 2 Then
If kl = 0 Then
MsgBox ("error！")
ElseIf kl = NBN1 Then
MsgBox ("已为最后1个点！")
Else
kl = kl + 1
Text1.Text = IB1(3 * kl - 2)
Text4.Text = IB1(3 * kl - 1)
Text5.Text = IB1(3 * kl)
Label4.Caption = kl & "/" & NBN1
End If
ElseIf Index = 3 Then
If kl = 0 Then
MsgBox ("error！")
Else
kl = 1
Text1.Text = IB1(1)
Text4.Text = IB1(2)
Text5.Text = IB1(3)
Label4.Caption = 1 & "/" & NBN1
End If
ElseIf Index = 4 Then
If kl = 0 Then
MsgBox ("error！")
Else
kl = NBN1
Text1.Text = IB1(3 * kl - 2)
Text4.Text = IB1(3 * kl - 1)
Text5.Text = IB1(3 * kl)
Label4.Caption = kl & "/" & NBN1
End If
End If
HaveReaded = False
End Sub
Private Sub Delete_Click()
If kl = 0 Then
MsgBox ("操作错误！")
Exit Sub
End If
If NBN1 = 1 Then
REAC1(kl) = 0
REAC1(kl + 1) = 0
IB1(kl) = 0
IB1(kl + 1) = 0
IB1(kl + 2) = 0
Text1.Text = ""
Text4.Text = ""
Text5.Text = ""
Label4.Caption = 0 & "/" & 0
kl = 0
NBN1 = NBN1 - 1
Else
Text1.Text = ""
Text4.Text = ""
Text5.Text = ""
For h = kl + 1 To NBN1
' REAC1(2 * (h - 1) - 1) = REAC1(2 * h - 1)
' REAC1(2 * (h - 1)) = REAC1(2 * h)
IB1(3 * h - 5) = IB1(3 * h - 2)
IB1(3 * h - 4) = IB1(3 * h - 1)
IB1(3 * h - 3) = IB1(3 * h)
Next h
NBN1 = NBN1 - 1
If kl > 1 Then kl = kl - 1
If kl = 0 Then
MsgBox ("操作错误！")
Else
Text1.Text = IB1(3 * kl - 2)
Text4.Text = IB1(3 * kl - 1)
Text5.Text = IB1(3 * kl)
Label4.Caption = kl & "/" & NBN1
End If
End If
If kl = 0 Then IsAddedBase = False
ReDim Preserve IB1((NDF + 1) * NBN1) As Integer
ReDim Preserve REAC1(NN1 * NDF) As Double
HaveReaded = False
If HaveShowGraph = False Then Exit Sub
DrawPicture MainForm.MainPic, vbRed
If EditType <> -1 Then Unload Me
End Sub
Private Sub Form_Load()
If HaveReaded = False Then HaveShowGraph = True
If NBN1 = 0 Then IsAddedBase = False
If IsAddedBase = False Then
Text1.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
Add(1).Enabled = False
Add(2).Enabled = False
Add(3).Enabled = False
Add(4).Enabled = False
QueDing.Enabled = False
Delete.Enabled = False
WanCheng.Enabled = False
ReDim IB1(600)
ReDim REAC(600) As Double
Label4.Caption = 0 & "/" & 0
HaveShowGraph = True
ElseIf IsAddedBase = True Then
If isCatch = True And tempB <= NBN1 Then kl = tempB
If kl = 0 Then kl = NBN1
Text1.Text = IB1(3 * kl - 2)
Text4.Text = IB1(3 * kl - 1)
Text5.Text = IB1(3 * kl)
Label4.Caption = kl & "/" & NBN1
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
If NBN1 = 0 Then
IsAddedBase = False
HaveShowGraph = False
End If
End Sub
Private Sub QueDing_Click()
Add(0).Enabled = True
Add(1).Enabled = True
Add(2).Enabled = True
Add(3).Enabled = True
Add(4).Enabled = True
Delete.Enabled = True
WanCheng.Enabled = True
QueDing.Enabled = False
j = Val(Text1.Text)
IB1(3 * (kl - 1) + 1) = j
IB1(3 * (kl - 1) + 2) = Val(Text4.Text)
IB1(3 * (kl - 1) + 3) = Val(Text5.Text)
IsAddedBase = True
ReDim Preserve IB1((NDF + 1) * NBN1) As Integer
ReDim Preserve REAC1(NN1 * NDF) As Double
HaveReaded = False
If HaveShowGraph = False Then Exit Sub
DrawPicture MainForm.MainPic, vbRed
End Sub
Private Sub WanCheng_Click()
Unload BaseForm
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -