recycle.frm

不错的一个VB菜单设计 界面和功能都不错

VERSION 5.00
Object = "*\A..\SOURCE\FAST2003.vbp"
Begin VB.Form frmRecycleBin 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "Reclycle Bin..."
   ClientHeight    =   1290
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4725
   Icon            =   "Recycle.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1290
   ScaleWidth      =   4725
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin VB.CommandButton cmdClear 
      Caption         =   "Clear Recycle Bin"
      Height          =   375
      Left            =   2430
      TabIndex        =   2
      Top             =   765
      Width           =   2175
   End
   Begin VB.CommandButton cmdOpen 
      Caption         =   "Open Recycle Bin Folder"
      Height          =   375
      Left            =   135
      TabIndex        =   1
      Top             =   765
      Width           =   2175
   End
   Begin FLWSystem.FWRecycleBin objRecycleBin 
      Left            =   4155
      Top             =   135
      _ExtentX        =   820
      _ExtentY        =   820
   End
   Begin VB.Label lblLabel 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "dummy text"
      Height          =   195
      Index           =   0
      Left            =   135
      TabIndex        =   0
      Top             =   225
      Width           =   795
   End
End
Attribute VB_Name = "frmRecycleBin"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit


Private Sub cmdClear_Click()
  Call objRecycleBin.Clear(True, True, True)
  Call MyRefresh
End Sub

Private Sub cmdOpen_Click()
  Call objRecycleBin.OpenRecycleBin
  Call MyRefresh
End Sub

Private Sub Form_Load()
  Call objRecycleBin.Create
  Call MyRefresh
End Sub

Private Sub MyRefresh()
  lblLabel(0) = "The Reclycle bin contains " & objRecycleBin.Files & " items" & _
                " (" & objRecycleBin.Size & " bytes)"
End Sub