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_Firstversion / Form1.frm next >
Text File  |  2009-12-14  |  3KB  |  108 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    BackColor       =   &H00C0FFC0&
  4.    Caption         =   "Slider"
  5.    ClientHeight    =   2685
  6.    ClientLeft      =   60
  7.    ClientTop       =   450
  8.    ClientWidth     =   4485
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   2685
  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.       BaseColor       =   12583104
  24.       MidColor        =   16777214
  25.       ValueCol        =   8388736
  26.    End
  27.    Begin Project1.XPSlider XPSlider4 
  28.       Height          =   300
  29.       Left            =   390
  30.       TabIndex        =   3
  31.       Top             =   1590
  32.       Width           =   2730
  33.       _ExtentX        =   4815
  34.       _ExtentY        =   529
  35.       Min             =   -100
  36.       Value           =   0
  37.       SliderWid_Height=   400
  38.       BaseColor       =   14737632
  39.       MidColor        =   4210752
  40.       ValueVis        =   0   'False
  41.       ValueCol        =   16777215
  42.    End
  43.    Begin Project1.XPSlider XPSlider3 
  44.       Height          =   300
  45.       Left            =   390
  46.       TabIndex        =   2
  47.       Top             =   1215
  48.       Width           =   3525
  49.       _ExtentX        =   6218
  50.       _ExtentY        =   529
  51.       Max             =   1000
  52.       Value           =   0
  53.       SliderWid_Height=   400
  54.       MidColor        =   16777214
  55.    End
  56.    Begin Project1.XPSlider XPSlider2 
  57.       Height          =   300
  58.       Left            =   390
  59.       TabIndex        =   1
  60.       Top             =   585
  61.       Width           =   3135
  62.       _ExtentX        =   5530
  63.       _ExtentY        =   529
  64.       Value           =   0
  65.       SliderWid_Height=   400
  66.       BaseColor       =   32768
  67.       MidColor        =   16777214
  68.       ValueCol        =   255
  69.    End
  70.    Begin Project1.XPSlider XPSlider1 
  71.       Height          =   300
  72.       Left            =   390
  73.       TabIndex        =   0
  74.       Top             =   255
  75.       Width           =   3135
  76.       _ExtentX        =   5530
  77.       _ExtentY        =   529
  78.       Max             =   255
  79.       Value           =   0
  80.       SliderWid_Height=   400
  81.       BaseColor       =   255
  82.       MidColor        =   16777214
  83.    End
  84.    Begin VB.Label Label1 
  85.       Alignment       =   2  'Center
  86.       Appearance      =   0  'Flat
  87.       BackColor       =   &H80000005&
  88.       BorderStyle     =   1  'Fixed Single
  89.       Caption         =   "0"
  90.       ForeColor       =   &H80000008&
  91.       Height          =   225
  92.       Left            =   3285
  93.       TabIndex        =   5
  94.       Top             =   1620
  95.       Width           =   480
  96.    End
  97. End
  98. Attribute VB_Name = "Form1"
  99. Attribute VB_GlobalNameSpace = False
  100. Attribute VB_Creatable = False
  101. Attribute VB_PredeclaredId = True
  102. Attribute VB_Exposed = False
  103. Option Explicit
  104.  
  105. Private Sub XPSlider4_Changed()
  106. Label1.Caption = XPSlider4.Value
  107. End Sub
  108.