home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 41 / IOPROG_41.ISO / soft / delphi / NCTDesignBox2.exe / Main / frmMain.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2000-09-29  |  3.7 KB  |  136 lines
  1. VERSION 5.00
  2. Begin VB.Form frmMain 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Test NCTAudioControls"
  5.    ClientHeight    =   4665
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   3240
  9.    Icon            =   "frmMain.frx":0000
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   4665
  14.    ScaleWidth      =   3240
  15.    StartUpPosition =   2  'CenterScreen
  16.    Begin VB.CommandButton Command9 
  17.       Caption         =   "CMU"
  18.       Height          =   435
  19.       Left            =   150
  20.       TabIndex        =   8
  21.       Top             =   3604
  22.       Width           =   2985
  23.    End
  24.    Begin VB.CommandButton Command8 
  25.       Caption         =   "VolumeButtonVer02"
  26.       Height          =   435
  27.       Left            =   150
  28.       TabIndex        =   7
  29.       Top             =   3102
  30.       Width           =   2985
  31.    End
  32.    Begin VB.CommandButton Command7 
  33.       Caption         =   "Close "
  34.       Height          =   405
  35.       Left            =   150
  36.       TabIndex        =   6
  37.       Top             =   4110
  38.       Width           =   2985
  39.    End
  40.    Begin VB.CommandButton Command6 
  41.       Caption         =   "Slider Ver02"
  42.       Height          =   435
  43.       Left            =   150
  44.       TabIndex        =   5
  45.       Top             =   2128
  46.       Width           =   2985
  47.    End
  48.    Begin VB.CommandButton Command5 
  49.       Caption         =   "Slider Ver01"
  50.       Height          =   405
  51.       Left            =   150
  52.       TabIndex        =   4
  53.       Top             =   2630
  54.       Width           =   2985
  55.    End
  56.    Begin VB.CommandButton Command4 
  57.       Caption         =   "StepButtonsVer01"
  58.       Height          =   435
  59.       Left            =   150
  60.       TabIndex        =   3
  61.       Top             =   1154
  62.       Width           =   2985
  63.    End
  64.    Begin VB.CommandButton Command3 
  65.       Caption         =   "AmpBar"
  66.       Height          =   405
  67.       Left            =   150
  68.       TabIndex        =   2
  69.       Top             =   1656
  70.       Width           =   2985
  71.    End
  72.    Begin VB.CommandButton Command2 
  73.       Caption         =   "VolumeButtonVer01"
  74.       Height          =   405
  75.       Left            =   150
  76.       TabIndex        =   1
  77.       Top             =   682
  78.       Width           =   2985
  79.    End
  80.    Begin VB.CommandButton Command1 
  81.       Caption         =   "PlayButtonsVer01"
  82.       Height          =   435
  83.       Left            =   150
  84.       TabIndex        =   0
  85.       Top             =   180
  86.       Width           =   2985
  87.    End
  88. Attribute VB_Name = "frmMain"
  89. Attribute VB_GlobalNameSpace = False
  90. Attribute VB_Creatable = False
  91. Attribute VB_PredeclaredId = True
  92. Attribute VB_Exposed = False
  93. Private Sub Command1_Click()
  94.     Me.Visible = False
  95.     frmPlayV1.Show 0, Me
  96.     Me.Visible = True
  97. End Sub
  98. Private Sub Command2_Click()
  99.     Me.Visible = False
  100.     frmVolV1.Show 0, Me
  101.     Me.Visible = True
  102. End Sub
  103. Private Sub Command3_Click()
  104.     Me.Visible = False
  105.     frmAmpBar.Show 0, Me
  106.     Me.Visible = True
  107. End Sub
  108. Private Sub Command4_Click()
  109.     Me.Visible = False
  110.     frmStepV1.Show 0, Me
  111.     Me.Visible = True
  112. End Sub
  113. Private Sub Command5_Click()
  114.     Me.Visible = False
  115.     frmHorSlider.Show 0, Me
  116.     Me.Visible = True
  117. End Sub
  118. Private Sub Command6_Click()
  119.     Me.Visible = False
  120.     frmVertSlider.Show 0, Me
  121.     Me.Visible = True
  122. End Sub
  123. Private Sub Command7_Click()
  124.     Unload Me
  125. End Sub
  126. Private Sub Command8_Click()
  127.     Me.Visible = False
  128.     frmVolV2.Show 0, Me
  129.     Me.Visible = True
  130. End Sub
  131. Private Sub Command9_Click()
  132.     Me.Visible = False
  133.     frmCMU.Show 0, Me
  134.     Me.Visible = True
  135. End Sub
  136.