home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 41 / IOPROG_41.ISO / soft / delphi / NCTDesignBox2.exe / Main / frmPlayV2.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2000-09-29  |  7.3 KB  |  227 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 frmVolV1 
  6.    BorderStyle     =   1  'Fixed Single
  7.    Caption         =   "Test VolumeButtonVer01"
  8.    ClientHeight    =   3090
  9.    ClientLeft      =   45
  10.    ClientTop       =   330
  11.    ClientWidth     =   5700
  12.    Icon            =   "frmPlayV2.frx":0000
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   3090
  16.    ScaleWidth      =   5700
  17.    StartUpPosition =   2  'CenterScreen
  18.    Begin NCTDesignBox.VolumeButtonVer01 VolumeButtonVer011 
  19.       Height          =   1815
  20.       Left            =   150
  21.       TabIndex        =   15
  22.       Top             =   150
  23.       Width           =   1815
  24.       _ExtentX        =   3201
  25.       _ExtentY        =   3201
  26.       IndColor        =   2
  27.       BtnBorder       =   1
  28.    End
  29.    Begin VB.TextBox Text4 
  30.       Height          =   345
  31.       Left            =   4860
  32.       TabIndex        =   13
  33.       Text            =   "1"
  34.       Top             =   2460
  35.       Width           =   465
  36.    End
  37.    Begin MSComctlLib.ProgressBar ProgressBar1 
  38.       Height          =   255
  39.       Left            =   2160
  40.       TabIndex        =   11
  41.       Top             =   2130
  42.       Width           =   3375
  43.       _ExtentX        =   5953
  44.       _ExtentY        =   450
  45.       _Version        =   393216
  46.       Appearance      =   1
  47.       Min             =   1e-4
  48.       Max             =   1001
  49.    End
  50.    Begin VB.TextBox Text1 
  51.       Alignment       =   2  'Center
  52.       Height          =   285
  53.       Left            =   3300
  54.       TabIndex        =   9
  55.       Text            =   "2"
  56.       Top             =   2490
  57.       Width           =   480
  58.    End
  59.    Begin MSComCtl2.UpDown UpDown1 
  60.       Height          =   285
  61.       Left            =   3750
  62.       TabIndex        =   8
  63.       Top             =   2490
  64.       Width           =   195
  65.       _ExtentX        =   423
  66.       _ExtentY        =   503
  67.       _Version        =   393216
  68.       Value           =   2
  69.       BuddyControl    =   "Text1"
  70.       BuddyDispid     =   196610
  71.       OrigLeft        =   1200
  72.       OrigTop         =   3150
  73.       OrigRight       =   1395
  74.       OrigBottom      =   3645
  75.       Max             =   12
  76.       Min             =   1
  77.       SyncBuddy       =   -1  'True
  78.       BuddyProperty   =   65547
  79.       Enabled         =   -1  'True
  80.    End
  81.    Begin VB.Frame Frame2 
  82.       Caption         =   "BtnBorder"
  83.       Height          =   945
  84.       Left            =   150
  85.       TabIndex        =   5
  86.       Top             =   2010
  87.       Width           =   1815
  88.       Begin VB.OptionButton Option1 
  89.          Caption         =   "None"
  90.          Height          =   225
  91.          Left            =   210
  92.          TabIndex        =   7
  93.          Top             =   270
  94.          Width           =   1245
  95.       End
  96.       Begin VB.OptionButton Option2 
  97.          Caption         =   "Single"
  98.          Height          =   285
  99.          Left            =   210
  100.          TabIndex        =   6
  101.          Top             =   540
  102.          Value           =   -1  'True
  103.          Width           =   1155
  104.       End
  105.    End
  106.    Begin MSComCtl2.UpDown UpDown4 
  107.       Height          =   345
  108.       Left            =   5310
  109.       TabIndex        =   14
  110.       Top             =   2460
  111.       Width           =   240
  112.       _ExtentX        =   423
  113.       _ExtentY        =   609
  114.       _Version        =   393216
  115.       Value           =   1
  116.       BuddyControl    =   "Text4"
  117.       BuddyDispid     =   196609
  118.       OrigLeft        =   3810
  119.       OrigTop         =   1110
  120.       OrigRight       =   4050
  121.       OrigBottom      =   1515
  122.       Max             =   100
  123.       SyncBuddy       =   -1  'True
  124.       BuddyProperty   =   65547
  125.       Enabled         =   -1  'True
  126.    End
  127.    Begin VB.Label Label7 
  128.       Alignment       =   1  'Right Justify
  129.       Caption         =   "Speed"
  130.       Height          =   285
  131.       Left            =   4110
  132.       TabIndex        =   12
  133.       Top             =   2490
  134.       Width           =   645
  135.    End
  136.    Begin VB.Label Label6 
  137.       Caption         =   "IndColor"
  138.       Height          =   255
  139.       Left            =   2160
  140.       TabIndex        =   10
  141.       Top             =   2520
  142.       Width           =   885
  143.    End
  144.    Begin VB.Label Label5 
  145.       Alignment       =   2  'Center
  146.       Caption         =   "ValueChange Event"
  147.       Height          =   570
  148.       Left            =   2190
  149.       TabIndex        =   4
  150.       Top             =   1440
  151.       Width           =   3375
  152.    End
  153.    Begin VB.Label Label4 
  154.       Alignment       =   2  'Center
  155.       Caption         =   "BtnMouseMove Event"
  156.       Height          =   330
  157.       Left            =   2190
  158.       TabIndex        =   3
  159.       Top             =   1110
  160.       Width           =   3375
  161.    End
  162.    Begin VB.Label Label3 
  163.       Alignment       =   2  'Center
  164.       Caption         =   "BtnMouseUp Event"
  165.       Height          =   330
  166.       Left            =   2190
  167.       TabIndex        =   2
  168.       Top             =   780
  169.       Width           =   3375
  170.    End
  171.    Begin VB.Label Label2 
  172.       Alignment       =   2  'Center
  173.       Caption         =   "BtnMouseDown Event"
  174.       Height          =   330
  175.       Left            =   2190
  176.       TabIndex        =   1
  177.       Top             =   450
  178.       Width           =   3375
  179.    End
  180.    Begin VB.Label Label1 
  181.       Alignment       =   2  'Center
  182.       Caption         =   "BtnClick Event"
  183.       Height          =   330
  184.       Left            =   2190
  185.       TabIndex        =   0
  186.       Top             =   120
  187.       Width           =   3375
  188.    End
  189. Attribute VB_Name = "frmVolV1"
  190. Attribute VB_GlobalNameSpace = False
  191. Attribute VB_Creatable = False
  192. Attribute VB_PredeclaredId = True
  193. Attribute VB_Exposed = False
  194. Option Explicit
  195. Private Sub UpDown1_Change()
  196.     VolumeButtonVer011.IndColor = UpDown1.Value
  197. End Sub
  198. Private Sub UpDown4_Change()
  199.     VolumeButtonVer011.Speed = UpDown4.Value
  200. End Sub
  201. Private Sub VolumeButtonVer011_MouseClick(Btn As Boolean)
  202.     Label1.Caption = "BtnClick Event (InBtn=" & Btn & ")"
  203. End Sub
  204. Private Sub VolumeButtonVer011_MouseDown(Button As Integer, Btn As Boolean)
  205.     Label2.Caption = "BtnMoseDown Event (MB=" & Button & ", InBtn=" & Btn & ")"
  206. End Sub
  207. Private Sub VolumeButtonVer011_MouseMove(Button As Integer, Btn As Boolean)
  208.     Label4.Caption = "BtnMoseMove Event (MB=" & Button & ", InBtn=" & Btn & ")"
  209. End Sub
  210. Private Sub VolumeButtonVer011_MouseUp(Button As Integer, Btn As Boolean)
  211.     Label3.Caption = "BtnMoseUp Event (MB=" & Button & ", InBtn=" & Btn & ")"
  212. End Sub
  213. Private Sub VolumeButtonVer011_ValueChange(Value As Long)
  214.     Label5.Caption = "VolueChange Event (Val=" & VolumeButtonVer011.Value & ")"
  215.     ProgressBar1.Value = VolumeButtonVer011.Value + 0.0001
  216. End Sub
  217. Private Sub Option1_Click()
  218.     VolumeButtonVer011.BtnBorder = bbNone
  219.     VolumeButtonVer011.Top = 300
  220.     VolumeButtonVer011.Left = 300
  221. End Sub
  222. Private Sub Option2_Click()
  223.     VolumeButtonVer011.BtnBorder = bbSingle
  224.     VolumeButtonVer011.Top = 150
  225.     VolumeButtonVer011.Left = 150
  226. End Sub
  227.