about.frm

这是一款用VB6.0编写的清理IE历史缓存的工具

VERSION 5.00
Begin VB.Form About 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "关于IE清理工具"
   ClientHeight    =   1005
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   3870
   Icon            =   "About.frx":0000
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1005
   ScaleWidth      =   3870
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.Timer TimerOk 
      Interval        =   1000
      Left            =   3120
      Top             =   0
   End
   Begin VB.CommandButton CommandOk 
      Caption         =   "确 定(&O)"
      Height          =   375
      Left            =   2760
      TabIndex        =   1
      Top             =   480
      Width           =   975
   End
   Begin VB.Label LabelText 
      Height          =   735
      Left            =   720
      TabIndex        =   0
      Top             =   240
      Width           =   2055
   End
   Begin VB.Image Image1 
      Height          =   480
      Left            =   120
      Picture         =   "About.frx":000C
      Top             =   240
      Width           =   480
   End
End
Attribute VB_Name = "About"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim Num As Integer                                     '定义倒计时的秒数
Private Sub CommandOk_Click()
Unload Me
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 79 Then CommandOk_Click
End Sub

Private Sub Form_Load()
RemoveMenu GetSystemMenu(Me.hwnd, 0), SC_CLOSE, MF_REMOVE
RemoveMenu GetSystemMenu(Me.hwnd, 0), SC_MAXIMIZE, MF_REMOVE
RemoveMenu GetSystemMenu(Me.hwnd, 0), SC_MINIMIZE, MF_REMOVE
LabelText.Caption = "IE清理工具 V" & App.Major & "." & App.Minor & "." & App.Revision & Chr(13) & Chr(13) & "版权所有 @ 2008-2009"
Num = 10                                  '倒计时关闭窗口为10秒钟
End Sub

Private Sub TimerOk_Timer()
Num = Num - 1
CommandOk.Caption = "确 定(" & Num & ")"
If Num <= 0 Then Unload Me
End Sub