📄 frmmain.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomct2.ocx"
Begin VB.Form frmMain
BorderStyle = 1 'Fixed Single
Caption = "Make Your ..."
ClientHeight = 9135
ClientLeft = 45
ClientTop = 735
ClientWidth = 2565
FillColor = &H80000014&
Icon = "frmMain.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 9135
ScaleWidth = 2565
StartUpPosition = 2 'CenterScreen
Begin VB.Frame frameCut
Height = 645
Left = 60
TabIndex = 67
Top = 7890
Width = 2445
Begin VB.CheckBox chkTree
Caption = "Cut Operation"
Height = 315
Index = 10
Left = 180
TabIndex = 25
Top = 180
Width = 1335
End
Begin VB.TextBox txtInput
Alignment = 2 'Center
BackColor = &H8000000F&
Enabled = 0 'False
Height = 315
Index = 10
Left = 1650
MaxLength = 5
TabIndex = 26
Text = "20"
Top = 180
Width = 450
End
Begin MSComCtl2.UpDown UpDown
Height = 315
Index = 10
Left = 2100
TabIndex = 68
TabStop = 0 'False
Top = 180
Width = 255
_ExtentX = 450
_ExtentY = 556
_Version = 393216
Value = 20
BuddyControl = "txtInput(10)"
BuddyDispid = 196611
BuddyIndex = 10
OrigLeft = 2101
OrigTop = 180
OrigRight = 2356
OrigBottom = 495
Max = 99
Min = 1
SyncBuddy = -1 'True
BuddyProperty = 0
Enabled = -1 'True
End
Begin VB.Label Label3
Caption = "%"
Height = 285
Index = 5
Left = 1545
TabIndex = 69
Top = 240
Width = 135
End
End
Begin VB.Frame frameButtons
BorderStyle = 0 'None
Height = 615
Left = -30
TabIndex = 47
Top = 8535
Width = 2625
Begin MSComctlLib.ProgressBar ProgressBar
Height = 120
Left = 30
TabIndex = 49
Top = -30
Width = 2505
_ExtentX = 4419
_ExtentY = 212
_Version = 393216
Appearance = 0
End
Begin VB.CommandButton cmdFormSize
Height = 315
Left = 2280
Picture = "frmMain.frx":0442
Style = 1 'Graphical
TabIndex = 29
TabStop = 0 'False
Top = 300
Width = 345
End
Begin VB.CommandButton cmdStop
Cancel = -1 'True
Caption = "Stop !"
Height = 405
Left = 1470
TabIndex = 28
Top = 120
Visible = 0 'False
Width = 1095
End
Begin VB.CommandButton cmdTimerStop
Height = 375
Left = 90
Picture = "frmMain.frx":0544
Style = 1 'Graphical
TabIndex = 30
TabStop = 0 'False
ToolTipText = "Stop Timer"
Top = 120
Visible = 0 'False
Width = 435
End
Begin VB.CommandButton cmdOK
Caption = "Do it !"
Default = -1 'True
Height = 405
Left = 720
TabIndex = 27
Top = 120
Width = 1095
End
End
Begin VB.Frame FrameFlowers
Height = 1635
Left = 60
TabIndex = 40
Top = 6220
Width = 2445
Begin VB.TextBox txtInput
Alignment = 2 'Center
Height = 315
Index = 9
Left = 1650
MaxLength = 2
TabIndex = 23
Text = "20"
Top = 900
Width = 450
End
Begin VB.TextBox txtInput
Alignment = 2 'Center
Height = 315
Index = 8
Left = 1650
MaxLength = 4
TabIndex = 20
Text = "20"
Top = 180
Width = 450
End
Begin VB.CheckBox chkTree
Caption = "Flowers"
Height = 315
Index = 8
Left = 180
TabIndex = 19
Top = 180
Value = 1 'Checked
Width = 1005
End
Begin MSComctlLib.Slider sldTree
Height = 255
Index = 8
Left = 1140
TabIndex = 21
ToolTipText = "50"
Top = 540
Width = 1275
_ExtentX = 2249
_ExtentY = 450
_Version = 393216
Max = 100
SelStart = 50
TickFrequency = 10
Value = 50
End
Begin MSComctlLib.Slider sldTree
Height = 255
Index = 9
Left = 1140
TabIndex = 24
ToolTipText = "50"
Top = 1260
Width = 1275
_ExtentX = 2249
_ExtentY = 450
_Version = 393216
Max = 100
SelStart = 50
TickFrequency = 10
Value = 50
End
Begin VB.CheckBox chkTree
Caption = "Fruits"
Height = 315
Index = 9
Left = 180
TabIndex = 22
Top = 900
Value = 1 'Checked
Width = 1035
End
Begin MSComCtl2.UpDown UpDown
Height = 315
Index = 8
Left = 2101
TabIndex = 51
TabStop = 0 'False
Top = 180
Width = 255
_ExtentX = 450
_ExtentY = 556
_Version = 393216
Value = 1
BuddyControl = "txtInput(8)"
BuddyDispid = 196611
BuddyIndex = 8
OrigLeft = 1200
OrigRight = 1455
OrigBottom = 525
Max = 99
Min = 1
SyncBuddy = -1 'True
BuddyProperty = 0
Enabled = -1 'True
End
Begin MSComCtl2.UpDown UpDown
Height = 315
Index = 9
Left = 2100
TabIndex = 52
TabStop = 0 'False
Top = 900
Width = 255
_ExtentX = 450
_ExtentY = 556
_Version = 393216
Value = 1
BuddyControl = "txtInput(9)"
BuddyDispid = 196611
BuddyIndex = 9
OrigRight = 255
OrigBottom = 525
Max = 99
Min = 1
SyncBuddy = -1 'True
BuddyProperty = 0
Enabled = -1 'True
End
Begin VB.Label Label3
Caption = "%"
Height = 285
Index = 4
Left = 1545
TabIndex = 44
Top = 960
Width = 135
End
Begin VB.Label Label2
Caption = "Fruit Speed :"
Height = 195
Index = 5
Left = 180
TabIndex = 43
Top = 1260
Width = 1545
End
Begin VB.Label Label2
Caption = "Flower Size :"
Height = 195
Index = 4
Left = 180
TabIndex = 42
Top = 540
Width = 1545
End
Begin VB.Label Label3
Caption = "%"
Height = 285
Index = 0
Left = 1545
TabIndex = 41
Top = 240
Width = 135
End
End
Begin VB.Frame FrameMain
Height = 5575
Left = 60
TabIndex = 32
Top = 630
Width = 2445
Begin VB.TextBox txtInput
Alignment = 2 'Center
Height = 285
Index = 4
Left = 1650
MaxLength = 2
TabIndex = 4
Text = "0"
Top = 1645
Width = 450
End
Begin VB.TextBox txtInput
Alignment = 2 'Center
Height = 285
Index = 3
Left = 1650
MaxLength = 2
TabIndex = 3
Text = "0"
Top = 1330
Width = 450
End
Begin VB.TextBox txtInput
Alignment = 2 'Center
Height = 285
Index = 2
Left = 1650
MaxLength = 2
TabIndex = 2
Text = "1"
Top = 1015
Width = 450
End
Begin VB.CheckBox chkTree
Caption = "Broken Branches "
Height = 345
Index = 7
Left = 180
TabIndex = 9
Top = 2590
Value = 1 'Checked
Width = 1305
End
Begin VB.TextBox txtInput
Alignment = 2 'Center
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 178
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 390
Index = 0
Left = 1470
MaxLength = 2
TabIndex = 0
Text = "30"
Top = 210
Width = 630
End
Begin MSComctlLib.Slider sldTree
Height = 255
Index = 4
Left = 1140
TabIndex = 15
ToolTipText = "50"
Top = 4300
Width = 1275
_ExtentX = 2249
_ExtentY = 450
_Version = 393216
Max = 100
SelStart = 50
TickFrequency = 10
Value = 50
End
Begin VB.TextBox txtInput
Alignment = 2 'Center
Height = 285
Index = 1
Left = 1650
MaxLength = 4
TabIndex = 1
Text = "2"
Top = 700
Width = 450
End
Begin VB.TextBox txtInput
Alignment = 2 'Center
Height = 285
Index = 7
Left = 1650
MaxLength = 4
TabIndex = 10
Text = "30"
Top = 2590
Width = 450
End
Begin VB.TextBox txtInput
Alignment = 2 'Center
Height = 285
Index = 6
Left = 1650
MaxLength = 5
TabIndex = 8
Text = "35"
Top = 2275
Width = 450
End
Begin VB.TextBox txtInput
Alignment = 2 'Center
Height = 285
Index = 5
Left = 1650
MaxLength = 2
TabIndex = 6
Text = "65"
Top = 1960
Width = 450
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -