Discussion :

[KEVIN.DLL]

Bonjour,
j'ai un problème avec mon code je n'arrive pas à faire jouer différents sons en cliquant sur différentes options. Je veux dire que le deuxième et le premier son sont pareil lorsque je lance la lecture je ne comprend pas

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
 
Dim trackList(4) As String
Dim trackNumber As Integer
 
Private Sub Form_Load()
trackList(1) = "E:\musique\hymne\japon.wav"
trackList(2) = "E:\musique\hymne\afrique-sud.wav"
End Sub
 
Private Sub Option1_Click()
MMControl1.Command = "open"
MMControl1.FileName = trackList(1)
MMControl1.Command = "play"
End Sub
 
Private Sub Option2_Click()
MMControl1.Command = "open"
MMControl1.FileName = trackList(2)
MMControl1.Command = "play"
End Sub

Quelqu'un pourrait m'aider ?
Merci d'avance pour votre aide

[l_autodidacte]

Il faut peut-être faire Dim TrackList(1 to 4) As String

[iclic]

Bonjour,

Il faut peut-être faire Dim TrackList(1 to 4) As String

Les deux sont valables : Dim (4 ) a un indice 0 en plus.

Ajoute 2 points d'arrêt pour contrôler où tu passes et vérifie la valeur de ta variable TrackList

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
 
Dim trackList(4) As String
Dim trackNumber As Integer
 
Private Sub Form_Load()
trackList(1) = "E:\musique\hymne\japon.wav"
trackList(2) = "E:\musique\hymne\afrique-sud.wav"
End Sub
 
Private Sub Option1_Click()
MMControl1.Command = "open"
MMControl1.FileName = trackList(1)
stop  'ici
MMControl1.Command = "play"
End Sub
 
Private Sub Option2_Click()
MMControl1.Command = "open"
MMControl1.FileName = trackList(2)
stop 'et ici
MMControl1.Command = "play"
End Sub

[ProgElecT]

Salut

Il faut renseigner quel fichier doit être ouvert avant que de passer la commande "Open"

Code :

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

1
2
3
4
5
6
7
8
trackList(1) = "C:\PersoFrancis\2.WAV"
    MMControl1.Notify = False
    MMControl1.Wait = True
    MMControl1.Shareable = False
    MMControl1.DeviceType = "WaveAudio"
    MMControl1.FileName = trackList(1)
    MMControl1.Command = "open"
MMControl1.Command = "play"