Discussion :

[Namson]

Bonjour à tous!
je voudrais que lorsque ma souris se pointe sur une image il est une musique qui se déclenche automatiquement! Excusez moi mais aidez moi svp
merci beaucoup en vb2005

[Pol63]

evenement mouse_enter d'un objet
=> lancer le fichier son
my.Computer.Audio.Play

[Namson]

Bonjour j'ai essayé ta méthode mais elle ne fonctionne que pour les sons WAV pas pour les sons MP3! Aidez moi SVP
merci

[Pol63]

ajoute une référence à media player

[Namson]

je ne comprends pas bien que veux-tu dire pas ajouter une reference media player! je ne suis q'un débutant merci pour plus d'informations

[Pol63]

ah
oui
^^
menu projet / ajouter une référence
cherche media player, ptete qu'il est dans com

google devrait t'aider ...


sinon par directX, avec un exemple ici:
http://morpheus.developpez.com/directxdotnet/

[hellspawn_ludo]

Salut Namson,

Lorsque sperot51 dit qu'il faut que tu ajoutes une référence à média player, fait cela :

Dans VB2005, clic sur le menu Projet puis sur Ajouter une référence.

Dans dans fenêtre qui s'ouvrira, sélectionne l'onglet COM et cherche le nom du composant : WINDOWS MEDIA PLAYER. Prends celui dont le nom de chemin d'accès est c:\windows\system32\WMP.DLL et clique sur OK

Ensuite pour exemple d'utilisation, mets 2 boutons sur ta form et colle le code ci-dessous pour tester (n'oublie plas de modifier l'URL de ta chanson).

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
'Importe la référence au lecteur windows media player
Imports WMPLib
 
Public Class Form1
 
    Dim MonLecteurAudio As New WindowsMediaPlayer
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        'Chemin d'accès à ta chanson
        Me.MonLecteurAudio.URL = "D:\Sauvegarde\Ma musique\Radio\Say It Right.wma"
 
        'Lecture du fichier
        Me.MonLecteurAudio.controls.play()
 
    End Sub
 
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
 
        'Stop la lecture
        Me.MonLecteurAudio.controls.stop()
 
    End Sub
End Class

Et voilà.