home *** CD-ROM | disk | FTP | other *** search
/ Media Share 13 / mediashare_13.zip / mediashare_13 / ZIPPED / PROGRAM / PERCNT24.ZIP / SAMPLE.ZIP / PERCNTS.FRM next >
Text File  |  1993-12-17  |  2KB  |  96 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. End
  63.  
  64. Sub Command1_Click ()
  65.     Dim I, J As Integer
  66.  
  67.     J = HScroll1.Value
  68.  
  69.     For I = J To 100
  70.         DoEvents
  71.         Percent1.Percent = I
  72.         HScroll1.Value = I
  73.     Next I
  74. End Sub
  75.  
  76. Sub Command2_Click ()
  77.     Dim I, J As Integer
  78.  
  79.     J = HScroll1.Value
  80.  
  81.     For I = J To 0 Step -1
  82.         DoEvents
  83.         Percent1.Percent = I
  84.         HScroll1.Value = I
  85.     Next I
  86. End Sub
  87.  
  88. Sub HScroll1_Change ()
  89.     Percent1.Percent = HScroll1.Value
  90. End Sub
  91.  
  92. Sub HScroll1_Scroll ()
  93.     Percent1.Percent = HScroll1.Value
  94. End Sub
  95.  
  96.