my crappy Cd player

Thuged_Out_G · **Posted:** Mon Mar 15, 2004 7:46 pm

here is like my first VB program lol Laughing

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

lol

code:

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?

	Computer Science Canada Programming C, C++, Java, PHP, Ruby, Turing, VB Username: Password: Register
Wiki Blog Search Turing Chat Room Members