-----------------------------------

Thuged_Out_G

Mon Mar 15, 2004 7:46 pm


my crappy Cd player

-----------------------------------

here is like my first VB program lol  :lol:

BTW, for some reason when you close the program, the music keeps going...so make sure to press stop first :D lol



Private Sub Form_Load()
MMControl1.Notify = False
MMControl1.Wait = True
MMControl1.Shareable = False
MMControl1.DeviceType = "CDAudio"
MMControl1.Command = "Open"
End Sub


Private Sub Image1_Click()
MMControl1.Command = "Next"
End Sub


Private Sub Image2_Click()
MMControl1.Command = "Pause"
End Sub

Private Sub Image3_Click()
MMControl1.Command = "Play"
End Sub

Private Sub Image4_Click()
MMControl1.Command = "Prev"
End Sub

Private Sub Image5_Click()
MMControl1.Command = "Stop"
End Sub

Private Sub Form_Unload(Cancel As Integer)
MMControl1.Command = "Close"
MMControl1.Command = "Stop"
End Sub


there is the code, anyone know why it doesnt stop when you close it? And is there anyway that you can find out the title of the track playing?