bonsoir,
ai repris ce code sur vbfrance ai voulu y ajouter une pause mais ne
fonctionne pas
la pause agit de la même facon que le stop , kkun a-t-il une solution?
merci
Pascal
Private Sub cmdpause_Click()
Dim tmp As Long
tmp = mciSendString("Stop MP3_device", vbNullString, 0&, 0&)
End Sub
-----------------------------------------
Private Sub cmdstop_Click()
Dim tmp As Long
tmp = mciSendString("close MP3_Device", vbNullString, 0&, 0&)
End Sub
--------------------------------------
Private Sub cmdplay_Click()
JoueMp3 ("D:\DATAmusique\A Graver\" &
LstPlaylist.List(LstPlaylist.ListIndex))
End Sub
------------------------------------
Public Sub JoueMp3(ByVal Mp3 As String)
Dim tmp As Long, tmp2 As String
Screen.MousePointer = vbHourglass
If tmp = 0 Then
tmp = mciSendString("play Mp3_Device", vbNullString, 0&, 0&)
If tmp <> 0 Then
Screen.MousePointer = 0
MsgBox "Incapable de jouer ce Mp3"
'Else
' Tmp = mciSendString("close MP3_Device", vbNullString, 0&, 0&)
End If
Else
Screen.MousePointer = 0
MsgBox "Incapable de jouer ce Mp3"
End If
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Pascal
Re moi pour signaler que m^me en faisant tmp = mciSendString("pause MP3_device", vbNullString, 0, 0) cela ne fonctionne tjs pas, pourtant ceal a l'air correct!! Pascal
"Pascal" a écrit dans le message de news: ufw7smr#
bonsoir, ai repris ce code sur vbfrance ai voulu y ajouter une pause mais ne fonctionne pas la pause agit de la même facon que le stop , kkun a-t-il une solution? merci
Pascal
Private Sub cmdpause_Click() Dim tmp As Long tmp = mciSendString("Stop MP3_device", vbNullString, 0&, 0&) End Sub ----------------------------------------- Private Sub cmdstop_Click() Dim tmp As Long tmp = mciSendString("close MP3_Device", vbNullString, 0&, 0&) End Sub --------------------------------------
Private Sub cmdplay_Click() JoueMp3 ("D:DATAmusiqueA Graver" & LstPlaylist.List(LstPlaylist.ListIndex)) End Sub ------------------------------------ Public Sub JoueMp3(ByVal Mp3 As String) Dim tmp As Long, tmp2 As String Screen.MousePointer = vbHourglass
If tmp = 0 Then tmp = mciSendString("play Mp3_Device", vbNullString, 0&, 0&)
If tmp <> 0 Then Screen.MousePointer = 0 MsgBox "Incapable de jouer ce Mp3" 'Else ' Tmp = mciSendString("close MP3_Device", vbNullString, 0&, 0&) End If Else Screen.MousePointer = 0 MsgBox "Incapable de jouer ce Mp3" End If
Screen.MousePointer = 0 End Sub
Re moi pour signaler que m^me en faisant
tmp = mciSendString("pause MP3_device", vbNullString, 0, 0)
cela ne fonctionne tjs pas, pourtant ceal a l'air correct!!
Pascal
"Pascal" <inconnu@hotmail.com> a écrit dans le message de news:
ufw7smr#FHA.4028@tk2msftngp13.phx.gbl...
bonsoir,
ai repris ce code sur vbfrance ai voulu y ajouter une pause mais ne
fonctionne pas
la pause agit de la même facon que le stop , kkun a-t-il une solution?
merci
Pascal
Private Sub cmdpause_Click()
Dim tmp As Long
tmp = mciSendString("Stop MP3_device", vbNullString, 0&, 0&)
End Sub
-----------------------------------------
Private Sub cmdstop_Click()
Dim tmp As Long
tmp = mciSendString("close MP3_Device", vbNullString, 0&, 0&)
End Sub
--------------------------------------
Private Sub cmdplay_Click()
JoueMp3 ("D:DATAmusiqueA Graver" &
LstPlaylist.List(LstPlaylist.ListIndex))
End Sub
------------------------------------
Public Sub JoueMp3(ByVal Mp3 As String)
Dim tmp As Long, tmp2 As String
Screen.MousePointer = vbHourglass
If tmp = 0 Then
tmp = mciSendString("play Mp3_Device", vbNullString, 0&, 0&)
If tmp <> 0 Then
Screen.MousePointer = 0
MsgBox "Incapable de jouer ce Mp3"
'Else
' Tmp = mciSendString("close MP3_Device", vbNullString, 0&, 0&)
End If
Else
Screen.MousePointer = 0
MsgBox "Incapable de jouer ce Mp3"
End If
Re moi pour signaler que m^me en faisant tmp = mciSendString("pause MP3_device", vbNullString, 0, 0) cela ne fonctionne tjs pas, pourtant ceal a l'air correct!! Pascal
"Pascal" a écrit dans le message de news: ufw7smr#
bonsoir, ai repris ce code sur vbfrance ai voulu y ajouter une pause mais ne fonctionne pas la pause agit de la même facon que le stop , kkun a-t-il une solution? merci
Pascal
Private Sub cmdpause_Click() Dim tmp As Long tmp = mciSendString("Stop MP3_device", vbNullString, 0&, 0&) End Sub ----------------------------------------- Private Sub cmdstop_Click() Dim tmp As Long tmp = mciSendString("close MP3_Device", vbNullString, 0&, 0&) End Sub --------------------------------------
Private Sub cmdplay_Click() JoueMp3 ("D:DATAmusiqueA Graver" & LstPlaylist.List(LstPlaylist.ListIndex)) End Sub ------------------------------------ Public Sub JoueMp3(ByVal Mp3 As String) Dim tmp As Long, tmp2 As String Screen.MousePointer = vbHourglass
If tmp = 0 Then tmp = mciSendString("play Mp3_Device", vbNullString, 0&, 0&)
If tmp <> 0 Then Screen.MousePointer = 0 MsgBox "Incapable de jouer ce Mp3" 'Else ' Tmp = mciSendString("close MP3_Device", vbNullString, 0&, 0&) End If Else Screen.MousePointer = 0 MsgBox "Incapable de jouer ce Mp3" End If
Screen.MousePointer = 0 End Sub
Jacques93
Bonjour Pascal, Pascal a écrit :
bonsoir, ai repris ce code sur vbfrance ai voulu y ajouter une pause mais ne fonctionne pas la pause agit de la même facon que le stop , kkun a-t-il une solution? merci
Pour reprendre après une pause, à l'endroit où le morceau a été arrêté, il faut utiliser 'resume' . Si tu click sur Play c'est normal que ça reparte au début :
Private Sub cmdResume_Click() Dim tmp As Long tmp = mciSendString("Resume MP3_device", vbNullString, 0&, 0&) End Sub
-- Cordialement,
Jacques.
Bonjour Pascal,
Pascal a écrit :
bonsoir,
ai repris ce code sur vbfrance ai voulu y ajouter une pause mais ne
fonctionne pas
la pause agit de la même facon que le stop , kkun a-t-il une solution?
merci
Pour reprendre après une pause, à l'endroit où le morceau a été arrêté,
il faut utiliser 'resume' . Si tu click sur Play c'est normal que ça
reparte au début :
Private Sub cmdResume_Click()
Dim tmp As Long
tmp = mciSendString("Resume MP3_device", vbNullString, 0&, 0&)
End Sub
bonsoir, ai repris ce code sur vbfrance ai voulu y ajouter une pause mais ne fonctionne pas la pause agit de la même facon que le stop , kkun a-t-il une solution? merci
Pour reprendre après une pause, à l'endroit où le morceau a été arrêté, il faut utiliser 'resume' . Si tu click sur Play c'est normal que ça reparte au début :
Private Sub cmdResume_Click() Dim tmp As Long tmp = mciSendString("Resume MP3_device", vbNullString, 0&, 0&) End Sub
-- Cordialement,
Jacques.
Jacques93
Jacques93 a écrit :
Bonjour Pascal, Pascal a écrit :
bonsoir, ai repris ce code sur vbfrance ai voulu y ajouter une pause mais ne fonctionne pas la pause agit de la même facon que le stop , kkun a-t-il une solution? merci
[...]
Tu peux aussi regarder du côté du contrôle Microsoft Multimedia Control (MCI32.ocx) qui gère automatiquement les boutons de contrôle de lecture. Un exemple ici :
http://www.vbfrance.com/code.aspx?IDa63
-- Cordialement,
Jacques.
Jacques93 a écrit :
Bonjour Pascal,
Pascal a écrit :
bonsoir,
ai repris ce code sur vbfrance ai voulu y ajouter une pause mais ne
fonctionne pas
la pause agit de la même facon que le stop , kkun a-t-il une solution?
merci
[...]
Tu peux aussi regarder du côté du contrôle Microsoft Multimedia Control
(MCI32.ocx) qui gère automatiquement les boutons de contrôle de lecture.
Un exemple ici :
bonsoir, ai repris ce code sur vbfrance ai voulu y ajouter une pause mais ne fonctionne pas la pause agit de la même facon que le stop , kkun a-t-il une solution? merci
[...]
Tu peux aussi regarder du côté du contrôle Microsoft Multimedia Control (MCI32.ocx) qui gère automatiquement les boutons de contrôle de lecture. Un exemple ici :
http://www.vbfrance.com/code.aspx?IDa63
-- Cordialement,
Jacques.
Pascal
Youah! c'est la fête! merci à toi
Pascal
"Jacques93" a écrit dans le message de news: eg943Qz#
Jacques93 a écrit : > Bonjour Pascal, > Pascal a écrit : > >> bonsoir, >> ai repris ce code sur vbfrance ai voulu y ajouter une pause mais ne >> fonctionne pas >> la pause agit de la même facon que le stop , kkun a-t-il une solution? >> merci >> >
[...]
Tu peux aussi regarder du côté du contrôle Microsoft Multimedia Control (MCI32.ocx) qui gère automatiquement les boutons de contrôle de lecture. Un exemple ici :
http://www.vbfrance.com/code.aspx?IDa63
-- Cordialement,
Jacques.
Youah! c'est la fête!
merci à toi
Pascal
"Jacques93" <jacques@Nospam> a écrit dans le message de news:
eg943Qz#FHA.3660@TK2MSFTNGP10.phx.gbl...
Jacques93 a écrit :
> Bonjour Pascal,
> Pascal a écrit :
>
>> bonsoir,
>> ai repris ce code sur vbfrance ai voulu y ajouter une pause mais ne
>> fonctionne pas
>> la pause agit de la même facon que le stop , kkun a-t-il une solution?
>> merci
>>
>
[...]
Tu peux aussi regarder du côté du contrôle Microsoft Multimedia Control
(MCI32.ocx) qui gère automatiquement les boutons de contrôle de lecture.
Un exemple ici :
"Jacques93" a écrit dans le message de news: eg943Qz#
Jacques93 a écrit : > Bonjour Pascal, > Pascal a écrit : > >> bonsoir, >> ai repris ce code sur vbfrance ai voulu y ajouter une pause mais ne >> fonctionne pas >> la pause agit de la même facon que le stop , kkun a-t-il une solution? >> merci >> >
[...]
Tu peux aussi regarder du côté du contrôle Microsoft Multimedia Control (MCI32.ocx) qui gère automatiquement les boutons de contrôle de lecture. Un exemple ici :
