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 / progtest.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-07-31  |  1.3 KB  |  48 lines
  1. VERSION 4.00
  2. Begin VB.Form frmProgTest 
  3.    Caption         =   "Progress Bar Class Tester"
  4.    ClientHeight    =   915
  5.    ClientLeft      =   1140
  6.    ClientTop       =   1515
  7.    ClientWidth     =   3525
  8.    Height          =   1320
  9.    Left            =   1080
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    ScaleHeight     =   915
  13.    ScaleWidth      =   3525
  14.    Top             =   1170
  15.    Width           =   3645
  16.    Begin VB.HScrollBar HScroll1 
  17.       Height          =   225
  18.       LargeChange     =   10
  19.       Left            =   210
  20.       Max             =   100
  21.       TabIndex        =   1
  22.       Top             =   525
  23.       Width           =   3060
  24.    End
  25.    Begin VB.PictureBox Picture1 
  26.       BackColor       =   &H00FFFFFF&
  27.       Height          =   330
  28.       Left            =   210
  29.       ScaleHeight     =   270
  30.       ScaleWidth      =   3000
  31.       TabIndex        =   0
  32.       Top             =   105
  33.       Width           =   3060
  34.    End
  35. Attribute VB_Name = "frmProgTest"
  36. Attribute VB_Creatable = False
  37. Attribute VB_Exposed = False
  38. Option Explicit
  39. Dim x As New ProgressBar
  40. Private Sub Form_Load()
  41.     Move (Screen.Width - Width) / 2, (Screen.Height - Height) / 2
  42.     x.Init Picture1
  43.     HScroll1_Change
  44. End Sub
  45. Private Sub HScroll1_Change()
  46.     x.Progress HScroll1
  47. End Sub
  48.