home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / dcsmixer / form1.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-09-24  |  2.6 KB  |  87 lines
  1. VERSION 5.00
  2. Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.2#0"; "COMCTL32.OCX"
  3. Object = "{8C8FB7D5-539F-11D2-AC01-004F4900FCA7}#1.0#0"; "DCSMIXER.OCX"
  4. Begin VB.Form Form1 
  5.    Caption         =   "Form1"
  6.    ClientHeight    =   3615
  7.    ClientLeft      =   2190
  8.    ClientTop       =   1515
  9.    ClientWidth     =   1770
  10.    LinkTopic       =   "Form1"
  11.    PaletteMode     =   1  'UseZOrder
  12.    ScaleHeight     =   3615
  13.    ScaleWidth      =   1770
  14.    Begin ActiveXMixer.dcsMixer dcsMixer1 
  15.       Left            =   855
  16.       Top             =   2145
  17.       _ExtentX        =   1323
  18.       _ExtentY        =   1217
  19.    End
  20.    Begin VB.CheckBox Check1 
  21.       Caption         =   "Mute"
  22.       Height          =   375
  23.       Left            =   840
  24.       TabIndex        =   1
  25.       Top             =   1320
  26.       Width           =   735
  27.    End
  28.    Begin ComctlLib.Slider Slider1 
  29.       Height          =   3255
  30.       Left            =   120
  31.       TabIndex        =   0
  32.       Top             =   240
  33.       Width           =   615
  34.       _ExtentX        =   900
  35.       _ExtentY        =   5741
  36.       _Version        =   327682
  37.       Orientation     =   1
  38.       LargeChange     =   10
  39.       SmallChange     =   2
  40.       TickStyle       =   2
  41.       TickFrequency   =   10
  42.    End
  43.    Begin VB.Label Label2 
  44.       Caption         =   "Label2"
  45.       Height          =   255
  46.       Left            =   720
  47.       TabIndex        =   3
  48.       Top             =   360
  49.       Width           =   615
  50.    End
  51.    Begin VB.Label Label1 
  52.       Caption         =   "Label1"
  53.       Height          =   255
  54.       Left            =   720
  55.       TabIndex        =   2
  56.       Top             =   3240
  57.       Width           =   615
  58.    End
  59. Attribute VB_Name = "Form1"
  60. Attribute VB_GlobalNameSpace = False
  61. Attribute VB_Creatable = False
  62. Attribute VB_PredeclaredId = True
  63. Attribute VB_Exposed = False
  64. Option Explicit
  65. Dim SlideFactor As Long
  66. Private Sub Check1_Click()
  67.     dcsMixer1.Mute = Check1.Value
  68. End Sub
  69. Private Sub dcsMixer1_MixerChanged()
  70.     Check1.Value = Abs(dcsMixer1.Mute)
  71.     UpdateSlider
  72. End Sub
  73. Private Sub Form_Load()
  74.     Label1.Caption = dcsMixer1.Min
  75.     Label2.Caption = dcsMixer1.Max
  76.     Slider1.Max = 100
  77.     SlideFactor = dcsMixer1.Max \ 100       ' divide slider
  78.     Check1.Value = Abs(dcsMixer1.Mute)
  79.     UpdateSlider
  80. End Sub
  81. Private Sub Slider1_Scroll()
  82.     dcsMixer1.Volume = (Slider1.Max - Slider1.Value) * SlideFactor
  83. End Sub
  84. Private Sub UpdateSlider()
  85.     If dcsMixer1.Max Then Slider1.Value = Slider1.Max - (dcsMixer1.Volume \ SlideFactor)
  86. End Sub
  87.