📄 form1.frm
字号:
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form Form1
AutoRedraw = -1 'True
BackColor = &H00C0C0C0&
BorderStyle = 1 'Fixed Single
Caption = "Botz"
ClientHeight = 7095
ClientLeft = 150
ClientTop = 720
ClientWidth = 9600
Icon = "Form1.frx":0000
LinkTopic = "Form1"
ScaleHeight = 473
ScaleMode = 3 'Pixel
ScaleWidth = 640
StartUpPosition = 3 'Windows Default
Begin VB.PictureBox Frame_ControlPanel
BorderStyle = 0 'None
Height = 1905
Left = 30
ScaleHeight = 1905
ScaleWidth = 9525
TabIndex = 7
Top = 5160
Width = 9525
Begin VB.CommandButton btnResetLinks
Caption = "Reset Links"
Height = 360
Left = 3390
TabIndex = 34
ToolTipText = "Default Links to their current length"
Top = 30
Width = 1155
End
Begin VB.CommandButton btnSave
Height = 360
Left = 750
Picture = "Form1.frx":1D82
Style = 1 'Graphical
TabIndex = 33
ToolTipText = "Save Bot"
Top = 30
Width = 360
End
Begin VB.CommandButton btnNew
Height = 360
Left = 30
Picture = "Form1.frx":202C
Style = 1 'Graphical
TabIndex = 32
ToolTipText = "New Bot"
Top = 30
Width = 360
End
Begin VB.CommandButton btnOpen
Height = 360
Left = 390
Picture = "Form1.frx":2242
Style = 1 'Graphical
TabIndex = 31
ToolTipText = "Load Bot"
Top = 30
Width = 360
End
Begin VB.CommandButton BTNpicCon
DisabledPicture = "Form1.frx":24F4
DownPicture = "Form1.frx":29E6
Height = 360
Left = 1230
Picture = "Form1.frx":2ED8
Style = 1 'Graphical
TabIndex = 30
ToolTipText = "Construct Mode (F2)"
Top = 30
Width = 360
End
Begin VB.CommandButton BTNpicSim
DisabledPicture = "Form1.frx":33CA
DownPicture = "Form1.frx":38BC
Height = 360
Left = 1590
Picture = "Form1.frx":3DAE
Style = 1 'Graphical
TabIndex = 29
ToolTipText = "Simulate Mode (F3)"
Top = 30
Width = 360
End
Begin VB.CommandButton btnAddwheel
DisabledPicture = "Form1.frx":42A0
Height = 360
Left = 2070
Picture = "Form1.frx":4656
Style = 1 'Graphical
TabIndex = 28
ToolTipText = "Add Wheel to Vertex (Ctrl+W)"
Top = 30
Width = 360
End
Begin VB.CommandButton btnDelete
DisabledPicture = "Form1.frx":4A0C
Height = 360
Left = 2430
Picture = "Form1.frx":4BFE
Style = 1 'Graphical
TabIndex = 27
ToolTipText = "Delete Current Vertex or Link"
Top = 30
Width = 360
End
Begin VB.CommandButton BTNGlobals
Height = 360
Left = 2910
Picture = "Form1.frx":4DF0
Style = 1 'Graphical
TabIndex = 26
ToolTipText = "Change Global Variables"
Top = 30
Width = 360
End
Begin VB.Frame Frame2
Caption = "Muscle Simulation"
Height = 1485
Left = 6120
TabIndex = 20
Top = 30
Width = 3345
Begin VB.CommandButton btnRevers
Caption = "Reverse"
Height = 285
Left = 2430
Style = 1 'Graphical
TabIndex = 23
Top = 990
Width = 735
End
Begin VB.PictureBox cycleview
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H80000008&
ForeColor = &H80000008&
Height = 600
Left = 180
ScaleHeight = 38
ScaleMode = 3 'Pixel
ScaleWidth = 198
TabIndex = 22
Top = 330
Width = 3000
End
Begin VB.CommandButton btnPause
Caption = "Pause"
Height = 285
Left = 1680
Style = 1 'Graphical
TabIndex = 21
Top = 990
Width = 735
End
Begin MSComCtl2.UpDown UpDown1
Height = 240
Left = 930
TabIndex = 24
Top = 1020
Width = 585
_ExtentX = 1032
_ExtentY = 423
_Version = 393216
Orientation = 1
Enabled = -1 'True
End
Begin VB.Label INDspd
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Spd: 3"
Height = 195
Left = 150
TabIndex = 25
Top = 1050
Width = 675
End
End
Begin VB.Frame VBOX
Caption = "Vertex 0"
Height = 1485
Left = 4740
TabIndex = 13
Top = 30
Width = 1335
Begin VB.TextBox INDrad
Height = 255
Left = 390
TabIndex = 16
Text = "0"
Top = 1110
Width = 525
End
Begin VB.TextBox txtY
Height = 225
Left = 270
TabIndex = 15
Text = "0"
Top = 600
Width = 405
End
Begin VB.TextBox txtX
Height = 255
Left = 270
TabIndex = 14
Text = "0"
Top = 360
Width = 405
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "Radius"
Height = 195
Left = 390
TabIndex = 19
Top = 900
Width = 495
End
Begin VB.Label Label2
Caption = "Y"
Height = 225
Left = 90
TabIndex = 18
Top = 630
Width = 165
End
Begin VB.Label Label1
Caption = "X"
Height = 225
Left = 90
TabIndex = 17
Top = 360
Width = 165
End
End
Begin VB.Frame LBOX
Caption = "Link 0"
Height = 1485
Left = 4740
TabIndex = 10
Top = 30
Width = 1335
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "Length"
Height = 195
Left = 420
TabIndex = 12
Top = 450
Width = 495
End
Begin VB.Label INDlen
Alignment = 2 'Center
Caption = "0"
Height = 195
Left = 135
TabIndex = 11
Top = 660
Width = 1065
End
End
Begin VB.CheckBox CHKTop
BackColor = &H00C0C0C0&
Caption = "Ceiling Enabled"
Height = 195
Left = 1170
TabIndex = 9
Top = 1350
Value = 1 'Checked
Width = 1545
End
Begin VB.ComboBox Combo1
Height = 315
Left = 2940
TabIndex = 8
Text = "Presets..."
Top = 630
Width = 1575
End
Begin MSComctlLib.Slider Slider2
Height = 255
Left = 960
TabIndex = 35
Top = 1080
Width = 1815
_ExtentX = 3201
_ExtentY = 450
_Version = 393216
Max = 100
TickStyle = 3
End
Begin MSComctlLib.Slider Slider1
Height = 255
Left = 960
TabIndex = 36
Top = 630
Width = 1815
_ExtentX = 3201
_ExtentY = 450
_Version = 393216
LargeChange = 1
Min = -20
Max = 20
TickStyle = 3
End
Begin MSComctlLib.Slider Slider3
Height = 945
Left = 270
TabIndex = 37
Top = 660
Width = 375
_ExtentX = 661
_ExtentY = 1667
_Version = 393216
Orientation = 1
LargeChange = 1
Min = -100
Max = 100
TickStyle = 3
End
Begin VB.Label ModeIND
BackColor = &H00000000&
BorderStyle = 1 'Fixed Single
ForeColor = &H00FFFFFF&
Height = 285
Left = 0
TabIndex = 42
Top = 1620
Width = 9525
End
Begin VB.Label Label4
Alignment = 2 'Center
Caption = "No Selection"
Height = 525
Left = 5010
TabIndex = 41
Top = 450
Width = 855
End
Begin VB.Label Label6
Alignment = 2 'Center
Caption = "Wind"
Height = 255
Left = 1080
TabIndex = 40
Top = 450
Width = 1605
End
Begin VB.Label Label7
Alignment = 2 'Center
Caption = "Air Friction"
Height = 255
Left = 1080
TabIndex = 39
Top = 900
Width = 1605
End
Begin VB.Label Label8
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Gravity"
Height = 195
Left = 150
TabIndex = 38
Top = 450
Width = 615
End
End
Begin VB.PictureBox VHoverVertex
AutoRedraw = -1 'True
AutoSize = -1 'True
BackColor = &H80000009&
BorderStyle = 0 'None
Height = 135
Left = 1680
Picture = "Form1.frx":52E2
ScaleHeight = 135
ScaleWidth = 135
TabIndex = 6
Top = 690
Visible = 0 'False
Width = 135
End
Begin VB.PictureBox VSelVertex
AutoRedraw = -1 'True
AutoSize = -1 'True
BackColor = &H80000009&
BorderStyle = 0 'None
Height = 135
Left = 1440
Picture = "Form1.frx":5420
ScaleHeight = 135
ScaleWidth = 135
TabIndex = 5
Top = 690
Visible = 0 'False
Width = 135
End
Begin VB.PictureBox CycleBuffer
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 600
Left = 60
ScaleHeight = 38
ScaleMode = 3 'Pixel
ScaleWidth = 198
TabIndex = 4
Top = 90
Visible = 0 'False
Width = 3000
End
Begin VB.PictureBox Buffer
AutoRedraw = -1 'True
BackColor = &H8000000E&
BorderStyle = 0 'None
FillStyle = 0 'Solid
Height = 345
Left = 90
ScaleHeight = 23
ScaleMode = 3 'Pixel
ScaleWidth = 53
TabIndex = 3
Top = 720
Visible = 0 'False
Width = 795
End
Begin VB.OptionButton focusdummy
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -