home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / dynacd / form1.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-10-30  |  27.7 KB  |  817 lines
  1. VERSION 5.00
  2. Object = "{918CCC70-61EE-11D2-8D50-0000B456D8CA}#3.0#0"; "DynaCdPlayerX.ocx"
  3. Begin VB.Form Form1 
  4.    Caption         =   "DynaCd VB5 example"
  5.    ClientHeight    =   5160
  6.    ClientLeft      =   60
  7.    ClientTop       =   345
  8.    ClientWidth     =   7995
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   5160
  11.    ScaleWidth      =   7995
  12.    StartUpPosition =   2  'CenterScreen
  13.    Begin VB.CommandButton Command12 
  14.       Caption         =   "Quit"
  15.       BeginProperty Font 
  16.          Name            =   "MS Sans Serif"
  17.          Size            =   9.75
  18.          Charset         =   0
  19.          Weight          =   700
  20.          Underline       =   0   'False
  21.          Italic          =   0   'False
  22.          Strikethrough   =   0   'False
  23.       EndProperty
  24.       Height          =   510
  25.       Left            =   6420
  26.       TabIndex        =   39
  27.       Top             =   4530
  28.       Width           =   1455
  29.    End
  30.    Begin VB.Frame Frame2 
  31.       Caption         =   "CD data"
  32.       Height          =   4410
  33.       Left            =   2880
  34.       TabIndex        =   16
  35.       Top             =   0
  36.       Width           =   5010
  37.       Begin VB.Label Label20 
  38.          BorderStyle     =   1  'Fixed Single
  39.          Caption         =   "Label20"
  40.          BeginProperty Font 
  41.             Name            =   "MS Sans Serif"
  42.             Size            =   9.75
  43.             Charset         =   0
  44.             Weight          =   700
  45.             Underline       =   0   'False
  46.             Italic          =   0   'False
  47.             Strikethrough   =   0   'False
  48.          EndProperty
  49.          Height          =   345
  50.          Left            =   3360
  51.          TabIndex        =   48
  52.          Top             =   2955
  53.          Width           =   1440
  54.       End
  55.       Begin VB.Label Label19 
  56.          BorderStyle     =   1  'Fixed Single
  57.          Caption         =   "Label19"
  58.          BeginProperty Font 
  59.             Name            =   "MS Sans Serif"
  60.             Size            =   9.75
  61.             Charset         =   0
  62.             Weight          =   700
  63.             Underline       =   0   'False
  64.             Italic          =   0   'False
  65.             Strikethrough   =   0   'False
  66.          EndProperty
  67.          Height          =   345
  68.          Left            =   1845
  69.          TabIndex        =   47
  70.          Top             =   2955
  71.          Width           =   1440
  72.       End
  73.       Begin VB.Label Label1 
  74.          BorderStyle     =   1  'Fixed Single
  75.          Caption         =   "Position Left"
  76.          BeginProperty Font 
  77.             Name            =   "MS Sans Serif"
  78.             Size            =   9.75
  79.             Charset         =   0
  80.             Weight          =   700
  81.             Underline       =   0   'False
  82.             Italic          =   0   'False
  83.             Strikethrough   =   0   'False
  84.          EndProperty
  85.          Height          =   345
  86.          Index           =   12
  87.          Left            =   180
  88.          TabIndex        =   46
  89.          Top             =   2955
  90.          Width           =   1665
  91.       End
  92.       Begin VB.Label Label18 
  93.          BorderStyle     =   1  'Fixed Single
  94.          Caption         =   "Label18"
  95.          BeginProperty Font 
  96.             Name            =   "MS Sans Serif"
  97.             Size            =   9.75
  98.             Charset         =   0
  99.             Weight          =   700
  100.             Underline       =   0   'False
  101.             Italic          =   0   'False
  102.             Strikethrough   =   0   'False
  103.          EndProperty
  104.          Height          =   345
  105.          Left            =   3360
  106.          TabIndex        =   45
  107.          Top             =   2610
  108.          Width           =   1440
  109.       End
  110.       Begin VB.Label Label17 
  111.          BorderStyle     =   1  'Fixed Single
  112.          Caption         =   "Label17"
  113.          BeginProperty Font 
  114.             Name            =   "MS Sans Serif"
  115.             Size            =   9.75
  116.             Charset         =   0
  117.             Weight          =   700
  118.             Underline       =   0   'False
  119.             Italic          =   0   'False
  120.             Strikethrough   =   0   'False
  121.          EndProperty
  122.          Height          =   345
  123.          Left            =   3360
  124.          TabIndex        =   44
  125.          Top             =   2265
  126.          Width           =   1440
  127.       End
  128.       Begin VB.Label Label16 
  129.          BorderStyle     =   1  'Fixed Single
  130.          Caption         =   "Label16"
  131.          BeginProperty Font 
  132.             Name            =   "MS Sans Serif"
  133.             Size            =   9.75
  134.             Charset         =   0
  135.             Weight          =   700
  136.             Underline       =   0   'False
  137.             Italic          =   0   'False
  138.             Strikethrough   =   0   'False
  139.          EndProperty
  140.          Height          =   345
  141.          Left            =   3360
  142.          TabIndex        =   43
  143.          Top             =   1245
  144.          Width           =   1560
  145.       End
  146.       Begin VB.Label Label15 
  147.          BorderStyle     =   1  'Fixed Single
  148.          Caption         =   "Label15"
  149.          BeginProperty Font 
  150.             Name            =   "MS Sans Serif"
  151.             Size            =   9.75
  152.             Charset         =   0
  153.             Weight          =   700
  154.             Underline       =   0   'False
  155.             Italic          =   0   'False
  156.             Strikethrough   =   0   'False
  157.          EndProperty
  158.          Height          =   345
  159.          Left            =   1845
  160.          TabIndex        =   42
  161.          Top             =   4005
  162.          Width           =   1440
  163.       End
  164.       Begin VB.Label Label1 
  165.          BorderStyle     =   1  'Fixed Single
  166.          Caption         =   "Cddb Disc ID"
  167.          BeginProperty Font 
  168.             Name            =   "MS Sans Serif"
  169.             Size            =   9.75
  170.             Charset         =   0
  171.             Weight          =   700
  172.             Underline       =   0   'False
  173.             Italic          =   0   'False
  174.             Strikethrough   =   0   'False
  175.          EndProperty
  176.          Height          =   345
  177.          Index           =   11
  178.          Left            =   180
  179.          TabIndex        =   41
  180.          Top             =   4005
  181.          Width           =   1665
  182.       End
  183.       Begin VB.Label Label1 
  184.          BorderStyle     =   1  'Fixed Single
  185.          Caption         =   "Previous State"
  186.          BeginProperty Font 
  187.             Name            =   "MS Sans Serif"
  188.             Size            =   9.75
  189.             Charset         =   0
  190.             Weight          =   700
  191.             Underline       =   0   'False
  192.             Italic          =   0   'False
  193.             Strikethrough   =   0   'False
  194.          EndProperty
  195.          Height          =   285
  196.          Index           =   10
  197.          Left            =   180
  198.          TabIndex        =   36
  199.          Top             =   600
  200.          Width           =   1665
  201.       End
  202.       Begin VB.Label Label14 
  203.          BorderStyle     =   1  'Fixed Single
  204.          Caption         =   "Label14"
  205.          BeginProperty Font 
  206.             Name            =   "MS Sans Serif"
  207.             Size            =   9.75
  208.             Charset         =   0
  209.             Weight          =   700
  210.             Underline       =   0   'False
  211.             Italic          =   0   'False
  212.             Strikethrough   =   0   'False
  213.          EndProperty
  214.          Height          =   270
  215.          Left            =   1845
  216.          TabIndex        =   35
  217.          Top             =   600
  218.          Width           =   1440
  219.       End
  220.       Begin VB.Label Label1 
  221.          BorderStyle     =   1  'Fixed Single
  222.          Caption         =   "Current State"
  223.          BeginProperty Font 
  224.             Name            =   "MS Sans Serif"
  225.             Size            =   9.75
  226.             Charset         =   0
  227.             Weight          =   700
  228.             Underline       =   0   'False
  229.             Italic          =   0   'False
  230.             Strikethrough   =   0   'False
  231.          EndProperty
  232.          Height          =   345
  233.          Index           =   0
  234.          Left            =   180
  235.          TabIndex        =   34
  236.          Top             =   240
  237.          Width           =   1665
  238.       End
  239.       Begin VB.Label Label2 
  240.          BorderStyle     =   1  'Fixed Single
  241.          Caption         =   "Nb Tracks"
  242.          BeginProperty Font 
  243.             Name            =   "MS Sans Serif"
  244.             Size            =   9.75
  245.             Charset         =   0
  246.             Weight          =   700
  247.             Underline       =   0   'False
  248.             Italic          =   0   'False
  249.             Strikethrough   =   0   'False
  250.          EndProperty
  251.          Height          =   345
  252.          Left            =   180
  253.          TabIndex        =   33
  254.          Top             =   885
  255.          Width           =   1665
  256.       End
  257.       Begin VB.Label Label3 
  258.          BorderStyle     =   1  'Fixed Single
  259.          Caption         =   "Label3"
  260.          BeginProperty Font 
  261.             Name            =   "MS Sans Serif"
  262.             Size            =   9.75
  263.             Charset         =   0
  264.             Weight          =   700
  265.             Underline       =   0   'False
  266.             Italic          =   0   'False
  267.             Strikethrough   =   0   'False
  268.          EndProperty
  269.          Height          =   345
  270.          Left            =   1845
  271.          TabIndex        =   32
  272.          Top             =   240
  273.          Width           =   1440
  274.       End
  275.       Begin VB.Label Label4 
  276.          BorderStyle     =   1  'Fixed Single
  277.          Caption         =   "Label4"
  278.          BeginProperty Font 
  279.             Name            =   "MS Sans Serif"
  280.             Size            =   9.75
  281.             Charset         =   0
  282.             Weight          =   700
  283.             Underline       =   0   'False
  284.             Italic          =   0   'False
  285.             Strikethrough   =   0   'False
  286.          EndProperty
  287.          Height          =   345
  288.          Left            =   1845
  289.          TabIndex        =   31
  290.          Top             =   885
  291.          Width           =   1440
  292.       End
  293.       Begin VB.Label Label1 
  294.          BorderStyle     =   1  'Fixed Single
  295.          Caption         =   "Current Track"
  296.          BeginProperty Font 
  297.             Name            =   "MS Sans Serif"
  298.             Size            =   9.75
  299.             Charset         =   0
  300.             Weight          =   700
  301.             Underline       =   0   'False
  302.             Italic          =   0   'False
  303.             Strikethrough   =   0   'False
  304.          EndProperty
  305.          Height          =   345
  306.          Index           =   2
  307.          Left            =   180
  308.          TabIndex        =   30
  309.          Top             =   1575
  310.          Width           =   1665
  311.       End
  312.       Begin VB.Label Label1 
  313.          BorderStyle     =   1  'Fixed Single
  314.          Caption         =   "Previous Track"
  315.          BeginProperty Font 
  316.             Name            =   "MS Sans Serif"
  317.             Size            =   9.75
  318.             Charset         =   0
  319.             Weight          =   700
  320.             Underline       =   0   'False
  321.             Italic          =   0   'False
  322.             Strikethrough   =   0   'False
  323.          EndProperty
  324.          Height          =   345
  325.          Index           =   3
  326.          Left            =   180
  327.          TabIndex        =   29
  328.          Top             =   1920
  329.          Width           =   1665
  330.       End
  331.       Begin VB.Label Label1 
  332.          BorderStyle     =   1  'Fixed Single
  333.          Caption         =   "Track Length"
  334.          BeginProperty Font 
  335.             Name            =   "MS Sans Serif"
  336.             Size            =   9.75
  337.             Charset         =   0
  338.             Weight          =   700
  339.             Underline       =   0   'False
  340.             Italic          =   0   'False
  341.             Strikethrough   =   0   'False
  342.          EndProperty
  343.          Height          =   345
  344.          Index           =   4
  345.          Left            =   180
  346.          TabIndex        =   28
  347.          Top             =   2265
  348.          Width           =   1665
  349.       End
  350.       Begin VB.Label Label1 
  351.          BorderStyle     =   1  'Fixed Single
  352.          Caption         =   "Start Position"
  353.          BeginProperty Font 
  354.             Name            =   "MS Sans Serif"
  355.             Size            =   9.75
  356.             Charset         =   0
  357.             Weight          =   700
  358.             Underline       =   0   'False
  359.             Italic          =   0   'False
  360.             Strikethrough   =   0   'False
  361.          EndProperty
  362.          Height          =   345
  363.          Index           =   5
  364.          Left            =   180
  365.          TabIndex        =   27
  366.          Top             =   3315
  367.          Width           =   1665
  368.       End
  369.       Begin VB.Label Label1 
  370.          BorderStyle     =   1  'Fixed Single
  371.          Caption         =   "End Position"
  372.          BeginProperty Font 
  373.             Name            =   "MS Sans Serif"
  374.             Size            =   9.75
  375.             Charset         =   0
  376.             Weight          =   700
  377.             Underline       =   0   'False
  378.             Italic          =   0   'False
  379.             Strikethrough   =   0   'False
  380.          EndProperty
  381.          Height          =   345
  382.          Index           =   6
  383.          Left            =   180
  384.          TabIndex        =   26
  385.          Top             =   3660
  386.          Width           =   1665
  387.       End
  388.       Begin VB.Label Label5 
  389.          BorderStyle     =   1  'Fixed Single
  390.          Caption         =   "Label5"
  391.          BeginProperty Font 
  392.             Name            =   "MS Sans Serif"
  393.             Size            =   9.75
  394.             Charset         =   0
  395.             Weight          =   700
  396.             Underline       =   0   'False
  397.             Italic          =   0   'False
  398.             Strikethrough   =   0   'False
  399.          EndProperty
  400.          Height          =   345
  401.          Left            =   1845
  402.          TabIndex        =   25
  403.          Top             =   1575
  404.          Width           =   1440
  405.       End
  406.       Begin VB.Label Label7 
  407.          BorderStyle     =   1  'Fixed Single
  408.          Caption         =   "Label7"
  409.          BeginProperty Font 
  410.             Name            =   "MS Sans Serif"
  411.             Size            =   9.75
  412.             Charset         =   0
  413.             Weight          =   700
  414.             Underline       =   0   'False
  415.             Italic          =   0   'False
  416.             Strikethrough   =   0   'False
  417.          EndProperty
  418.          Height          =   345
  419.          Left            =   1845
  420.          TabIndex        =   24
  421.          Top             =   1920
  422.          Width           =   1440
  423.       End
  424.       Begin VB.Label Label8 
  425.          BorderStyle     =   1  'Fixed Single
  426.          Caption         =   "Label8"
  427.          BeginProperty Font 
  428.             Name            =   "MS Sans Serif"
  429.             Size            =   9.75
  430.             Charset         =   0
  431.             Weight          =   700
  432.             Underline       =   0   'False
  433.             Italic          =   0   'False
  434.             Strikethrough   =   0   'False
  435.          EndProperty
  436.          Height          =   345
  437.          Left            =   1845
  438.          TabIndex        =   23
  439.          Top             =   2265
  440.          Width           =   1440
  441.       End
  442.       Begin VB.Label Label9 
  443.          BorderStyle     =   1  'Fixed Single
  444.          Caption         =   "Label9"
  445.          BeginProperty Font 
  446.             Name            =   "MS Sans Serif"
  447.             Size            =   9.75
  448.             Charset         =   0
  449.             Weight          =   700
  450.             Underline       =   0   'False
  451.             Italic          =   0   'False
  452.             Strikethrough   =   0   'False
  453.          EndProperty
  454.          Height          =   345
  455.          Left            =   1845
  456.          TabIndex        =   22
  457.          Top             =   3315
  458.          Width           =   1440
  459.       End
  460.       Begin VB.Label Label10 
  461.          BorderStyle     =   1  'Fixed Single
  462.          Caption         =   "Label10"
  463.          BeginProperty Font 
  464.             Name            =   "MS Sans Serif"
  465.             Size            =   9.75
  466.             Charset         =   0
  467.             Weight          =   700
  468.             Underline       =   0   'False
  469.             Italic          =   0   'False
  470.             Strikethrough   =   0   'False
  471.          EndProperty
  472.          Height          =   345
  473.          Left            =   1845
  474.          TabIndex        =   21
  475.          Top             =   3660
  476.          Width           =   1440
  477.       End
  478.       Begin VB.Label Label1 
  479.          BorderStyle     =   1  'Fixed Single
  480.          Caption         =   "Total Time"
  481.          BeginProperty Font 
  482.             Name            =   "MS Sans Serif"
  483.             Size            =   9.75
  484.             Charset         =   0
  485.             Weight          =   700
  486.             Underline       =   0   'False
  487.             Italic          =   0   'False
  488.             Strikethrough   =   0   'False
  489.          EndProperty
  490.          Height          =   345
  491.          Index           =   8
  492.          Left            =   180
  493.          TabIndex        =   20
  494.          Top             =   1230
  495.          Width           =   1665
  496.       End
  497.       Begin VB.Label Label12 
  498.          BorderStyle     =   1  'Fixed Single
  499.          Caption         =   "Label12"
  500.          BeginProperty Font 
  501.             Name            =   "MS Sans Serif"
  502.             Size            =   9.75
  503.             Charset         =   0
  504.             Weight          =   700
  505.             Underline       =   0   'False
  506.             Italic          =   0   'False
  507.             Strikethrough   =   0   'False
  508.          EndProperty
  509.          Height          =   345
  510.          Left            =   1845
  511.          TabIndex        =   19
  512.          Top             =   1230
  513.          Width           =   1440
  514.       End
  515.       Begin VB.Label Label1 
  516.          BorderStyle     =   1  'Fixed Single
  517.          Caption         =   "Track Position"
  518.          BeginProperty Font 
  519.             Name            =   "MS Sans Serif"
  520.             Size            =   9.75
  521.             Charset         =   0
  522.             Weight          =   700
  523.             Underline       =   0   'False
  524.             Italic          =   0   'False
  525.             Strikethrough   =   0   'False
  526.          EndProperty
  527.          Height          =   345
  528.          Index           =   9
  529.          Left            =   180
  530.          TabIndex        =   18
  531.          Top             =   2610
  532.          Width           =   1665
  533.       End
  534.       Begin VB.Label Label13 
  535.          BorderStyle     =   1  'Fixed Single
  536.          Caption         =   "Label13"
  537.          BeginProperty Font 
  538.             Name            =   "MS Sans Serif"
  539.             Size            =   9.75
  540.             Charset         =   0
  541.             Weight          =   700
  542.             Underline       =   0   'False
  543.             Italic          =   0   'False
  544.             Strikethrough   =   0   'False
  545.          EndProperty
  546.          Height          =   345
  547.          Left            =   1845
  548.          TabIndex        =   17
  549.          Top             =   2610
  550.          Width           =   1440
  551.       End
  552.    End
  553.    Begin DynaCDPlayerX.DynaCD DynaCD1 
  554.       Height          =   600
  555.       Left            =   480
  556.       Top             =   3360
  557.       Width           =   600
  558.       _ExtentX        =   1058
  559.       _ExtentY        =   1058
  560.    End
  561.    Begin VB.CommandButton Command6 
  562.       Caption         =   "Cls"
  563.       Height          =   555
  564.       Left            =   5970
  565.       TabIndex        =   2
  566.       Top             =   4500
  567.       Width           =   375
  568.    End
  569.    Begin VB.Frame Frame1 
  570.       Caption         =   "CD Command"
  571.       Height          =   4410
  572.       Left            =   60
  573.       TabIndex        =   5
  574.       Top             =   0
  575.       Width           =   2820
  576.       Begin VB.CommandButton Command13 
  577.          Caption         =   "Pause"
  578.          Height          =   405
  579.          Left            =   1410
  580.          TabIndex        =   40
  581.          Top             =   1125
  582.          Width           =   585
  583.       End
  584.       Begin VB.TextBox Text1 
  585.          Height          =   285
  586.          Left            =   150
  587.          TabIndex        =   38
  588.          Text            =   "set cdaudio audio all off"
  589.          Top             =   2940
  590.          Width           =   2460
  591.       End
  592.       Begin VB.CommandButton Command11 
  593.          Caption         =   "Send String Command"
  594.          Height          =   315
  595.          Left            =   150
  596.          TabIndex        =   37
  597.          Top             =   2610
  598.          Width           =   2460
  599.       End
  600.       Begin VB.CommandButton Command1 
  601.          Caption         =   "Init DynaCD"
  602.          Height          =   330
  603.          Left            =   150
  604.          TabIndex        =   15
  605.          Top             =   285
  606.          Width           =   1185
  607.       End
  608.       Begin VB.CommandButton Command2 
  609.          Caption         =   "Close DynaCD"
  610.          Height          =   330
  611.          Left            =   150
  612.          TabIndex        =   14
  613.          Top             =   630
  614.          Width           =   1185
  615.       End
  616.       Begin VB.CommandButton Command3 
  617.          Caption         =   "Play"
  618.          Height          =   405
  619.          Left            =   150
  620.          TabIndex        =   13
  621.          Top             =   1125
  622.          Width           =   1185
  623.       End
  624.       Begin VB.CommandButton Command4 
  625.          Caption         =   "Stop"
  626.          Height          =   405
  627.          Left            =   2010
  628.          TabIndex        =   12
  629.          Top             =   1125
  630.          Width           =   585
  631.       End
  632.       Begin VB.CommandButton Command7 
  633.          Caption         =   "Open Cd Door"
  634.          Height          =   330
  635.          Left            =   1410
  636.          TabIndex        =   11
  637.          Top             =   285
  638.          Width           =   1200
  639.       End
  640.       Begin VB.CommandButton Command8 
  641.          Caption         =   "Close Cd Door"
  642.          Height          =   330
  643.          Left            =   1410
  644.          TabIndex        =   10
  645.          Top             =   630
  646.          Width           =   1200
  647.       End
  648.       Begin VB.CommandButton Command5 
  649.          Caption         =   "<< Prev Track"
  650.          Height          =   435
  651.          Left            =   150
  652.          TabIndex        =   9
  653.          Top             =   1575
  654.          Width           =   1185
  655.       End
  656.       Begin VB.CommandButton Command9 
  657.          Caption         =   "Next Track >>"
  658.          Height          =   435
  659.          Left            =   1410
  660.          TabIndex        =   8
  661.          Top             =   1575
  662.          Width           =   1185
  663.       End
  664.       Begin VB.CommandButton Command10 
  665.          Caption         =   "Goto Track"
  666.          Height          =   435
  667.          Left            =   150
  668.          TabIndex        =   7
  669.          Top             =   2070
  670.          Width           =   1185
  671.       End
  672.       Begin VB.ComboBox Combo1 
  673.          BeginProperty Font 
  674.             Name            =   "MS Sans Serif"
  675.             Size            =   12
  676.             Charset         =   0
  677.             Weight          =   400
  678.             Underline       =   0   'False
  679.             Italic          =   0   'False
  680.             Strikethrough   =   0   'False
  681.          EndProperty
  682.          Height          =   420
  683.          Left            =   1410
  684.          TabIndex        =   6
  685.          Text            =   "Combo1"
  686.          Top             =   2085
  687.          Width           =   1200
  688.       End
  689.    End
  690.    Begin VB.Label Label11 
  691.       BorderStyle     =   1  'Fixed Single
  692.       Height          =   270
  693.       Left            =   1245
  694.       TabIndex        =   4
  695.       Top             =   4485
  696.       Width           =   4725
  697.    End
  698.    Begin VB.Label Label1 
  699.       BorderStyle     =   1  'Fixed Single
  700.       Caption         =   "Error Code"
  701.       Height          =   270
  702.       Index           =   7
  703.       Left            =   105
  704.       TabIndex        =   3
  705.       Top             =   4500
  706.       Width           =   1125
  707.    End
  708.    Begin VB.Label Label6 
  709.       BorderStyle     =   1  'Fixed Single
  710.       Height          =   270
  711.       Left            =   1245
  712.       TabIndex        =   1
  713.       Top             =   4770
  714.       Width           =   4725
  715.    End
  716.    Begin VB.Label Label1 
  717.       BorderStyle     =   1  'Fixed Single
  718.       Caption         =   "Error Event"
  719.       Height          =   270
  720.       Index           =   1
  721.       Left            =   105
  722.       TabIndex        =   0
  723.       Top             =   4770
  724.       Width           =   1125
  725.    End
  726. Attribute VB_Name = "Form1"
  727. Attribute VB_GlobalNameSpace = False
  728. Attribute VB_Creatable = False
  729. Attribute VB_PredeclaredId = True
  730. Attribute VB_Exposed = False
  731. Dim i As Integer
  732. Private Sub Command1_Click()
  733.     DynaCD1.User_Name = ""
  734.     DynaCD1.User_Password = 0
  735.     If DynaCD1.DynaCD_Init(10) = 0 Then Exit Sub
  736.     Label3.Caption = DynaCD1.CD_State
  737.     Label5.Caption = DynaCD1.Current_Track
  738.     Combo1.Clear
  739.     For i = 1 To DynaCD1.Total_CdTracks
  740.         Combo1.AddItem i
  741.     Next i
  742.     If Combo1.ListCount > 0 Then Combo1.ListIndex = 0
  743. End Sub
  744. Private Sub Command10_Click()
  745.     If DynaCD1.DynaCD_GotoTrack(Val(Combo1.Text)) = 0 Then
  746.         MsgBox "Return error"
  747.     End If
  748. End Sub
  749. Private Sub Command11_Click()
  750.     If Text1.Text = "" Then Exit Sub
  751.     If DynaCD1.DynaCD_SendString(Text1.Text) = 0 Then MsgBox "Return Error"
  752. '    If DynaCD1.DynaCD_SendString("set cdaudio audio all off") = 0 Then MsgBox "Return Error"
  753. End Sub
  754. Private Sub Command12_Click()
  755.     Unload Me
  756. End Sub
  757. Private Sub Command13_Click()
  758.     If DynaCD1.DynaCD_PauseTrack = 0 Then MsgBox "Return Error"
  759. End Sub
  760. Private Sub Command2_Click()
  761.     DynaCD1.DynaCD_Close
  762.     Label3.Caption = DynaCD1.CD_State
  763. End Sub
  764. Private Sub Command3_Click()
  765.     If DynaCD1.DynaCD_PlayTrack = 0 Then MsgBox "Return Error"
  766. End Sub
  767. Private Sub Command4_Click()
  768.     If DynaCD1.DynaCD_StopTrack = 0 Then MsgBox "Return Error"
  769. End Sub
  770. Private Sub Command5_Click()
  771.     If DynaCD1.DynaCD_PrevTrack = 0 Then MsgBox "Return Error"
  772. End Sub
  773. Private Sub Command6_Click()
  774.     Label6.Caption = ""
  775.     Label11.Caption = ""
  776. End Sub
  777. Private Sub Command7_Click()
  778.     If DynaCD1.DynaCD_OpenDoor = 0 Then MsgBox "Return error"
  779. End Sub
  780. Private Sub Command8_Click()
  781.     If DynaCD1.DynaCD_CloseDoor = 0 Then MsgBox "Return error"
  782. End Sub
  783. Private Sub Command9_Click()
  784.     DynaCD1.DynaCD_NextTrack
  785. End Sub
  786. Private Sub DynaCD1_CdError(ErrorCode As Long, ErrorString As String)
  787.     Label6.Caption = ErrorString
  788.     Label11.Caption = ErrorCode
  789. End Sub
  790. Private Sub DynaCD1_CdMediaChanged()
  791.     Label15.Caption = DynaCD1.Cddb_Id
  792.     Label12.Caption = DynaCD1.Total_CdTime
  793.     Label16.Caption = DynaCD1.Total_CdTimeHMS
  794.     Label4.Caption = DynaCD1.Total_CdTracks
  795. End Sub
  796. Private Sub DynaCD1_CdPositionChanged()
  797.     Label13.Caption = DynaCD1.Current_TrackPosition
  798.     Label18.Caption = DynaCD1.Current_TrackPositionHMS
  799.     Label19.Caption = DynaCD1.Current_TrackPositionLeft
  800.     Label20.Caption = DynaCD1.Current_TrackPositionLeftHMS
  801. End Sub
  802. Private Sub DynaCD1_CdStateChanged(NewState As String, OldState As String)
  803.     Label3.Caption = NewState
  804.     Label14.Caption = OldState
  805. End Sub
  806. Private Sub DynaCD1_CdTrackChanged()
  807.     Label5.Caption = DynaCD1.Current_Track
  808.     Label7.Caption = DynaCD1.Previous_TrackPlayed
  809.     Label8.Caption = DynaCD1.Current_TrackLength
  810.     Label17.Caption = DynaCD1.Current_TrackLengthHMS
  811.     Label9.Caption = DynaCD1.Current_TrackStart
  812.     Label10.Caption = DynaCD1.Current_TrackEnd
  813. End Sub
  814. Private Sub Form_Unload(Cancel As Integer)
  815.     DynaCD1.DynaCD_Close
  816. End Sub
  817.