MP3

Question

Je voudrais que des que j'ouvre mon prog il lisent un MP3 comment je fait je sais je suis tout new alors si quel qu'un pouvais m'aide sa serais trop cool merciiii

 :question)

SiWolf · Answer

If faut que tu utilise la fonction API mciSendString, de cette manière : (tu trouve cette fonction dans la visionneuse d'API en chargeant le fichier text Win32Api)

private sub Form_Load()
mcisendstring "open " & NomDuFichierMP3 & " type MPEGVideo",0,0,0
mcisendstring "play " & NomDuFichierMP3,0,0,0
end sub

et pour arrêter tous les fichiers MP3 en même tps tu fais
mcisendstring "close all",0,0,0
ou juste pour un fichier
mcisendstring "close " & NomDuFichierMP3,0,0,0

voilà, si t'as d'autres questions n'hésite pas

HUGOa78 · Answer

sa bloqueje sais pas il me dit " Procédur SUB ou fonction nondefni " et voila le code sucre que j'ai rentre :  
Private Sub Form_Load()

mcisendstring "open " & SFR.mp3 & " type MPEGVideo", 0, 0, 0
mcisendstring "play " & SFR.mp3, 0, 0, 0
mcisendstring "close " & SFR.mp3, 0, 0, 0

End Sub

Je suis tres num en VB alors si quel qu'un pouvais me donne un petit coup de main lol mci

SiWolf · Answer

c'est normal il faut que tu déclare cette fonction pour pouvoir l'utiliser. Ecrit au tt début du code de ton Form le code suivant :

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

HUGOa78 · Answer

pour ne pas change voila maintent c'est la lign du dessou qui coince va savoi pourquoi lol donc voila c que j'ai tape :

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Private Sub Form_Load()

mciSendString "open " & SFR.MP3 & " type MPEGVideo", 0, 0, 0
mciSendString "play " & SFR.MP3, 0, 0, 0
mciSendString "close all ", 0, 0, 0

End Sub

desoler une fois de plus de demande de l'aidre mais quand on debut c'est pas simple

SiWolf · Answer

C'est quoi le problème? ça génère une erreur ou il n'y a pas de son? Et il ne faut pas mettre "close all" juste après "play " sinon le fichier se lance et se ferme tout de suite.

wwfkilla · Answer

Plus facile encore écrit sa : 

Private Sub Form_Load()
MediaPlayer1.FileName= "c:\nom_du_dossier\nom_du_fichier.mp3"
End Sub

Tu dois avoir un mediaplayer1 et c'est tout
tu peut mettre visible=false pour ne pas le voir

wwfkilla

wwfkilla · Answer

dsl mais il y a eu une erreur dans on message 
ce n'est pas MediaPlayer1.FileName= "c:\\nom_du_dossier\\nom_du_fichier.mp3"

mais MediaPlayer1.FileName= "c:\nom_du_dossier\nom_du_fichier.mp3"

sa ne prend pas les double \\wwfkilla

kheops2b · Answer

Hello,

J'ai une petite question :

Comment je px lire en meme temps des fichier Mp3 et wave avec : mcisendstring ?
Et a quoi correspondent les options : 0,0,0
mcisendstring "open " & NomDuFichierMP3 & " type MPEGVideo",0,0,0

Merci pour vos r&#233;ponses

++

MP3

8 réponses

Discussions similaires