comment naviguer dans un mp3 avec un control sliderRésolu

Question

Bonjours &#224; tous et &#224; toutes, je suis en ce moment en train de concevoir un lecteur MP3 sous VB6. A l'heure actuel, un control slider me permet de voir la progression de ma piste mais j'aimerai que ce control slider me permette de naviguer librement dans la piste. Je m'explique, en faisai glisser le slider je voudrai pouvoir aller directement &#224; 3 minutes ou &#224; 1 minute 30 par exemple.
J'ai essay&#233; avec l'instruction suivante mais VB6 me dit que la propri&#233;t&#233; est en lecture seul : MMControl1.Position = Slider1.value
Donc je me tourne vers vous et j'attend une solution avec impatience, Merci d'avance ! ;-)

MortDansLAme · Accepted Answer

le problème à été resolu depuis longtemps très chère :)

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

//ici pos représente un slider de ce nom et mmc un multimediacontrol6
Private Sub pos_Scroll()
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

Octave32 · Answer

J'ai le même problème mon ami, et un autre post du forum à le même, j'crois que personne sais le règler =/

Un p'tit up par le fais même, on aura peut-être une réponse ;P

Comment naviguer dans un mp3 avec un control slider

2 réponses

Discussions similaires