Member Avatar for selot
selot 0 Newbie Poster

I have got some problems with making a cd player. But I do not know what it is.

the code is as follows:

Private Sub cmdSpill_Click()
mmcSpiller.Command = "play"

End Sub

Private Sub Form_Load()
mmcSpiller.Notify = True

mmcSpiller.Wait = True
mmcSpiller.Shareable = False
mmcSpiller.DeviceType = "cdaudio"


End Sub

Private Sub Form_Unload(Cancel As Integer)
mmcSpiller.Command = "close"

End Sub

Private Sub mmcSpiller_StatusUpdate()
lblnr.Caption = mmcSpiller.Track
lblAntspor.Caption = mmcSpiller.Tracks
lblposisjon.Caption = mmcSpiller.TrackPosition
lblLengde.Caption = mmcSpiller.TrackLength

End Sub

  • 1 Contributor
  • 0 Replies
  • 101 Views
Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.