by Martin Anbu Selvan (18 Submissions)
Category: Sound/MP3
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Thu 26th February 2004
Date Added: Mon 8th February 2021
Rating: (1 Votes)
USing MMcontrol ,retrieve the CD details.You can play the song ,etc..
'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
No comments have been posted about USing MMcontrol ,retrieve the CD details.You can play the song ,etc... Why not be the first to post a comment about USing MMcontrol ,retrieve the CD details.You can play the song ,etc...