extract.frm

开发工具是vc

VERSION 5.00
Begin VB.Form ExtractDialog 
   Appearance      =   0  'Flat
   BackColor       =   &H00C0C0C0&
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "解压目录"
   ClientHeight    =   3240
   ClientLeft      =   1515
   ClientTop       =   2970
   ClientWidth     =   6240
   ClipControls    =   0   'False
   ForeColor       =   &H80000008&
   Icon            =   "extract.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   PaletteMode     =   1  'UseZOrder
   ScaleHeight     =   3240
   ScaleWidth      =   6240
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  'CenterOwner
   Begin VB.CommandButton cmdCancel 
      Cancel          =   -1  'True
      Caption         =   "Cancel"
      Height          =   330
      Left            =   4950
      TabIndex        =   7
      Top             =   2850
      Width           =   1215
   End
   Begin VB.CommandButton cmdSelect 
      Caption         =   "Select"
      Default         =   -1  'True
      Height          =   330
      Left            =   3675
      TabIndex        =   6
      Top             =   2850
      Width           =   1215
   End
   Begin VB.TextBox txtExtract 
      Height          =   285
      Left            =   1650
      TabIndex        =   2
      Top             =   2400
      Width           =   4485
   End
   Begin VB.DirListBox dirExtract 
      BackColor       =   &H00FFFFFF&
      ForeColor       =   &H00000000&
      Height          =   1665
      Left            =   1650
      TabIndex        =   1
      Top             =   600
      Width           =   4470
   End
   Begin VB.DriveListBox drvExtract 
      Appearance      =   0  'Flat
      Height          =   315
      Left            =   1650
      TabIndex        =   0
      Top             =   150
      Width           =   4455
   End
   Begin VB.Label lbl 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BackStyle       =   0  'Transparent
      Caption         =   "解压文件到："
      ForeColor       =   &H80000008&
      Height          =   240
      Index           =   2
      Left            =   150
      TabIndex        =   5
      Top             =   2400
      Width           =   1455
   End
   Begin VB.Label lbl 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BackStyle       =   0  'Transparent
      Caption         =   "目录："
      ForeColor       =   &H80000008&
      Height          =   240
      Index           =   1
      Left            =   150
      TabIndex        =   4
      Top             =   600
      Width           =   1380
   End
   Begin VB.Label lbl 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BackStyle       =   0  'Transparent
      Caption         =   "盘符："
      ForeColor       =   &H80000008&
      Height          =   240
      Index           =   0
      Left            =   150
      TabIndex        =   3
      Top             =   150
      Width           =   1380
   End
End
Attribute VB_Name = "ExtractDialog"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

' Cancel button clicked - Don't change anything
'
Private Sub cmdCancel_Click()

    ExtractDialogCanceled = True
    Unload ExtractDialog

End Sub

' User has clicked on OK, Set Xceed Zip OCX's ExtractDirectory property.
'
Private Sub cmdSelect_Click()
   
   Dim ExtractToDirectory As String

   ExtractToDirectory = Trim$(txtExtract.Text)
   
   frmMain.ZipMain.ExtractDirectory = ExtractToDirectory
   ExtractDialogCanceled = False
   Unload ExtractDialog

End Sub

' User has changed directories, set the txtExtract caption.
'
Private Sub dirExtract_Change()

   txtExtract.Text = dirExtract.List(dirExtract.ListIndex)

End Sub

' User has clicked in the drive selection box. Update
' the Directory list box, Make sure the selected drive
' is active to prevent a crash.
Private Sub drvExtract_Change()

   On Error GoTo Handle_Drive_Error
   dirExtract.Path = drvExtract.Drive
   On Error GoTo 0
   Exit Sub

Handle_Drive_Error:
   
   MsgBox UCase(drvExtract.Drive) + "\ is not accessible" _
           + Chr$(13) + Chr$(13) + _
           "The device is not ready", vbCritical, "Error"
   drvExtract.Drive = dirExtract.Path
   On Error GoTo 0
   
End Sub

' When the form loads, set the directory and drive list boxes
' to the proper directory.
Private Sub Form_Load()

   If Len(frmMain.ZipMain.ExtractDirectory) > 0 Then
      txtExtract.Text = frmMain.ZipMain.ExtractDirectory
      dirExtract.Path = frmMain.ZipMain.ExtractDirectory
      drvExtract.Drive = frmMain.ZipMain.ExtractDirectory
   Else
      txtExtract.Text = dirExtract.List(dirExtract.ListIndex)
   End If
   
End Sub