Freesoft 1997 March/Freesoft_1997-03_cd.bin/recenz/926/VB30.ARJ/VB30/EX26VB.FRM

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