home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Programmer'…arterly (Limited Edition) / Visual_Basic_Programmers_Journal_VB-CD_Quarterly_Limited_Edition_1995.iso / code / ch28code / progress.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-07-30  |  1.8 KB  |  57 lines
  1. VERSION 4.00
  2. Begin VB.Form frmProgress 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    ClientHeight    =   975
  5.    ClientLeft      =   1140
  6.    ClientTop       =   1515
  7.    ClientWidth     =   5175
  8.    ControlBox      =   0   'False
  9.    Height          =   1380
  10.    Icon            =   "Progress.frx":0000
  11.    Left            =   1080
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   975
  16.    ScaleWidth      =   5175
  17.    ShowInTaskbar   =   0   'False
  18.    Top             =   1170
  19.    Width           =   5295
  20.    Begin VB.PictureBox picProgressBar 
  21.       BackColor       =   &H00FFFFFF&
  22.       Height          =   375
  23.       Left            =   120
  24.       ScaleHeight     =   315
  25.       ScaleWidth      =   4875
  26.       TabIndex        =   1
  27.       Top             =   480
  28.       Width           =   4935
  29.    End
  30.    Begin VB.Label lblMessage 
  31.       Alignment       =   2  'Center
  32.       Appearance      =   0  'Flat
  33.       BackColor       =   &H80000005&
  34.       BackStyle       =   0  'Transparent
  35.       ForeColor       =   &H80000008&
  36.       Height          =   255
  37.       Left            =   120
  38.       TabIndex        =   0
  39.       Top             =   120
  40.       Width           =   4935
  41.    End
  42. Attribute VB_Name = "frmProgress"
  43. Attribute VB_Creatable = False
  44. Attribute VB_Exposed = False
  45. Option Explicit
  46. Public clsProgressBar As New ProgressBar
  47. Private Sub Form_Load()
  48.     clsProgressBar.Init picProgressBar
  49.     clsProgressBar.Progress 0
  50.     Move (Screen.Width - Width) / 2, (Screen.Height - Height) / 2
  51. End Sub
  52. Public Sub Update(intProgressAmount As Integer, Optional vntMessage)
  53.     lblMessage = IIf(IsMissing(vntMessage), lblMessage, vntMessage)
  54.     clsProgressBar.Progress intProgressAmount
  55.     If Not Visible Then Show
  56. End Sub
  57.