home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / FERRAMEN / JS3_PAK / PERCNT.ZIP / SAMPLE.ZIP / PERCNTS.FRM (.txt) next >
Encoding:
Visual Basic Form  |  1993-12-17  |  2.4 KB  |  86 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "PerCnt Sample"
  6.    ClientHeight    =   1470
  7.    ClientLeft      =   1665
  8.    ClientTop       =   2220
  9.    ClientWidth     =   3510
  10.    ForeColor       =   &H00C0C0C0&
  11.    Height          =   1875
  12.    Left            =   1605
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   1470
  17.    ScaleWidth      =   3510
  18.    Top             =   1875
  19.    Width           =   3630
  20.    Begin Percent Percent1 
  21.       BackColor       =   &H00C0C0C0&
  22.       BevelBar        =   0  'None
  23.       BevelInner      =   3  'Lowered
  24.       BevelOuter      =   1  'Raised
  25.       BevelWidth      =   1
  26.       BevelWidthBar   =   0
  27.       Border          =   1  'Single Width
  28.       BorderWidth     =   2
  29.       ForeColor       =   &H00FF0000&
  30.       Height          =   375
  31.       Left            =   240
  32.       Percent         =   0
  33.       TextBackColor   =   &H00FFFFFF&
  34.       TextForeColor   =   &H00000000&
  35.       Top             =   120
  36.       Width           =   3015
  37.    End
  38.    Begin HScrollBar HScroll1 
  39.       Height          =   255
  40.       Left            =   240
  41.       Max             =   100
  42.       TabIndex        =   2
  43.       Top             =   1080
  44.       Width           =   3015
  45.    End
  46.    Begin CommandButton Command2 
  47.       Caption         =   "Down"
  48.       Height          =   375
  49.       Left            =   1800
  50.       TabIndex        =   1
  51.       Top             =   600
  52.       Width           =   1455
  53.    End
  54.    Begin CommandButton Command1 
  55.       Caption         =   "Up"
  56.       Height          =   375
  57.       Left            =   240
  58.       TabIndex        =   0
  59.       Top             =   600
  60.       Width           =   1455
  61.    End
  62. Sub Command1_Click ()
  63.     Dim I, J As Integer
  64.     J = HScroll1.Value
  65.     For I = J To 100
  66.         DoEvents
  67.         Percent1.Percent = I
  68.         HScroll1.Value = I
  69.     Next I
  70. End Sub
  71. Sub Command2_Click ()
  72.     Dim I, J As Integer
  73.     J = HScroll1.Value
  74.     For I = J To 0 Step -1
  75.         DoEvents
  76.         Percent1.Percent = I
  77.         HScroll1.Value = I
  78.     Next I
  79. End Sub
  80. Sub HScroll1_Change ()
  81.     Percent1.Percent = HScroll1.Value
  82. End Sub
  83. Sub HScroll1_Scroll ()
  84.     Percent1.Percent = HScroll1.Value
  85. End Sub
  86.