📄 listing.frm
字号:
VERSION 4.00
Begin VB.Form MpqEx
Caption = "WinMPQ"
ClientHeight = 3510
ClientLeft = 1245
ClientTop = 1785
ClientWidth = 6690
Height = 4200
Icon = "listing.frx":0000
KeyPreview = -1 'True
Left = 1185
LinkTopic = "Form1"
ScaleHeight = 3510
ScaleWidth = 6690
Top = 1155
Width = 6810
Begin VB.Timer Timer1
Enabled = 0 'False
Interval = 2500
Left = 6120
Top = 2160
End
Begin VB.TextBox txtCommand
BackColor = &H8000000F&
Height = 285
Left = 1440
TabIndex = 1
Top = 2880
Width = 4695
End
Begin VB.CommandButton cmdGo
Caption = "Go"
Height = 285
Left = 6120
TabIndex = 2
Top = 2880
Width = 495
End
Begin VB.ComboBox mFilter
Height = 315
ItemData = "listing.frx":27A2
Left = 5220
List = "listing.frx":27A9
Sorted = -1 'True
TabIndex = 3
Text = "*"
Top = 30
Width = 675
End
Begin MSComctlLib.Toolbar Toolbar
Align = 1 'Align Top
Height = 345
Left = 0
TabIndex = 5
Top = 0
Width = 6690
_ExtentX = 11800
_ExtentY = 609
ButtonWidth = 1535
ButtonHeight = 556
Wrappable = 0 'False
Appearance = 1
Style = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 8
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "New"
Key = "New"
Description = "Create a new archive"
ToolTipText = "Create a new archive"
ImageIndex = 1
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "Open"
Key = "Open"
Description = "Open an existing archive"
ToolTipText = "Open an existing archive"
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Enabled = 0 'False
Caption = "Add"
Key = "Add"
Description = "Add files to the archive"
ToolTipText = "Add files to the archive"
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Enabled = 0 'False
Caption = "Add Folder"
Key = "Add Folder"
Description = "Add files from a folder and its subfolders"
ToolTipText = "Add files from a folder and its subfolders"
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Enabled = 0 'False
Caption = "Extract"
Key = "Extract"
Description = "Extract files from the archive"
ToolTipText = "Extract files from the archive"
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Enabled = 0 'False
Caption = "Compact"
Key = "Compact"
Description = "Clear deleted files from the archive"
ToolTipText = "Clear deleted files from the archive"
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Enabled = 0 'False
Key = "filterspace"
Style = 4
Object.Width = 675
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Enabled = 0 'False
Caption = "List"
Key = "List"
EndProperty
EndProperty
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = " MPQ2k &Command "
Height = 195
Left = 0
TabIndex = 6
Top = 2880
Width = 1425
End
Begin MSComctlLib.ImageList ImageList1
Left = 6120
Top = 1560
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 1
ImageHeight = 1
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 1
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "listing.frx":27B0
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.StatusBar StatBar
Align = 2 'Align Bottom
Height = 300
Left = 0
TabIndex = 4
Top = 3210
Width = 6690
_ExtentX = 11800
_ExtentY = 529
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 2
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
AutoSize = 1
Object.Width = 5664
MinWidth = 2
Key = "FileInfo"
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
AutoSize = 1
Object.Width = 5664
MinWidth = 2
Key = "MpqInfo"
EndProperty
EndProperty
End
Begin MSComctlLib.ListView List
Height = 2295
Left = 0
TabIndex = 0
Top = 360
Width = 6015
_ExtentX = 10610
_ExtentY = 4048
View = 3
Arrange = 2
Sorted = -1 'True
MultiSelect = -1 'True
LabelWrap = -1 'True
HideSelection = -1 'True
OLEDragMode = 1
OLEDropMode = 1
AllowReorder = -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
OLEDragMode = 1
OLEDropMode = 1
NumItems = 6
BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Key = "N"
Text = "Name"
Object.Width = 5080
EndProperty
BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 1
SubItemIndex = 1
Key = "S"
Text = "Size"
Object.Width = 1905
EndProperty
BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 1
SubItemIndex = 2
Key = "R"
Text = "Ratio"
Object.Width = 1129
EndProperty
BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 1
SubItemIndex = 3
Key = "PK"
Text = "Packed"
Object.Width = 1905
EndProperty
BeginProperty ColumnHeader(5) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 4
Key = "LCID"
Text = "Locale ID"
Object.Width = 1129
EndProperty
BeginProperty ColumnHeader(6) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 5
Key = "A"
Text = "Attributes"
Object.Width = 1129
EndProperty
End
Begin VB.Menu mnuFile
Caption = "&File"
Begin VB.Menu mnuFNew
Caption = "&New..."
Shortcut = ^N
End
Begin VB.Menu mnuFOpen
Caption = "&Open..."
Shortcut = ^O
End
Begin VB.Menu mnuFReopen
Caption = "&Reopen Mpq"
Shortcut = {F5}
End
Begin VB.Menu mnuFScript
Caption = "Run Mo'PaQ 2000 &Script..."
Shortcut = ^S
End
Begin VB.Menu mnuFSep
Caption = "-"
End
Begin VB.Menu mnuFExit
Caption = "E&xit"
End
Begin VB.Menu mnuFRecent
Caption = "-"
Index = 0
Visible = 0 'False
End
End
Begin VB.Menu mnuMpq
Caption = "&Mpq"
Enabled = 0 'False
Begin VB.Menu mnuMItem
Caption = "&Open"
Index = 0
Visible = 0 'False
End
Begin VB.Menu mnuMSep1
Caption = "-"
Visible = 0 'False
End
Begin VB.Menu mnuMExtract
Caption = "&Extract"
Shortcut = ^E
End
Begin VB.Menu mnuMDelete
Caption = "&Delete Del or"
Shortcut = ^D
End
Begin VB.Menu mnuMRename
Caption = "Rena&me"
Shortcut = ^R
End
Begin VB.Menu mnuMChLCID
Caption = "Change Locale &ID..."
Shortcut = ^I
End
Begin VB.Menu mnuMSep2
Caption = "-"
End
Begin VB.Menu mnuMAdd
Caption = "&Add..."
Shortcut = ^A
End
Begin VB.Menu mnuMAddFolder
Caption = "Add &Folder..."
Shortcut = ^F
End
Begin VB.Menu mnuMCompression
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -