about.frm

一个兼容pkzip的文件/内存压缩算法

VERSION 2.00
Begin Form frmAbout 
   BackColor       =   &H00C0C0C0&
   BorderStyle     =   3  'Fixed Double
   Caption         =   "About QuickZIP"
   ClientHeight    =   4590
   ClientLeft      =   2595
   ClientTop       =   2025
   ClientWidth     =   3240
   Height          =   4995
   Left            =   2535
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4590
   ScaleWidth      =   3240
   Top             =   1680
   Width           =   3360
   Begin CommandButton cmdOK 
      Caption         =   "OK"
      Default         =   -1  'True
      Height          =   375
      Left            =   960
      TabIndex        =   3
      Top             =   4080
      Width           =   1335
   End
   Begin PictureBox Picture1 
      BackColor       =   &H00C0C0C0&
      BorderStyle     =   0  'None
      Height          =   1455
      Left            =   120
      Picture         =   ABOUT.FRX:0000
      ScaleHeight     =   1455
      ScaleWidth      =   3015
      TabIndex        =   0
      Top             =   1200
      Width           =   3015
   End
   Begin Image Image1 
      BorderStyle     =   1  'Fixed Single
      Height          =   510
      Index           =   1
      Left            =   2640
      Picture         =   ABOUT.FRX:050E
      Top             =   120
      Width           =   510
   End
   Begin Image Image1 
      BorderStyle     =   1  'Fixed Single
      Height          =   510
      Index           =   0
      Left            =   120
      Picture         =   ABOUT.FRX:0810
      Top             =   120
      Width           =   510
   End
   Begin Label Label1 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "Label1"
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   1335
      Left            =   120
      TabIndex        =   4
      Top             =   2760
      Width           =   3015
   End
   Begin Label lblName 
      Alignment       =   2  'Center
      BackColor       =   &H00FFFFFF&
      BackStyle       =   0  'Transparent
      Caption         =   "QuickZIP v0.5"
      Height          =   255
      Left            =   120
      TabIndex        =   2
      Top             =   240
      Width           =   3015
   End
   Begin Label lblInfo 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "Label1"
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   495
      Left            =   120
      TabIndex        =   1
      Top             =   720
      Width           =   3015
   End
End
Option Explicit

Sub cmdOK_Click ()
  Unload Me
End Sub

Sub Form_Load ()
  Dim cCaption As String
  ' centre the form on screen
  Move screen.Width / 2 - Me.Width / 2, screen.Height / 2 - Me.Height / 2
  ' set the first caption
  cCaption = "This utility is provided as an example of "
  cCaption = cCaption & "the addZIP Compression Libraries. "
  lblInfo.Caption = cCaption
  ' set the second caption
  cCaption = "You are free to use and modify this utility as you wish. "
  cCaption = cCaption & "If you want to use the addZIP Compression "
  cCaption = cCaption & "Libraries in a development environment then "
  cCaption = cCaption & "you are required to register. Please see the "
  cCaption = cCaption & "help file for further information."
  label1.Caption = cCaption
  Form_Colour Me
End Sub

Sub Form_Resize ()
  Dim I As Integer
  I = SetWindowPos(Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)
End Sub