📄 frmmain.frm
字号:
End
Begin VB.CheckBox chkTree
Caption = "Fixed Size"
Height = 315
Index = 5
Left = 180
TabIndex = 5
Top = 1960
Width = 1215
End
Begin MSComctlLib.Slider sldTree
Height = 255
Index = 2
Left = 1140
TabIndex = 13
ToolTipText = "50"
Top = 3700
Width = 1275
_ExtentX = 2249
_ExtentY = 450
_Version = 393216
Max = 100
SelStart = 50
TickFrequency = 10
Value = 50
End
Begin MSComctlLib.Slider sldTree
Height = 255
Index = 7
Left = 1140
TabIndex = 18
ToolTipText = "500"
Top = 5200
Width = 1275
_ExtentX = 2249
_ExtentY = 450
_Version = 393216
LargeChange = 10
Max = 1000
SelStart = 500
TickFrequency = 100
Value = 500
End
Begin MSComctlLib.Slider sldTree
Height = 255
Index = 3
Left = 1140
TabIndex = 14
ToolTipText = "50"
Top = 4000
Width = 1275
_ExtentX = 2249
_ExtentY = 450
_Version = 393216
Max = 100
SelStart = 50
TickFrequency = 10
Value = 50
End
Begin MSComctlLib.Slider sldTree
Height = 255
Index = 6
Left = 1140
TabIndex = 17
ToolTipText = "50"
Top = 4900
Width = 1275
_ExtentX = 2249
_ExtentY = 450
_Version = 393216
Max = 100
SelStart = 50
TickFrequency = 10
Value = 50
End
Begin MSComCtl2.UpDown UpDown
Height = 285
Index = 7
Left = 2101
TabIndex = 53
TabStop = 0 'False
Top = 2590
Width = 255
_ExtentX = 450
_ExtentY = 503
_Version = 393216
Value = 1
BuddyControl = "txtInput(7)"
BuddyDispid = 196611
BuddyIndex = 7
OrigRight = 255
OrigBottom = 525
Max = 99
Min = 1
SyncBuddy = -1 'True
BuddyProperty = 0
Enabled = -1 'True
End
Begin MSComCtl2.UpDown UpDown
Height = 285
Index = 6
Left = 2101
TabIndex = 54
TabStop = 0 'False
Top = 2275
Width = 255
_ExtentX = 450
_ExtentY = 503
_Version = 393216
Value = 1
BuddyControl = "txtInput(6)"
BuddyDispid = 196611
BuddyIndex = 6
OrigRight = 255
OrigBottom = 525
Max = 9999
Min = -9999
SyncBuddy = -1 'True
BuddyProperty = 0
Enabled = -1 'True
End
Begin MSComCtl2.UpDown UpDown
Height = 285
Index = 5
Left = 2101
TabIndex = 55
TabStop = 0 'False
Top = 1960
Width = 255
_ExtentX = 450
_ExtentY = 503
_Version = 393216
Value = 25
BuddyControl = "txtInput(5)"
BuddyDispid = 196611
BuddyIndex = 5
OrigRight = 255
OrigBottom = 525
Max = 99
Min = 5
SyncBuddy = -1 'True
BuddyProperty = 0
Enabled = -1 'True
End
Begin MSComCtl2.UpDown UpDown
Height = 285
Index = 1
Left = 2101
TabIndex = 56
TabStop = 0 'False
Top = 700
Width = 255
_ExtentX = 450
_ExtentY = 503
_Version = 393216
Value = 2
BuddyControl = "txtInput(1)"
BuddyDispid = 196611
BuddyIndex = 1
OrigRight = 255
OrigBottom = 525
Max = 99
Min = 1
SyncBuddy = -1 'True
BuddyProperty = 0
Enabled = -1 'True
End
Begin MSComCtl2.UpDown UpDown
Height = 420
Index = 0
Left = 2101
TabIndex = 57
TabStop = 0 'False
Top = 210
Width = 255
_ExtentX = 450
_ExtentY = 741
_Version = 393216
Value = 5
BuddyControl = "txtInput(0)"
BuddyDispid = 196611
BuddyIndex = 0
OrigRight = 255
OrigBottom = 525
Max = 99
Min = 3
SyncBuddy = -1 'True
BuddyProperty = 0
Enabled = -1 'True
End
Begin VB.CheckBox chkTree
Caption = "Fixed Angel"
Height = 315
Index = 6
Left = 180
TabIndex = 7
Top = 2275
Width = 1365
End
Begin MSComctlLib.Slider sldTree
Height = 255
Index = 5
Left = 1140
TabIndex = 16
ToolTipText = "50"
Top = 4600
Width = 1275
_ExtentX = 2249
_ExtentY = 450
_Version = 393216
Max = 100
SelStart = 50
TickFrequency = 10
Value = 50
End
Begin MSComctlLib.Slider sldTree
Height = 255
Index = 0
Left = 1140
TabIndex = 11
ToolTipText = "50"
Top = 3100
Width = 1275
_ExtentX = 2249
_ExtentY = 450
_Version = 393216
Max = 100
SelStart = 50
TickFrequency = 10
Value = 50
End
Begin MSComCtl2.UpDown UpDown
Height = 285
Index = 3
Left = 2101
TabIndex = 61
TabStop = 0 'False
Top = 1330
Width = 255
_ExtentX = 450
_ExtentY = 503
_Version = 393216
Value = 1
BuddyControl = "txtInput(3)"
BuddyDispid = 196611
BuddyIndex = 3
OrigRight = 255
OrigBottom = 525
Max = 99
SyncBuddy = -1 'True
BuddyProperty = 0
Enabled = -1 'True
End
Begin MSComctlLib.Slider sldTree
Height = 255
Index = 1
Left = 1140
TabIndex = 12
ToolTipText = "50"
Top = 3400
Width = 1275
_ExtentX = 2249
_ExtentY = 450
_Version = 393216
Max = 100
SelStart = 50
TickFrequency = 10
Value = 50
End
Begin MSComCtl2.UpDown UpDown
Height = 285
Index = 2
Left = 2101
TabIndex = 64
TabStop = 0 'False
Top = 1015
Width = 255
_ExtentX = 450
_ExtentY = 503
_Version = 393216
Value = 2
BuddyControl = "txtInput(2)"
BuddyDispid = 196611
BuddyIndex = 2
OrigRight = 255
OrigBottom = 525
Max = 99
Min = 1
SyncBuddy = -1 'True
BuddyProperty = 0
Enabled = -1 'True
End
Begin MSComCtl2.UpDown UpDown
Height = 285
Index = 4
Left = 2101
TabIndex = 66
TabStop = 0 'False
Top = 1645
Width = 255
_ExtentX = 450
_ExtentY = 503
_Version = 393216
BuddyControl = "txtInput(4)"
BuddyDispid = 196611
BuddyIndex = 4
OrigLeft = 480
OrigTop = 480
OrigRight = 735
OrigBottom = 1005
Max = 99
SyncBuddy = -1 'True
BuddyProperty = 0
Enabled = -1 'True
End
Begin VB.Label Label2
Caption = "Recision Level Low:"
Height = 225
Index = 14
Left = 180
TabIndex = 65
Top = 1645
Width = 1545
End
Begin VB.Label Label2
Caption = "B.P.S Scale :"
Height = 225
Index = 13
Left = 180
TabIndex = 63
Top = 3400
Width = 1545
End
Begin VB.Label Label2
Caption = "Recision Level Hi :"
Height = 225
Index = 12
Left = 180
TabIndex = 62
Top = 1330
Width = 1365
End
Begin VB.Label Label2
Caption = "Starting Branch :"
Height = 225
Index = 11
Left = 180
TabIndex = 60
Top = 1015
Width = 1545
End
Begin VB.Label Label2
Caption = "B.B Scale :"
Height = 225
Index = 10
Left = 180
TabIndex = 59
Top = 3100
Width = 1545
End
Begin VB.Label Label2
Caption = "Width Scale :"
Height = 195
Index = 9
Left = 180
TabIndex = 58
Top = 4600
Width = 1545
End
Begin VB.Label Label2
Caption = "Wind :"
Height = 195
Index = 8
Left = 180
TabIndex = 50
Top = 4900
Width = 1545
End
Begin VB.Label Label2
Caption = "Trunk Height:"
Height = 195
Index = 7
Left = 180
TabIndex = 48
Top = 4000
Width = 1545
End
Begin VB.Label Label2
Caption = "Widening :"
Height = 195
Index = 6
Left = 180
TabIndex = 46
Top = 5200
Width = 1545
End
Begin VB.Label Label2
Caption = "Width :"
Height = 195
Index = 3
Left = 180
TabIndex = 39
Top = 4300
Width = 1545
End
Begin VB.Label Label2
Caption = "Leaf Level :"
Height = 375
Index = 2
Left = 180
TabIndex = 38
Top = 3700
Width = 1545
End
Begin VB.Label Label2
Caption = "Branches per Step :"
Height = 375
Index = 1
Left = 180
TabIndex = 37
Top = 700
Width = 1545
End
Begin VB.Label Label3
Caption = "%"
Height = 285
Index = 3
Left = 1545
TabIndex = 36
Top = 2640
Width = 135
End
Begin VB.Label Label3
Caption = "⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -