📄 xzipdemo.frm
字号:
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.1#0"; "COMDLG32.OCX"
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.1#0"; "COMCTL32.OCX"
Object = "{B26F6243-4C7D-11D1-910E-00600807163F}#2.78#0"; "XcdZip35.ocx"
Begin VB.Form frmMain
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "Untitled - Xceed Zip VB 5.0 Sample Application"
ClientHeight = 5790
ClientLeft = 180
ClientTop = 3780
ClientWidth = 8325
ClipControls = 0 'False
ForeColor = &H80000008&
Icon = "xzipdemo.frx":0000
LinkTopic = "MainForm"
PaletteMode = 1 'UseZOrder
ScaleHeight = 5790
ScaleWidth = 8325
StartUpPosition = 2 'CenterScreen
Begin ComctlLib.ProgressBar prbMain
Height = 240
Left = 5550
TabIndex = 3
Top = 5520
Width = 1785
_ExtentX = 3149
_ExtentY = 423
_Version = 327680
Appearance = 1
Enabled = 0 'False
End
Begin VB.CommandButton cmdAbort
Caption = "Abort"
Enabled = 0 'False
Height = 255
Left = 7410
TabIndex = 1
Top = 5520
Width = 630
End
Begin MSComDlg.CommonDialog dlgSelectZip
Left = 120
Top = 600
_ExtentX = 847
_ExtentY = 847
_Version = 327680
DefaultExt = "zip"
Filter = "Zip archives (*.zip)|*.zip|Self extracting zip archives (*.exe)|*.exe|All files (*.*)|*.*"
End
Begin MSComDlg.CommonDialog dlgSelectFiles
Left = 120
Top = 1080
_ExtentX = 847
_ExtentY = 847
_Version = 327680
Filter = "All files (*.*)|*.*"
MaxFileSize = 32767
End
Begin ComctlLib.StatusBar stbMain
Align = 2 'Align Bottom
Height = 315
Left = 0
TabIndex = 0
Top = 5475
Width = 8325
_ExtentX = 14684
_ExtentY = 556
SimpleText = ""
ShowTips = 0 'False
_Version = 327680
BeginProperty Panels {0713E89E-850A-101B-AFC0-4210102A8DA7}
NumPanels = 3
BeginProperty Panel1 {0713E89F-850A-101B-AFC0-4210102A8DA7}
AutoSize = 1
Object.Width = 9742
MinWidth = 1937
TextSave = ""
Object.Tag = ""
EndProperty
BeginProperty Panel2 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Alignment = 1
Object.Width = 3210
MinWidth = 3210
TextSave = ""
Object.Tag = ""
EndProperty
BeginProperty Panel3 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Alignment = 1
Object.Width = 1199
MinWidth = 1199
TextSave = ""
Object.Tag = ""
EndProperty
EndProperty
MouseIcon = "xzipdemo.frx":030A
End
Begin ComctlLib.ListView lstMain
Height = 5475
Left = 0
TabIndex = 2
Top = 0
Width = 8325
_ExtentX = 14684
_ExtentY = 9657
View = 3
Arrange = 2
LabelEdit = 1
MultiSelect = -1 'True
LabelWrap = -1 'True
HideSelection = 0 'False
_Version = 327680
ForeColor = -2147483640
BackColor = -2147483643
Appearance = 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
NumItems = 7
BeginProperty ColumnHeader(1) {0713E8C7-850A-101B-AFC0-4210102A8DA7}
Key = ""
Object.Tag = ""
Text = "Name"
Object.Width = 2646
EndProperty
BeginProperty ColumnHeader(2) {0713E8C7-850A-101B-AFC0-4210102A8DA7}
Key = ""
Object.Tag = ""
Text = "Date"
Object.Width = 1429
EndProperty
BeginProperty ColumnHeader(3) {0713E8C7-850A-101B-AFC0-4210102A8DA7}
Key = ""
Object.Tag = ""
Text = "Time"
Object.Width = 794
EndProperty
BeginProperty ColumnHeader(4) {0713E8C7-850A-101B-AFC0-4210102A8DA7}
Alignment = 1
Key = ""
Object.Tag = ""
Text = "Size"
Object.Width = 1429
EndProperty
BeginProperty ColumnHeader(5) {0713E8C7-850A-101B-AFC0-4210102A8DA7}
Alignment = 1
Key = ""
Object.Tag = ""
Text = "Packed"
Object.Width = 1429
EndProperty
BeginProperty ColumnHeader(6) {0713E8C7-850A-101B-AFC0-4210102A8DA7}
Key = ""
Object.Tag = ""
Text = "Ratio"
Object.Width = 926
EndProperty
BeginProperty ColumnHeader(7) {0713E8C7-850A-101B-AFC0-4210102A8DA7}
Key = ""
Object.Tag = ""
Text = "Path"
Object.Width = 2469
EndProperty
End
Begin XCEEDZIPLib.XceedZip ZipMain
Left = 3960
Top = 2640
_Version = 131150
_ExtentX = 794
_ExtentY = 794
_StockProps = 0
Compression = 6
ClearDisks = 0 'False
ExtractDirectory= ""
FilesToProcess = ""
IncludeDirectoryEntries= 0 'False
IncludeHiddenFiles= 0 'False
IncludeVolumeLabel= 0 'False
ModifiedDate = "01011980"
MoveFiles = 0 'False
MultidiskMode = 0 'False
Overwrite = 0
Password = ""
Recurse = 0 'False
SelfExtracting = 0 'False
SfxBinary = ""
SfxConfigFile = ""
StoredExtensions= ".ZIP;.LZH;.ARC;.ARJ;.ZOO"
TempPath = ""
UsePaths = -1 'True
UseTempFile = -1 'True
ZipFileName = ""
InternalState = "8db1d6d9"
SfxExtractDirectory= ""
SfxRunExePath = ""
SfxReadmePath = ""
SfxDefaultPassword= ""
SfxOverwrite = 0
SfxPromptForDirectory= -1 'True
SfxShowProgress = -1 'True
SfxPromptForPassword= -1 'True
SfxPromptCreateDirectory= -1 'True
SfxProgramGroup = ""
SfxProgramGroupItems= ""
SfxRegisterExtensions= ""
SfxIcon = "xzipdemo.frx":0326
SfxInstallMode = 0 'False
End
Begin VB.Menu mnuFile
Caption = "&File"
Begin VB.Menu mnuFileNew
Caption = "&New Zipfile..."
End
Begin VB.Menu mnuFileOpen
Caption = "&Open Zipfile..."
End
Begin VB.Menu mnuFileClose
Caption = "&Close Zipfile"
End
Begin VB.Menu mnuFileBar1
Caption = "-"
End
Begin VB.Menu mnuFileTest
Caption = "&Test Zipfile..."
End
Begin VB.Menu mnuFileFix
Caption = "&Fix Zipfile..."
Begin VB.Menu mnuFileFixNormal
Caption = "Normal"
End
Begin VB.Menu mnuFileFixAgressive
Caption = "Agressive"
End
End
Begin VB.Menu mnuFileDelete
Caption = "&Delete Zipfile..."
End
Begin VB.Menu mnuFileBar2
Caption = "-"
End
Begin VB.Menu mnuFileExit
Caption = "E&xit"
End
End
Begin VB.Menu mnuEdit
Caption = "&Edit"
Begin VB.Menu mnuEditAdd
Caption = "&Add..."
End
Begin VB.Menu mnuEditDelete
Caption = "&Delete"
End
Begin VB.Menu mnuEditExtract
Caption = "&Extract..."
End
Begin VB.Menu mnuEditUpdate
Caption = "&Update..."
End
Begin VB.Menu mnuEditBar1
Caption = "-"
End
Begin VB.Menu mnuEditUpdateZipDate
Caption = "&UpdateZipDate"
End
Begin VB.Menu mnuEditBar2
Caption = "-"
End
Begin VB.Menu mnuEditSelectAll
Caption = "Select &All"
End
End
Begin VB.Menu mnuOptions
Caption = "&Options"
Begin VB.Menu mnuOptionsBest
Caption = "&Best compression"
End
Begin VB.Menu mnuOptionsNormal
Caption = "&Normal compression"
End
Begin VB.Menu mnuOptionsFastest
Caption = "&Fastest compression"
End
Begin VB.Menu mnuOptionsStore
Caption = "&Store without compression"
End
Begin VB.Menu mnuOptionsBar1
Caption = "-"
End
Begin VB.Menu mnuOptionsMultidiskMode
Caption = "&Multidisk mode"
End
Begin VB.Menu mnuOptionsClearDisks
Caption = "&Clear disks"
End
Begin VB.Menu mnuOptionsBar2
Caption = "-"
End
Begin VB.Menu mnuOptionsUseTempFile
Caption = "&Use Temp File"
End
Begin VB.Menu mnuOptionsBar3
Caption = "-"
End
Begin VB.Menu mnuOptionsSelfExtracting
Caption = "Self-e&xtracting zip file"
End
Begin VB.Menu mnuOptionsSelfExtractingOptions
Caption = "Self-extractor &options..."
Enabled = 0 'False
End
End
Begin VB.Menu mnuHelp
Caption = "&Help"
Begin VB.Menu mnuHelpAbout
Caption = "About the Xceed Zip VB 5.0 Sample Application"
End
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
' ===================================================================
' DESCRIPTION: Xceed Zip Visual Basic 5.0 Sample Application
' COPYRIGHT: ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -