urgent !!! mmcontrol

Question

ou puis-je trouver le composant mmcontrol dans vb6???

gg00xiv · Answer

c koi le mmcontrol, c censé faire quoi ?

lucky07ir · Answer

ben je veu lire les cd audio dans mon prog et dans tous les exemples que j'ai trouve il y avait mmcontrol j'en sais pas plus ou si ta une solution pour lire les cd audio je t'ecoute.merci
lucky

gg00xiv · Answer

Tu as le composant Window Media PLayer dispo dans la liste des composants il est tout en bas chez moi ...
je pense que ce comopsant peut lire les cd .. mais je ne sais pas comment l'utiliser. ..

bon courage l'ami

lucky07ir · Answer

merci d'avoir repondu c gentil oui comme on ma dit il peut le faire mais comme tu dis comment???? :-)
lucky

cs_machto · Answer

Bonsoir,
moi je viens de comprendre alors je te fais part de mon expérience:
MMcontrol est dans le menu "Projet" à la ligne "Composants".
- Dans la Liste qui apparaît, tu coches "Microsoft Multimedia Control 6.0"
- Quand tu ferme cette liste, un "crré" apparaît dans tes icônes de gauche (si tu mets la souris dessus, une bulle te dit "MMControl". Tu as juste à la poser quelquepart sur ta page comme si tu dessinais une "label"
- Ensuite, tu dois la paramètrer
Pour exemple, voici ce que je viens de réliser:
Public nm As String
Public nom As String
Private Sub cd_Click()
    MMControl1.DeviceType = "CDAudio"
    MMControl1.EjectEnabled = True
    MMControl1.EjectVisible = True
    dlg.InitDir = "m:"
    dlg.Filter = "Piste |*.cda"
    dlg.ShowOpen
    nm = dlg.FileTitle
    nom = dlg.FileName
    MMControl1.PlayVisible = True
    MMControl1.PlayEnabled = True
    MMControl1.FileName = nom
    MMControl1.Command = "Open"
End Sub

Private Sub Form_Load()
    MMControl1.Notify = False
    MMControl1.Wait = False
    MMControl1.Shareable = False
End Sub

Private Sub mid_Click()
    MMControl1.DeviceType = "Sequencer"
    dlg.Filter = "Midi |*.mid"
    dlg.ShowOpen
    nm = dlg.FileTitle
    nom = dlg.FileName
    MMControl1.PlayVisible = True
    MMControl1.PlayEnabled = True
    MMControl1.FileName = nom
    MMControl1.Command = "Open"
    
End Sub

Private Sub Qit_Click()
    End
End Sub

Private Sub wav_Click()
    MMControl1.DeviceType = "WaveAudio"
    dlg.DialogTitle = "Choisir un titre"
    dlg.Filter = "Wave |*.wav"
    dlg.ShowOpen
    nm = dlg.FileTitle
    nom = dlg.FileName
    MMControl1.PlayVisible = True
    MMControl1.PlayEnabled = True
    MMControl1.FileName = nom
    MMControl1.Command = "Open"
End Sub

Bonne chance.

cs_machto · Answer

Excuse les quelques fautes de frappe: "crré" c'est "carré"...
Quant au code il commence après les ":" après "réaliser:"
Recopie et essaie. Je n'ai pas encore fini mais j'en suis là ce soir
A+
JMMachto

lucky07ir · Answer

merci d'avoir repondu mais j'ai trouve mon probleme et je ne peut pas y remedier!merci quand meme a plus
lucky

Urgent !!! mmcontrol

7 réponses

Discussions similaires