Discussion :

[MCJC-IMB]

Bonjours

Hmm je ne sais pas si j'ai posté au bon endroit...
Voilà alors je suis un profane amateur ignorant inculte ect... en programation
mais je suis intéressé et motivé. Je vous en prie soyez indulgent
L'ide que j'utilise: Visual basic 2010 expresse édition.

Alors ben tout est dit dans le titre je suis en train de créer une Fenêtre
"A Propos" et j'aimerai avoir la lecture d'un fichier midi ou ogg a l'ouverture de cette fenêtre.

Est ce possible?

Comment dois -je y parvenir?
Merchi

[tomlev]

un fichier wav, c'est assez simple...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim player As New System.Media.SoundPlayer("chemin_du_fichier")
player.Play()

Par contre, un midi, ça se corse un peu, vu qu'il n'y a aucune classe qui gère ça dans le framework... Il faut utiliser l'API mciSendString :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
<DllImport("winmm.dll")> _
Private Shared Function mciSendString(ByVal command As String, ByVal buffer As StringBuilder, ByVal bufferSize As Integer, ByVal hwndCallback As IntPtr) As Integer
End Function
 
....
 
mciSendString("open chemin_du_fichier", Nothing, 0, IntPtr.Zero)

Pour du OGG, là ça devient vraiment galère, vu que ce n'est pas un format supporté en standard sous Windows... tu dois pouvoir le faire avec une librairie tierce, cherche sur Google

[tonnebrre]

si tu veux tu peut utiliser windows media player dans ton form
voici les détaille

[Pol63]

sinon en dll tierce gratuite y a fmod ou bass.net

[MCJC-IMB]

Merci de vos réponses je regarde tout sa que maintenant j'étais pris cette semaine.

[MCJC-IMB]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim player As New System.Media.SoundPlayer(C:\Users\Archange\Music\09_Ne-Yo - Closer.wav)
        player.Play()
    End Sub

Pour la première méthode avec les fichiers wav je rencontre trois erreur (frustrant) qui sont les suivantes:

Erreur 1 ')' attendue.
Erreur 2 Erreur de syntaxe.
Erreur 3 'player' n'est pas déclaré. Il peut être inaccessible en raison de son niveau de protection.

Pour l'erreur1 ils veulent inséré une parenthèse
pour la 2 Le C du chemin d'accès est refusé...

dois-je tappé l'expresion

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

New(soundlocation As String)

pour supprimer l'erreur 1 ou 2. Et pourtant pour l'erreur 3 on a bien déclarer player par Dim....