home *** CD-ROM | disk | FTP | other *** search
/ Tricks of the Windows Gam…ming Gurus (2nd Edition) / Disc2.iso / msdn_vcb / samples / vc98 / atl / cdinfo / vbtest / frmcd.frm next >
Text File  |  1998-03-26  |  2KB  |  85 lines
  1. VERSION 5.00
  2. Object = "{A393BE4C-2FBD-11D0-B939-000000000000}#1.0#0"; "CDInfo.dll"
  3. Begin VB.Form frmCD 
  4.    Caption         =   "Audio CD"
  5.    ClientHeight    =   7950
  6.    ClientLeft      =   1800
  7.    ClientTop       =   2055
  8.    ClientWidth     =   5700
  9.    LinkTopic       =   "Form1"
  10.    PaletteMode     =   1  'UseZOrder
  11.    ScaleHeight     =   7950
  12.    ScaleWidth      =   5700
  13.    Begin VB.ListBox lstCD 
  14.       Height          =   3375
  15.       Left            =   840
  16.       TabIndex        =   3
  17.       Top             =   3840
  18.       Width           =   3975
  19.    End
  20.    Begin VB.CommandButton cmdExit 
  21.       Cancel          =   -1  'True
  22.       Caption         =   "Exit"
  23.       Height          =   615
  24.       Left            =   3720
  25.       TabIndex        =   2
  26.       Top             =   1200
  27.       Width           =   1575
  28.    End
  29.    Begin VB.CommandButton cmdRead 
  30.       Caption         =   "Read CD"
  31.       Default         =   -1  'True
  32.       Height          =   615
  33.       Left            =   3720
  34.       TabIndex        =   1
  35.       Top             =   360
  36.       Width           =   1575
  37.    End
  38.    Begin CDINFOLibCtl.CCDInfo ctlCD 
  39.       Height          =   2895
  40.       Left            =   360
  41.       OleObjectBlob   =   "frmCD.frx":0000
  42.       TabIndex        =   0
  43.       Top             =   360
  44.       Width           =   2895
  45.    End
  46. End
  47. Attribute VB_Name = "frmCD"
  48. Attribute VB_GlobalNameSpace = False
  49. Attribute VB_Creatable = False
  50. Attribute VB_PredeclaredId = True
  51. Attribute VB_Exposed = False
  52.  
  53. Private Function GetLength(ByVal nSeconds As Integer) As String
  54.     Dim strLength As String
  55.     strLength = Str(nSeconds \ 60)
  56.     strLength = strLength + ":" + Format(nSeconds Mod 60, "0#")
  57.     GetLength = strLength
  58. End Function
  59.  
  60. Private Sub cmdExit_Click()
  61.     End
  62. End Sub
  63.  
  64. Private Sub cmdRead_Click()
  65.     Dim nTracks As Integer, nTrack As Integer
  66.     nTracks = ctlCD.Read
  67.     lstCD.Clear
  68.     If nTracks Then
  69.         For nTrack = 1 To nTracks
  70.             lstCD.AddItem "Track" + Str(nTrack) + Chr(9) + Chr(9) + GetLength(ctlCD.Length(nTrack))
  71.         Next nTrack
  72.     Else
  73.         MsgBox "Couldn't read CD"
  74.     End If
  75. End Sub
  76.  
  77. Private Sub ctlCD_Click(ByVal nTrack As Integer)
  78. '   This will cause the lstCD_Click event to fire and the Play method called
  79.     lstCD.ListIndex = nTrack - 1
  80. End Sub
  81.  
  82. Private Sub lstCD_Click()
  83.     ctlCD.Play (lstCD.ListIndex + 1)
  84. End Sub
  85.