Evo ti komplet kod :
Private Sub cmdPlay_Click()
MMControl1.Notify = False
MMControl1.Wait = True
MMControl1.Shareable = False
'specify CD Audio type (from CD-ROM drive)
MMControl1.DeviceType = "CDAudio"
MMControl1.Command = "Open"
Image1.Visible = True
End Sub
Private Sub cmdQuit_Click()
'stop CD audio if quit button clicked
MMControl1.Command = "Stop"
End
End Sub
Private Sub Form_Unload(Cancel As Integer)
'always close device when finished
MMControl1.Command = "Close"
End Sub
Private Sub MMControl1_PlayClick(Cancel As Integer)
'hide instruction bitmap before playing CD
Image1.Visible = False
End Sub
A ako si zainteresovan posalji E-Mail pod naznakom ES-Forumi Pomoc poslacu ti komplet sve sa Formom
E-Mial:
[email protected]