Sources Lecteurs MP3Résolu

Question

Bonjour &#224; tous, j'ai parcourue des fichiers source de lecteur MP3 sous vb6 et plusieurs fois j'ai vue que les propri&#233;t&#233; de lecture du mp3 etaient donn&#233; &#224; une picturebox, hors mon vb6 me dit que c'est impossible, pourriez vous silvouplait m'expliquer comment vous faites ? merci

Renfield · Accepted Answer

il suffit de faire :

Private Declare Function mciSendCommand Lib "winmm.dll" Alias "mciSendCommandA" (ByVal wDeviceID As Long, ByVal uMessage As Long, ByVal dwParam1 As Long, ByRef dwParam2 As Any) As Long
Private Const MCI_SEEK As Long = &H807
Private Const MCI_WAIT As Long = &H2&
Private Const MCI_TO As Long = &H8&

Private Type MCI_SEEK_PARMS
    dwCallback As Long
    dwTo As Long
End Type

Private Sub pos_Change()
Dim tSeekParms As MCI_SEEK_PARMS
    tSeekParms.dwTo = pos.Value
    mciSendCommand MMC.DeviceID, MCI_SEEK, MCI_WAIT Or MCI_TO, tSeekParms
    MMC.Command = "play"
End Sub



tout est dans la doc :
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/multimed/htm/_win32_mci_seek.asp

ScSami · Answer

Met nous ici le code que tu as vu et qui te semble obscure.

Enjoy 

<hr size="2" width="100%">
( Si une r&#233;ponse vous convient, cliquez sur le bouton "R&#233;ponse accept&#233;e". )

MortDansLAme · Answer

Voila le code qui pose pb : 
Private Sub cmdplay_Click()
If pause = True Then
mp1.Play
Else
mp1.FileName = list1.Text
         If mp1.FileName = "" Then
             Exit Sub
         Else
            mp1.Play
            Slider1.Max = mp1.Duration
            Timer1.Enabled = True
            Timer2.Enabled = True
            lbltitre.Caption = list1.Text + "      "
            End If
            pause = False
End If

End Sub
 ici mp1 est une picturebox et les propri&#233;t&#233; Play et Filename sont dites introuvables par VB6.
ce Code provient des telechargement de vbfrance dans les lecteur mp3, ici il s'agit de celui de "Hocine".
Merci de m'&#233;clairer :)

ScSami · Answer

Tu aurais du mettre &#233;galement la r&#233;f&#233;rence du code (via un lien!).

Je ne sais pas ce uqe Hocine a fait mais a mon avis, soit c'est lui qui s'est plant&#233; (ce qui m'&#233;tonnerait si sa source a &#233;t&#233; test&#233; par des membres VBFrance!), soit c'est toi qui a fait une connerie!

Car, en effet, si "mp1" est bien un contr&#244;le PictureBox, ces propri&#233;t&#233;s sont inexistantes!!! Et c'est bien normal car cette propri&#233;t&#233; et cette m&#233;thode apparitennent toutes deux au contr&#244;le multim&#233;dia!

Juste pour info, les contr&#244;les PictureBox servent &#224; dessiner quelque chose dessus et/ou a afficher des images. Il n'y a donc aucune propri&#233;t&#233; .FileName et encore moins de m&#233;thode/propri&#233;t&#233; .Play !!!

Mais si tu as d'autres codes du m&#234;me genre, je serais curieux de les voir!!!

Enjoy 

<hr size="2" width="100%">
( Si une r&#233;ponse vous convient, cliquez sur le bouton "R&#233;ponse accept&#233;e". )

MortDansLAme · Answer

Non je n'ai pas fait de connerie mais c'est mon VB qui plante, au chargement du projet il merde pour lancer le "Form1.log" du coup il fait nimportequoi pour identifier les control, donc tu me dit que ces propri&#233;t&#233; appartiemme &#224; un MMControl c'est &#231;a ?

Renfield · Answer

tu n'a simplement pas le controle OCX requis sur ta machine, et VB les a remplacé par un PictureBox

n'enregistre pas les form/projets, installe ces controles, et relance les sources

MortDansLAme · Answer

Oui je veu bien mais de quel controls s'agit-il ? je l'ai le MMControl donc je voi pas ce qui merde, ca ne serai pas due &#224; une diff&#233;rence de version ? enfin bon passon, j'aimerai aussi savoir comment on fait pour naviguer dans une musique &#224; l'aide d'un control Slider si quelqu'un le sait.

Renfield · Answer

tout d&#233;pend du controle utilis&#233; dans les sources pr&#233;sentes sur le site
a toi de voir comment tu comptes g&#233;rer le Slider....

donne nous un lien vers une source, comme le sugg&#232;re ScSami, et nous pourrons te r&#233;pondre plus pr&#233;cis&#233;ment.

Renfield
Admin CodeS-SourceS - MVP Visual Basic

MortDansLAme · Answer

OK voila j'ai mis ma source en ligne elle paye pas de mine mais je travaillerai lest&#233;tique plus tard, alors d'apr&#232;s vous comment je fait pour naviguer dans mes mp3 avec le slider ?
la source est la suivante : 
http://www.vbfrance.com/code.aspx?ID=35653
Merci

MortDansLAme · Answer

Et bien un grand merci &#224; toi  [auteurdetail.aspx?ID=2359 Renfield] la source que tu m'a donn&#233; me rend un grand service ainsi que le liens vers msdn. J'esp&#232;re que ta reponse va servir &#224; beaucoup d'entre nous ;-)
Encor merci !

Sources Lecteurs MP3

10 réponses

Discussions similaires