📄 form4.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form Form4
Caption = "清单"
ClientHeight = 7755
ClientLeft = 60
ClientTop = 450
ClientWidth = 11730
Icon = "Form4.frx":0000
LinkTopic = "Form4"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 7755
ScaleWidth = 11730
StartUpPosition = 2 '屏幕中心
Begin VB.CommandButton Command2
Caption = "查看装箱图"
Height = 540
Left = 9660
TabIndex = 22
Top = 6090
Width = 1695
End
Begin VB.CommandButton Command1
Caption = "确认并开始计算"
Height = 540
Left = 7665
TabIndex = 13
Top = 6090
Width = 1800
End
Begin VB.Frame Frame4
Height = 855
Left = 7455
TabIndex = 11
Top = 5040
Width = 4110
Begin MSComctlLib.ProgressBar ProgressBar1
Height = 540
Left = 105
TabIndex = 12
Top = 210
Width = 3900
_ExtentX = 6879
_ExtentY = 953
_Version = 393216
Appearance = 0
Scrolling = 1
End
End
Begin VB.Frame Frame3
Height = 750
Left = 7455
TabIndex = 9
Top = 3990
Width = 4110
Begin VB.Label Label6
Alignment = 2 'Center
Caption = "共有X种装箱方案"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 330
Left = 105
TabIndex = 10
Top = 315
Width = 3900
End
End
Begin VB.Frame Frame2
Caption = "选择的装箱策略"
Height = 3585
Left = 7455
TabIndex = 5
Top = 105
Width = 4110
Begin VB.OptionButton Option2
Caption = "深度搜索"
Enabled = 0 'False
Height = 225
Index = 0
Left = 210
TabIndex = 21
Top = 3045
Value = -1 'True
Width = 1485
End
Begin VB.OptionButton Option2
Caption = "浅度搜索"
Enabled = 0 'False
Height = 225
Index = 1
Left = 1785
TabIndex = 20
Top = 3045
Width = 1485
End
Begin VB.CheckBox Check2
Caption = "深度搜索"
Enabled = 0 'False
Height = 225
Index = 0
Left = 210
TabIndex = 19
Top = 2100
Value = 1 'Checked
Width = 1380
End
Begin VB.CheckBox Check2
Caption = "浅度搜索"
Enabled = 0 'False
Height = 225
Index = 1
Left = 1785
TabIndex = 18
Top = 2100
Value = 1 'Checked
Width = 2010
End
Begin VB.CheckBox Check1
Caption = "宽大优先"
Enabled = 0 'False
Height = 225
Index = 0
Left = 210
TabIndex = 17
Top = 840
Value = 1 'Checked
Width = 1275
End
Begin VB.CheckBox Check1
Caption = "长大优先"
Enabled = 0 'False
Height = 225
Index = 1
Left = 210
TabIndex = 16
Top = 1260
Value = 1 'Checked
Width = 1275
End
Begin VB.CheckBox Check1
Caption = "数量优先"
Enabled = 0 'False
Height = 225
Index = 2
Left = 1785
TabIndex = 15
Top = 840
Value = 1 'Checked
Width = 1275
End
Begin VB.CheckBox Check1
Caption = "体积优先"
Enabled = 0 'False
Height = 225
Index = 3
Left = 1785
TabIndex = 14
Top = 1260
Value = 1 'Checked
Width = 1275
End
Begin VB.Label Label5
Caption = "剩余空间拆分策略："
Height = 225
Left = 210
TabIndex = 8
Top = 2625
Width = 3690
End
Begin VB.Label Label4
Caption = "工作面拆分策略："
Height = 225
Left = 210
TabIndex = 7
Top = 1680
Width = 3795
End
Begin VB.Label Label3
Caption = "装箱优先策略："
Height = 225
Left = 210
TabIndex = 6
Top = 420
Width = 3690
End
End
Begin VB.Frame Frame1
Caption = "装箱列表"
Height = 7470
Left = 105
TabIndex = 0
Top = 105
Width = 7155
Begin MSComctlLib.ListView ListView2
Height = 2400
Left = 210
TabIndex = 1
Top = 630
Width = 6690
_ExtentX = 11800
_ExtentY = 4233
View = 3
LabelEdit = 1
LabelWrap = -1 'True
HideSelection = 0 'False
AllowReorder = -1 'True
FullRowSelect = -1 'True
GridLines = -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 0
NumItems = 7
BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Text = "选择"
Object.Width = 970
EndProperty
BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 1
Text = "类型"
Object.Width = 1764
EndProperty
BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 1
SubItemIndex = 2
Text = "长(mm)"
Object.Width = 1764
EndProperty
BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 1
SubItemIndex = 3
Text = "宽(mm)"
Object.Width = 1764
EndProperty
BeginProperty ColumnHeader(5) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 1
SubItemIndex = 4
Text = "高(mm)"
Object.Width = 1764
EndProperty
BeginProperty ColumnHeader(6) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 1
SubItemIndex = 5
Text = "载重(g)"
Object.Width = 1764
EndProperty
BeginProperty ColumnHeader(7) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 6
Text = "自高(mm)"
Object.Width = 1764
EndProperty
End
Begin MSComctlLib.ListView ListView3
Height = 3840
Left = 210
TabIndex = 2
Top = 3465
Width = 6675
_ExtentX = 11774
_ExtentY = 6773
View = 3
LabelEdit = 1
LabelWrap = -1 'True
HideSelection = 0 'False
AllowReorder = -1 'True
FullRowSelect = -1 'True
GridLines = -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 0
NumItems = 7
BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Text = "选择"
Object.Width = 970
EndProperty
BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 1
Text = "名称"
Object.Width = 2646
EndProperty
BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 1
SubItemIndex = 2
Text = "长(mm)"
Object.Width = 1764
EndProperty
BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 1
SubItemIndex = 3
Text = "宽(mm)"
Object.Width = 1764
EndProperty
BeginProperty ColumnHeader(5) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 1
SubItemIndex = 4
Text = "高(mm)"
Object.Width = 1764
EndProperty
BeginProperty ColumnHeader(6) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 1
SubItemIndex = 5
Text = "重量(g)"
Object.Width = 1764
EndProperty
BeginProperty ColumnHeader(7) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 6
Text = "数量"
Object.Width = 1764
EndProperty
End
Begin VB.Label Label2
Caption = "待装箱的货物："
Height = 330
Left = 210
TabIndex = 4
Top = 3255
Width = 2010
End
Begin VB.Label Label1
Caption = "选择的容器："
Height = 225
Left = 210
TabIndex = 3
Top = 420
Width = 2535
End
End
End
Attribute VB_Name = "Form4"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -