home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DP Tool Club 31
/
CDASC_31_1996_juillet_aout.iso
/
vrac
/
altd201a.zip
/
VB30.ARJ
/
VB30
/
EX26VB.FRM
< prev
next >
Wrap
Text File
|
1996-04-19
|
5KB
|
179 lines
VERSION 2.00
Begin Form Form1
BorderStyle = 1 'Fixed Single
Caption = "Form1"
ClientHeight = 4770
ClientLeft = 2115
ClientTop = 1515
ClientWidth = 3870
Height = 5175
Left = 2055
LinkTopic = "Form1"
ScaleHeight = 4770
ScaleWidth = 3870
Top = 1170
Width = 3990
Begin CommandButton About
Caption = "About"
Height = 495
Left = 240
TabIndex = 7
Top = 3960
Width = 1455
End
Begin CommandButton Extract
Caption = "Extract"
Height = 495
Left = 240
TabIndex = 6
Top = 3360
Width = 1455
End
Begin CommandButton DelButt
Caption = "Delete"
Height = 495
Left = 2040
TabIndex = 5
Top = 3360
Width = 1335
End
Begin CommandButton Command1
Caption = "Exit"
Height = 495
Left = 2040
TabIndex = 4
Top = 3960
Width = 1335
End
Begin ListBox List1
Height = 2175
Left = 2040
MultiSelect = 2 'Extended
TabIndex = 1
Top = 240
Width = 1335
End
Begin FileListBox File1
Height = 2175
Left = 240
Pattern = "*.zip"
TabIndex = 0
Top = 240
Width = 1455
End
Begin SSPanel SSPanel1
BackColor = &H00C0C0C0&
FloodType = 1 'Left To Right
Font3D = 0 'None
Height = 375
Left = 480
TabIndex = 3
Top = 2520
Width = 2655
End
Begin TextBox JobProgress
Height = 375
Left = 480
TabIndex = 2
Text = "Job Progress -I'm invisible, dude"
Top = 2880
Visible = 0 'False
Width = 2655
End
Begin SSPanel Panel3D1
BackColor = &H00C0C0C0&
FloodShowPct = 0 'False
Font3D = 0 'None
Height = 4935
Left = 0
TabIndex = 8
Top = 0
Width = 3975
End
End
Option Explicit
Dim z() As ALZipDir
Dim LibraryHandle As Long
Sub About_Click ()
frmAbout.Text1 = "EX26VB demonstrates the simplified interface. Double click on a"
frmAbout.Text1 = frmAbout.Text1 + " zip file to display its contents. You can either"
frmAbout.Text1 = frmAbout.Text1 + " extract or delete the file from the archive."
frmAbout.Show 1
End Sub
Sub Command1_Click ()
Unload Form1
End
End Sub
Sub Command2_Click ()
End Sub
Sub DelButt_Click ()
Dim i As Integer
DelButt.Enabled = 0
i = 0
While z(i).size <> -1
If List1.Selected(i) Then
z(i).mark = 1
Else
z(i).mark = 0
End If
i = i + 1
Wend
DelButt.Enabled = 1
i = ALDelete(z(), 0, 0, JobProgress.hWnd)
File1_Click
End Sub
Sub Extract_Click ()
Dim i As Integer
Extract.Enabled = 0
i = 0
While z(i).size <> -1
If List1.Selected(i) Then
z(i).mark = 1
Else
z(i).mark = 0
End If
i = i + 1
Wend
i = ALExtract(z(), 0, 0, 0, JobProgress.hWnd)
Extract.Enabled = 1
End Sub
Sub File1_Click ()
Dim i As Integer
Dim count As Integer
Dim status As Integer
i = UBound(z, 1)
If z(i).compressed_size <> 0 Then ALFreeDir z()
ALReadDir z(), File1.FileName, count, status
List1.Clear
For i = 0 To count - 1
List1.AddItem z(i).name
Next
End Sub
Sub Form_Load ()
File1.Path = App.Path
ChDrive App.Path
ChDir App.Path
LibraryHandle = LoadLibrary(DLLName())
ReDim z(1)
End Sub
Sub Form_Unload (Cancel As Integer)
FreeLibrary (LibraryHandle)
End Sub
Sub JobProgress_Change ()
SSPanel1.FloodPercent = Val(JobProgress.Text)
End Sub