📄 form3.frm
字号:
VERSION 5.00
Begin VB.Form Form3
Caption = "微型机器人游动推进力理论计算结果"
ClientHeight = 11805
ClientLeft = 195
ClientTop = 585
ClientWidth = 15945
LinkTopic = "Form1"
ScaleHeight = 11805
ScaleWidth = 15945
Begin VB.VScrollBar VScroll1
Height = 12615
LargeChange = 500
Left = 0
Max = 12615
SmallChange = 100
TabIndex = 14
Top = 240
Width = 255
End
Begin VB.HScrollBar HScroll1
Height = 255
LargeChange = 500
Left = 240
Max = 16455
SmallChange = 100
TabIndex = 13
Top = 0
Width = 15975
End
Begin VB.Frame Frame1
Caption = "微型机器人游动推进力理论计算结果"
BeginProperty Font
Name = "华文行楷"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 11055
Left = 600
TabIndex = 0
Top = 480
Width = 14895
Begin VB.Frame Frame6
Caption = "页面选择"
Height = 2175
Left = 8880
TabIndex = 22
Top = 8520
Width = 5655
Begin VB.CommandButton Command2
Caption = "上 页"
Height = 855
Left = 3360
TabIndex = 24
Top = 720
Width = 1815
End
Begin VB.CommandButton Command1
Caption = "首 页"
Height = 855
Left = 720
TabIndex = 23
Top = 720
Width = 1815
End
End
Begin VB.Frame Frame5
Caption = "操作栏"
Height = 1815
Left = 8880
TabIndex = 19
Top = 6360
Width = 5655
Begin VB.CommandButton Command4
Caption = "刷 新"
Height = 855
Left = 3240
TabIndex = 21
Top = 600
Width = 1695
End
Begin VB.CommandButton Command3
Caption = "运 行"
Height = 855
Left = 720
TabIndex = 20
Top = 600
Width = 1695
End
End
Begin VB.Frame Frame4
Caption = "关系选项"
Height = 3735
Left = 8880
TabIndex = 15
Top = 2400
Width = 5655
Begin VB.Frame Frame7
Caption = "参数输入"
Height = 2535
Left = 240
TabIndex = 25
Top = 960
Width = 5175
Begin VB.Frame Frame8
Caption = "抛物线"
Height = 1215
Left = 240
TabIndex = 30
Top = 1080
Width = 4695
Begin VB.TextBox Text8
Height = 495
Left = 3120
TabIndex = 34
Top = 480
Width = 1215
End
Begin VB.TextBox Text7
Height = 495
Left = 840
TabIndex = 33
Top = 480
Width = 1335
End
Begin VB.Label Label9
Caption = "c"
Height = 255
Left = 2760
TabIndex = 32
Top = 600
Width = 255
End
Begin VB.Label Label4
Caption = "a"
Height = 255
Left = 480
TabIndex = 31
Top = 600
Width = 255
End
End
Begin VB.TextBox Text2
Height = 495
Left = 3360
TabIndex = 29
Top = 240
Width = 1215
End
Begin VB.TextBox Text1
Height = 495
Left = 1080
TabIndex = 27
Top = 240
Width = 1335
End
Begin VB.Label Label2
Caption = "三角形底"
Height = 255
Left = 2640
TabIndex = 28
Top = 360
Width = 735
End
Begin VB.Label Label1
Caption = "矩形高"
Height = 375
Left = 360
TabIndex = 26
Top = 360
Width = 615
End
End
Begin VB.ComboBox Combo1
Enabled = 0 'False
Height = 300
ItemData = "Form3.frx":0000
Left = 3600
List = "Form3.frx":000D
TabIndex = 18
Text = "形状选择"
Top = 480
Width = 1455
End
Begin VB.OptionButton Option2
Caption = "频率f"
Height = 255
Left = 2760
TabIndex = 17
Top = 480
Width = 855
End
Begin VB.OptionButton Option1
Caption = "机器人质量"
Height = 255
Left = 840
TabIndex = 16
Top = 480
Width = 1215
End
End
Begin VB.Frame Frame3
Caption = "关系图像"
BeginProperty Font
Name = "华文行楷"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 8415
Left = 360
TabIndex = 2
Top = 2280
Width = 8100
Begin VB.PictureBox Pic1
BackColor = &H00FFFFC0&
Height = 6825
Left = 240
ScaleHeight = 6765
ScaleWidth = 7500
TabIndex = 3
Top = 480
Width = 7560
End
Begin VB.Label Label3
BeginProperty Font
Name = "华文行楷"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 495
Left = 1440
TabIndex = 4
Top = 7440
Width = 5175
End
End
Begin VB.Frame Frame2
Caption = "公共参数栏"
BeginProperty Font
Name = "华文行楷"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 1455
Left = 360
TabIndex = 1
Top = 480
Width = 14175
Begin VB.TextBox Text6
Height = 735
Left = 11280
TabIndex = 12
Top = 360
Width = 1575
End
Begin VB.TextBox Text5
Height = 735
Left = 7800
TabIndex = 10
Top = 360
Width = 1575
End
Begin VB.TextBox Text4
Height = 735
Left = 5040
TabIndex = 8
Top = 360
Width = 1575
End
Begin VB.TextBox Text3
Height = 735
Left = 1800
TabIndex = 6
Top = 360
Width = 1575
End
Begin VB.Label Label8
Caption = "击水角度α(摆动波幅)a(x)≈ tan(α)x"
Height = 615
Left = 9480
TabIndex = 11
Top = 480
Width = 1695
End
Begin VB.Label Label7
Caption = "机器人质量 M(0)"
Height = 615
Left = 6840
TabIndex = 9
Top = 480
Width = 855
End
Begin VB.Label Label6
Caption = "游动时尾部所占波数k"
Height = 615
Left = 3840
TabIndex = 7
Top = 480
Width = 975
End
Begin VB.Label Label5
Caption = "机器人尾部长度L"
Height = 735
Left = 720
TabIndex = 5
Top = 480
Width = 975
End
End
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -