home *** CD-ROM | disk | FTP | other *** search
/ BUG 6 / BUGCD1997_09.BIN / UTIL / ADDZIP / ADDZIP.EXE / VB / QUICKZIP / ABOUT.FRM (.txt) next >
Encoding:
Visual Basic Form  |  1997-06-01  |  4.0 KB  |  126 lines
  1. VERSION 2.00
  2. Begin Form frmAbout 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "About QuickZIP"
  6.    ClientHeight    =   4590
  7.    ClientLeft      =   2595
  8.    ClientTop       =   2025
  9.    ClientWidth     =   3240
  10.    Height          =   4995
  11.    Left            =   2535
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   4590
  16.    ScaleWidth      =   3240
  17.    Top             =   1680
  18.    Width           =   3360
  19.    Begin CommandButton cmdOK 
  20.       Caption         =   "OK"
  21.       Default         =   -1  'True
  22.       Height          =   375
  23.       Left            =   960
  24.       TabIndex        =   3
  25.       Top             =   4080
  26.       Width           =   1335
  27.    End
  28.    Begin PictureBox Picture1 
  29.       BackColor       =   &H00C0C0C0&
  30.       BorderStyle     =   0  'None
  31.       Height          =   1455
  32.       Left            =   120
  33.       Picture         =   ABOUT.FRX:0000
  34.       ScaleHeight     =   1455
  35.       ScaleWidth      =   3015
  36.       TabIndex        =   0
  37.       Top             =   1200
  38.       Width           =   3015
  39.    End
  40.    Begin Image Image1 
  41.       BorderStyle     =   1  'Fixed Single
  42.       Height          =   510
  43.       Index           =   1
  44.       Left            =   2640
  45.       Picture         =   ABOUT.FRX:050E
  46.       Top             =   120
  47.       Width           =   510
  48.    End
  49.    Begin Image Image1 
  50.       BorderStyle     =   1  'Fixed Single
  51.       Height          =   510
  52.       Index           =   0
  53.       Left            =   120
  54.       Picture         =   ABOUT.FRX:0810
  55.       Top             =   120
  56.       Width           =   510
  57.    End
  58.    Begin Label Label1 
  59.       Alignment       =   2  'Center
  60.       BackStyle       =   0  'Transparent
  61.       Caption         =   "Label1"
  62.       FontBold        =   0   'False
  63.       FontItalic      =   0   'False
  64.       FontName        =   "MS Sans Serif"
  65.       FontSize        =   8.25
  66.       FontStrikethru  =   0   'False
  67.       FontUnderline   =   0   'False
  68.       Height          =   1335
  69.       Left            =   120
  70.       TabIndex        =   4
  71.       Top             =   2760
  72.       Width           =   3015
  73.    End
  74.    Begin Label lblName 
  75.       Alignment       =   2  'Center
  76.       BackColor       =   &H00FFFFFF&
  77.       BackStyle       =   0  'Transparent
  78.       Caption         =   "QuickZIP v0.5"
  79.       Height          =   255
  80.       Left            =   120
  81.       TabIndex        =   2
  82.       Top             =   240
  83.       Width           =   3015
  84.    End
  85.    Begin Label lblInfo 
  86.       Alignment       =   2  'Center
  87.       BackStyle       =   0  'Transparent
  88.       Caption         =   "Label1"
  89.       FontBold        =   0   'False
  90.       FontItalic      =   0   'False
  91.       FontName        =   "MS Sans Serif"
  92.       FontSize        =   8.25
  93.       FontStrikethru  =   0   'False
  94.       FontUnderline   =   0   'False
  95.       Height          =   495
  96.       Left            =   120
  97.       TabIndex        =   1
  98.       Top             =   720
  99.       Width           =   3015
  100.    End
  101. Option Explicit
  102. Sub cmdOK_Click ()
  103.   Unload Me
  104. End Sub
  105. Sub Form_Load ()
  106.   Dim cCaption As String
  107.   ' centre the form on screen
  108.   Move screen.Width / 2 - Me.Width / 2, screen.Height / 2 - Me.Height / 2
  109.   ' set the first caption
  110.   cCaption = "This utility is provided as an example of "
  111.   cCaption = cCaption & "the addZIP Compression Libraries. "
  112.   lblInfo.Caption = cCaption
  113.   ' set the second caption
  114.   cCaption = "You are free to use and modify this utility as you wish. "
  115.   cCaption = cCaption & "If you want to use the addZIP Compression "
  116.   cCaption = cCaption & "Libraries in a development environment then "
  117.   cCaption = cCaption & "you are required to register. Please see the "
  118.   cCaption = cCaption & "help file for further information."
  119.   label1.Caption = cCaption
  120.   Form_Colour Me
  121. End Sub
  122. Sub Form_Resize ()
  123.   Dim I As Integer
  124.   I = SetWindowPos(Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)
  125. End Sub
  126.