• Home
 · 
• Sound/MP3
 · 
• USing MMcontrol ,retrieve the CD details.You can play the song ,etc..

USing MMcontrol ,retrieve the CD details.You can play the song ,etc..

USing MMcontrol ,retrieve the CD details.You can play the song ,etc..

Rate USing MMcontrol ,retrieve the CD details.You can play the song ,etc..

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

'St.joseph's college of Engineering,chennai.
'[email protected]

'add mmcontrol ,label with index 1,2,3,4 

Private Sub Command1_Click()

For Track = 1 To MMControl1.Tracks
MMControl1.Track = Track
DiskID = DiskID + MMControl1.TrackLength
DiskID = DiskID + MMControl1.Length
Next Track

Label1(1).Caption = "CD ID#: " & DiskID
Label1(2).Caption = "Tracks: " & MMControl1.Tracks
Label1(3).Caption = "Tracklength: " & MMControl1.TrackLength
Label1(4).Caption = "CD Length: " & MMControl1.Length
End Sub

Private Sub Form_Load()

Dim DiskID As Long
Dim Track As Integer
MMControl1.DeviceType = "CDAudio"
MMControl1.Command = "open"
DiskID = MMControl1.Tracks

End Sub