home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 7_2009-2012.ISO / data / zips / Xp_style_S21706612172009.psc / XPSlider / Form1.frm next >
Text File  |  2009-12-15  |  3KB  |  111 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    BackColor       =   &H00008000&
  4.    Caption         =   "Slider"
  5.    ClientHeight    =   2460
  6.    ClientLeft      =   60
  7.    ClientTop       =   450
  8.    ClientWidth     =   4485
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   2460
  11.    ScaleWidth      =   4485
  12.    StartUpPosition =   3  'Windows Default
  13.    Begin Project1.XPSlider XPSlider5 
  14.       Height          =   300
  15.       Left            =   390
  16.       TabIndex        =   4
  17.       Top             =   1965
  18.       Width           =   1995
  19.       _ExtentX        =   3519
  20.       _ExtentY        =   529
  21.       Value           =   0
  22.       SliderWid_Height=   400
  23.       BarBaseCol      =   0
  24.       BarMidCol       =   16777214
  25.       ValueVis        =   0   'False
  26.       ValueCol        =   8388736
  27.       ArrowStyle      =   0
  28.    End
  29.    Begin Project1.XPSlider XPSlider4 
  30.       Height          =   300
  31.       Left            =   390
  32.       TabIndex        =   3
  33.       Top             =   1590
  34.       Width           =   2730
  35.       _ExtentX        =   4815
  36.       _ExtentY        =   529
  37.       Min             =   -100
  38.       Value           =   0
  39.       SliderWid_Height=   400
  40.       BarBaseCol      =   16576
  41.       BarMidCol       =   16777214
  42.       ValueVis        =   0   'False
  43.       ButtonStyle     =   1
  44.    End
  45.    Begin Project1.XPSlider XPSlider3 
  46.       Height          =   300
  47.       Left            =   390
  48.       TabIndex        =   2
  49.       Top             =   1215
  50.       Width           =   3345
  51.       _ExtentX        =   5900
  52.       _ExtentY        =   529
  53.       Max             =   1000
  54.       Value           =   0
  55.       SliderWid_Height=   400
  56.       BarMidCol       =   16777214
  57.    End
  58.    Begin Project1.XPSlider XPSlider2 
  59.       Height          =   300
  60.       Left            =   390
  61.       TabIndex        =   1
  62.       Top             =   585
  63.       Width           =   2475
  64.       _ExtentX        =   4366
  65.       _ExtentY        =   529
  66.       Value           =   0
  67.       SliderWid_Height=   400
  68.       BarBaseCol      =   49152
  69.       BarMidCol       =   16777214
  70.       ValueCol        =   255
  71.    End
  72.    Begin Project1.XPSlider XPSlider1 
  73.       Height          =   300
  74.       Left            =   390
  75.       TabIndex        =   0
  76.       Top             =   255
  77.       Width           =   3225
  78.       _ExtentX        =   5689
  79.       _ExtentY        =   529
  80.       Max             =   255
  81.       Value           =   0
  82.       SliderWid_Height=   400
  83.       BarBaseCol      =   255
  84.       BarMidCol       =   16777214
  85.       ButtonStyle     =   1
  86.    End
  87.    Begin VB.Label Label1 
  88.       Alignment       =   2  'Center
  89.       Appearance      =   0  'Flat
  90.       BackColor       =   &H80000005&
  91.       BorderStyle     =   1  'Fixed Single
  92.       Caption         =   "0"
  93.       ForeColor       =   &H80000008&
  94.       Height          =   225
  95.       Left            =   3285
  96.       TabIndex        =   5
  97.       Top             =   1620
  98.       Width           =   480
  99.    End
  100. End
  101. Attribute VB_Name = "Form1"
  102. Attribute VB_GlobalNameSpace = False
  103. Attribute VB_Creatable = False
  104. Attribute VB_PredeclaredId = True
  105. Attribute VB_Exposed = False
  106. Option Explicit
  107.  
  108. Private Sub XPSlider4_Changed()
  109. Label1.Caption = XPSlider4.Value
  110. End Sub
  111.