home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / tool / design / mbarvb / form1.frm < prev    next >
Text File  |  1995-02-26  |  4KB  |  126 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "Meter Bar Demo"
  5.    ClientHeight    =   3735
  6.    ClientLeft      =   1095
  7.    ClientTop       =   1485
  8.    ClientWidth     =   3930
  9.    Height          =   4140
  10.    Left            =   1035
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   3735
  13.    ScaleWidth      =   3930
  14.    Top             =   1140
  15.    Width           =   4050
  16.    Begin MeterBar MeterBar4 
  17.       BackColor       =   &H00FFFFFF&
  18.       BorderStyle     =   2  'Three D
  19.       FontBold        =   -1  'True
  20.       FontItalic      =   -1  'True
  21.       FontName        =   "MS Sans Serif"
  22.       FontSize        =   12
  23.       FontStrikethru  =   0   'False
  24.       FontUnderline   =   0   'False
  25.       ForeColor       =   &H00000080&
  26.       Height          =   375
  27.       LEDSpace        =   0
  28.       LEDThick        =   0
  29.       Left            =   1260
  30.       Margin          =   2
  31.       Orientation     =   0  'Horizontal
  32.       Position        =   15
  33.       Range           =   150
  34.       Top             =   1740
  35.       Width           =   2595
  36.    End
  37.    Begin MeterBar MeterBar3 
  38.       BackColor       =   &H00C0C0C0&
  39.       BorderStyle     =   2  'Three D
  40.       ForeColor       =   &H00FF0000&
  41.       Height          =   195
  42.       LEDSpace        =   2
  43.       LEDThick        =   90
  44.       Left            =   1260
  45.       Margin          =   2
  46.       Orientation     =   0  'Horizontal
  47.       Position        =   35
  48.       Range           =   50
  49.       Top             =   1380
  50.       Width           =   2595
  51.    End
  52.    Begin MeterBar MeterBar2 
  53.       BackColor       =   &H00C0C0C0&
  54.       BorderStyle     =   1  'Fixed Single
  55.       FontBold        =   0   'False
  56.       FontItalic      =   0   'False
  57.       FontName        =   "MS Serif"
  58.       FontSize        =   8.25
  59.       FontStrikethru  =   0   'False
  60.       FontUnderline   =   0   'False
  61.       ForeColor       =   &H00000000&
  62.       Height          =   2175
  63.       LEDSpace        =   0
  64.       LEDThick        =   0
  65.       Left            =   540
  66.       Margin          =   0
  67.       Orientation     =   1  'Vertical
  68.       Position        =   1
  69.       Range           =   50
  70.       Top             =   1380
  71.       Width           =   555
  72.    End
  73.    Begin MeterBar MeterBar1 
  74.       BackColor       =   &H00C0C0C0&
  75.       BorderStyle     =   0  'None
  76.       FontBold        =   -1  'True
  77.       FontItalic      =   0   'False
  78.       FontName        =   "MS Sans Serif"
  79.       FontSize        =   8.25
  80.       FontStrikethru  =   0   'False
  81.       FontUnderline   =   -1  'True
  82.       ForeColor       =   &H00800080&
  83.       Height          =   2175
  84.       LEDSpace        =   5
  85.       LEDThick        =   75
  86.       Left            =   120
  87.       Margin          =   3
  88.       Orientation     =   1  'Vertical
  89.       Position        =   50
  90.       Range           =   200
  91.       Top             =   1380
  92.       Width           =   255
  93.    End
  94.    Begin Timer Timer1 
  95.       Interval        =   150
  96.       Left            =   3420
  97.       Top             =   3180
  98.    End
  99.    Begin Label Label2 
  100.       BackColor       =   &H00C0C0C0&
  101.       Caption         =   "Meter bars can also have three different border styles:  none, fixed single and 3d!"
  102.       Height          =   495
  103.       Left            =   120
  104.       TabIndex        =   1
  105.       Top             =   720
  106.       Width           =   3675
  107.    End
  108.    Begin Label Label1 
  109.       BackColor       =   &H00C0C0C0&
  110.       Caption         =   "The bar can be horizontal or vertical.  It can also display an LED style bar."
  111.       Height          =   495
  112.       Left            =   120
  113.       TabIndex        =   0
  114.       Top             =   120
  115.       Width           =   3675
  116.    End
  117. End
  118.  
  119. Sub Timer1_Timer ()
  120.     If MeterBar1.Position < MeterBar1.Range Then MeterBar1.Position = MeterBar1.Position + 1 Else MeterBar1.Position = 0
  121.     If MeterBar2.Position < MeterBar2.Range Then MeterBar2.Position = MeterBar2.Position + 1 Else MeterBar2.Position = 0
  122.     If MeterBar3.Position < MeterBar3.Range Then MeterBar3.Position = MeterBar3.Position + 1 Else MeterBar3.Position = 0
  123.     If MeterBar4.Position < MeterBar4.Range Then MeterBar4.Position = MeterBar4.Position + 1 Else MeterBar4.Position = 0
  124. End Sub
  125.  
  126.