End
Begin MSComctlLib.ProgressBar PGBar
Height = 345
Left = 30
TabIndex = 4
Top = 4620
Width = 8505
_ExtentX = 15002
_ExtentY = 609
_Version = 393216
Appearance = 0
Scrolling = 1
End
Begin VB.Label lblAbout
BackStyle = 0 ''''Transparent
Caption = "关于本程序..."
Height = 255
Left = 7260
TabIndex = 8
Top = 60
Width = 1215
End
Begin VB.Label lblInfo
AutoSize = -1 ''''True
Caption = "请等待,正在创建包信息文件..."
Height = 180
Index = 1
Left = 30
TabIndex = 7
Top = 4740
Width = 4980
End
Begin VB.Label lblInfo
AutoSize = -1 ''''True
Caption = "展开打包信息更新列表:"
Height = 180
Index = 0
Left = 30
TabIndex = 3
Top = 30
Width = 1980
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'''' ==============================================
'''' 信息打包与展开 (主窗体模块,即展开窗体)
''''
'''' 功能 :利用系统所存在的资源自作压缩与解压缩程序
''''
'''' 作 者 :谢家峰
'''' 整理日期 :2004-08-08
'''' Email :douhapy@sina.com
''''
'''' ==============================================
''''
Option Explicit
Private Declare Function ExtractFileFromCab Lib "vb6stkit.dll" _
(ByVal Cab As String, ByVal File As String, ByVal dest As String, _
ByVal iCab As Long, ByVal sSrc As String) As Long
''''说明:
''''cab 为系统安装目录下的压缩包
''''file 为压缩包内的某文件名称(需在该文件名前加“@”字符)
''''dest 为压缩包内的某文件解压后的完全路径名
''''icab 为压缩包的数目
''''ssrc 临时文件夹,一个有效的文件夹路径
Dim s_FileNames() As String ''''源文件名(不含路径)
Dim d_FileNames() As String ''''目标文件名(含路径)
Dim cab_FileName As String ''''包文件名
上一页 [1] [2] [3] [4] [5] [6] 下一页 没有相关教程
|