home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 41 / IOPROG_41.ISO / soft / delphi / NCTDesignBox2.exe / Main / frmVolV2.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2000-09-29  |  6.2 KB  |  199 lines
  1. VERSION 5.00
  2. Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
  3. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  4. Object = "{489F6F86-FA5F-46C1-9154-0BDFE98E2B02}#1.0#0"; "NCTDesignBox.ocx"
  5. Begin VB.Form frmVolV2 
  6.    BorderStyle     =   1  'Fixed Single
  7.    Caption         =   "Test VolumeButtonVer02"
  8.    ClientHeight    =   2625
  9.    ClientLeft      =   45
  10.    ClientTop       =   330
  11.    ClientWidth     =   4800
  12.    Icon            =   "frmVolV2.frx":0000
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   2625
  17.    ScaleWidth      =   4800
  18.    StartUpPosition =   2  'CenterScreen
  19.    Begin NCTDesignBox.VolumeButtonVer02 VolumeButtonVer021 
  20.       Height          =   315
  21.       Left            =   240
  22.       TabIndex        =   14
  23.       Top             =   240
  24.       Width           =   750
  25.       _ExtentX        =   1323
  26.       _ExtentY        =   556
  27.    End
  28.    Begin MSComctlLib.Slider Slider1 
  29.       Height          =   630
  30.       Left            =   60
  31.       TabIndex        =   13
  32.       Top             =   1860
  33.       Width           =   1395
  34.       _ExtentX        =   2461
  35.       _ExtentY        =   1111
  36.       _Version        =   393216
  37.       Max             =   100
  38.       TickStyle       =   2
  39.       TickFrequency   =   10
  40.    End
  41.    Begin VB.TextBox Text4 
  42.       Height          =   345
  43.       Left            =   660
  44.       TabIndex        =   10
  45.       Text            =   "4"
  46.       Top             =   1350
  47.       Width           =   465
  48.    End
  49.    Begin VB.Frame Frame1 
  50.       Caption         =   "Style"
  51.       Height          =   1455
  52.       Left            =   1530
  53.       TabIndex        =   0
  54.       Top             =   1050
  55.       Width           =   3195
  56.       Begin VB.OptionButton Option8 
  57.          Caption         =   "vbsMirrorTop"
  58.          Height          =   285
  59.          Left            =   1590
  60.          TabIndex        =   8
  61.          Top             =   1080
  62.          Width           =   1500
  63.       End
  64.       Begin VB.OptionButton Option7 
  65.          Caption         =   "vbsTop"
  66.          Height          =   285
  67.          Left            =   1590
  68.          TabIndex        =   7
  69.          Top             =   795
  70.          Width           =   1500
  71.       End
  72.       Begin VB.OptionButton Option6 
  73.          Caption         =   "vbsMirrorDown"
  74.          Height          =   285
  75.          Left            =   1590
  76.          TabIndex        =   6
  77.          Top             =   510
  78.          Width           =   1500
  79.       End
  80.       Begin VB.OptionButton Option5 
  81.          Caption         =   "vbsDown"
  82.          Height          =   285
  83.          Left            =   1590
  84.          TabIndex        =   5
  85.          Top             =   225
  86.          Width           =   1500
  87.       End
  88.       Begin VB.OptionButton Option4 
  89.          Caption         =   "vbsMirrorLeft"
  90.          Height          =   285
  91.          Left            =   120
  92.          TabIndex        =   4
  93.          Top             =   1101
  94.          Width           =   1500
  95.       End
  96.       Begin VB.OptionButton Option3 
  97.          Caption         =   "vbsLeft"
  98.          Height          =   285
  99.          Left            =   120
  100.          TabIndex        =   3
  101.          Top             =   824
  102.          Width           =   1500
  103.       End
  104.       Begin VB.OptionButton Option2 
  105.          Caption         =   "vbsMirrorRight"
  106.          Height          =   285
  107.          Left            =   120
  108.          TabIndex        =   2
  109.          Top             =   547
  110.          Width           =   1500
  111.       End
  112.       Begin VB.OptionButton Option1 
  113.          Caption         =   "vbsRight"
  114.          Height          =   315
  115.          Left            =   120
  116.          TabIndex        =   1
  117.          Top             =   240
  118.          Value           =   -1  'True
  119.          Width           =   1500
  120.       End
  121.    End
  122.    Begin MSComCtl2.UpDown UpDown4 
  123.       Height          =   345
  124.       Left            =   1125
  125.       TabIndex        =   11
  126.       Top             =   1350
  127.       Width           =   240
  128.       _ExtentX        =   423
  129.       _ExtentY        =   609
  130.       _Version        =   393216
  131.       Value           =   4
  132.       BuddyControl    =   "Text4"
  133.       BuddyDispid     =   196609
  134.       OrigLeft        =   3810
  135.       OrigTop         =   1110
  136.       OrigRight       =   4050
  137.       OrigBottom      =   1515
  138.       Max             =   100
  139.       SyncBuddy       =   -1  'True
  140.       BuddyProperty   =   65547
  141.       Enabled         =   -1  'True
  142.    End
  143.    Begin VB.Label Label4 
  144.       Alignment       =   1  'Right Justify
  145.       Caption         =   "Speed"
  146.       Height          =   285
  147.       Left            =   -90
  148.       TabIndex        =   12
  149.       Top             =   1380
  150.       Width           =   645
  151.    End
  152.    Begin VB.Label Label5 
  153.       Alignment       =   2  'Center
  154.       Caption         =   "ValueChange Event"
  155.       Height          =   660
  156.       Left            =   1650
  157.       TabIndex        =   9
  158.       Top             =   240
  159.       Width           =   3045
  160.    End
  161. Attribute VB_Name = "frmVolV2"
  162. Attribute VB_GlobalNameSpace = False
  163. Attribute VB_Creatable = False
  164. Attribute VB_PredeclaredId = True
  165. Attribute VB_Exposed = False
  166. Private Sub Option1_Click()
  167.     VolumeButtonVer021.Style = vbsRight
  168. End Sub
  169. Private Sub Option2_Click()
  170.     VolumeButtonVer021.Style = vbsMirrorRight
  171. End Sub
  172. Private Sub Option3_Click()
  173.     VolumeButtonVer021.Style = vbsLeft
  174. End Sub
  175. Private Sub Option4_Click()
  176.     VolumeButtonVer021.Style = vbsMirrorLeft
  177. End Sub
  178. Private Sub Option5_Click()
  179.     VolumeButtonVer021.Style = vbsDown
  180. End Sub
  181. Private Sub Option6_Click()
  182.     VolumeButtonVer021.Style = vbsMirrorDown
  183. End Sub
  184. Private Sub Option7_Click()
  185.     VolumeButtonVer021.Style = vbsTop
  186. End Sub
  187. Private Sub Option8_Click()
  188.     VolumeButtonVer021.Style = vbsMirrorTop
  189. End Sub
  190. Private Sub Slider1_Change()
  191.     VolumeButtonVer021.Value = Slider1.Value
  192. End Sub
  193. Private Sub UpDown4_Change()
  194.     VolumeButtonVer021.Speed = UpDown4.Value
  195. End Sub
  196. Private Sub VolumeButtonVer021_ValueChange(Value As Long)
  197.     Label5.Caption = "ValueChange Event (Val= " & Value & ")"
  198. End Sub
  199.