VB Problème System Out Of Range

Version imprimable

Bonjour/Bonsoir, Voici plusieurs temps que j'ai un problème de code m'indiquant System out of range avec une ListBox. Le problème est quand je séléctionne un "fichier" par exemple celui ci me renvoi au code, les 2 premier fichiers sélectionner fonctionne mais dés que j'en rajoute un troisième et que je le sélectionne = erreur. J'envoie le code ci dessous. L'erreur apparais ligne 57.

Code:

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
 
Public Class Form1
    Dim mouseOffset As Point
    Dim commandfile As String
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        AxWindowsMediaPlayer1.settings.volume = My.Settings.LastVolume 'Loads the last volume value
        Pot1.Value = My.Settings.LastVolume
 
        'commandfile = Command$() 'gets the file
        If Not commandfile = "" Then
            commandfile = Replace(commandfile, Chr(34), "")
            AxWindowsMediaPlayer1.URL = commandfile 'Sets the title
            My.Settings.LastSongPlayed = commandfile 'Save the media location in settings
            AxWindowsMediaPlayer1.Ctlcontrols.play() 'Play the media
            Timer1.Start() 'starts the timer
        Else
            If Not My.Settings.LastSongPlayed = "" Then
                AxWindowsMediaPlayer1.URL = My.Settings.LastSongPlayed                          'Load the last song
                AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = My.Settings.LastSongDuration 'Play the song from the last time
                AxWindowsMediaPlayer1.Ctlcontrols.play()                                            'This will play the media
                Timer1.Start() 'this timer updates the duration or progress of the song played
            Else
                OpenFileDialog1.ShowDialog() 'Show the media to play of theres no song
                AxWindowsMediaPlayer1.URL = OpenFileDialog1.FileName 'Sets the selected file in widows mediua player
                AxWindowsMediaPlayer1.Ctlcontrols.play() 'Plays the file
                Timer1.Start() 'Starts the timer
            End If
        End If
    End Sub
 
    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
 
    End Sub
 
    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs)
 
    End Sub
 
    Private Sub Settings_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SettingsB.Click
        Settings.Show()
    End Sub
    Dim paths As String()
    Dim filename As String()
    Private Sub AddSong_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddSong.Click
        If (OpenFileDialog1.ShowDialog = DialogResult.OK) Then
            filename = OpenFileDialog1.SafeFileNames
            paths = OpenFileDialog1.FileNames
            For i As Integer = 0 To filename.Length - 1
                ListBox1.Items.Add(filename(i))
 
            Next
        End If
    End Sub
 
    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        AxWindowsMediaPlayer1.URL = paths(ListBox1.SelectedIndex)
    End Sub
 
#Region "Moving Form By Mouse"
    Private Sub Me_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs) Handles MyBase.MouseDown
        mouseOffset = New Point(-e.X, -e.Y)
    End Sub
    Private Sub Me_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs) Handles MyBase.MouseMove
 
        If e.Button = MouseButtons.Left Then
            Dim mousePos = Control.MousePosition
            mousePos.Offset(mouseOffset.X, mouseOffset.Y)
            Location = mousePos
        End If
    End Sub
#End Region
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPlaying Then
            Button1.Text = "Play"
            AxWindowsMediaPlayer1.Ctlcontrols.pause()
        Else
            Button1.Text = "Pause"
            AxWindowsMediaPlayer1.Ctlcontrols.play()
        End If
    End Sub
 
    Private Sub Stop1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Stop1.Click
        AxWindowsMediaPlayer1.Ctlcontrols.stop() 'For stop button
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Forward.Click
        AxWindowsMediaPlayer1.Ctlcontrols.fastForward() 'For Forward button
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Rewind.Click
        AxWindowsMediaPlayer1.Ctlcontrols.fastReverse() 'For reverse button
    End Sub
 
 
 
    Private Sub Pot1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pot1.ValueChanged
        Pot1.BackColor = Color.DimGray 'Changes the backcolor if muted
        AxWindowsMediaPlayer1.settings.volume = Pot1.Value 'Sets the volume value in the axwmp
        My.Settings.LastVolume = Pot1.Value 'Saves the volume in the settings
    End Sub
 
    Private Sub Pot1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
 
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        GTrackBar1.MaxValue = AxWindowsMediaPlayer1.currentMedia.duration 'Sets the max value for the trackbar for each media
        GTrackBar1.Value = AxWindowsMediaPlayer1.Ctlcontrols.currentPosition 'sets the current position in the trackbar
        If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPlaying Then 'check
            Button1.Text = "Pause"
        Else
            Button1.Text = "Play"
        End If
    End Sub
 
 
    Private Sub GTrackBar1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles GTrackBar1.MouseDown
        Timer1.Stop()
    End Sub
 
    Private Sub GTrackBar1_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles GTrackBar1.MouseUp
        AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = GTrackBar1.Value
        Timer1.Start()
    End Sub
 
    Private Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
        My.Settings.LastSongPlayed = AxWindowsMediaPlayer1.URL
        My.Settings.LastSongDuration = AxWindowsMediaPlayer1.Ctlcontrols.currentPosition
        My.Settings.LastVolume = AxWindowsMediaPlayer1.settings.volume
    End Sub
 
    Private Sub Pot1_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pot1.DoubleClick
        If AxWindowsMediaPlayer1.settings.mute = False Then
            Pot1.BackColor = Color.Red
            AxWindowsMediaPlayer1.settings.mute = True
        Else
            Pot1.BackColor = Color.DimGray
            AxWindowsMediaPlayer1.settings.mute = False
        End If
    End Sub
 
    Private Sub More_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles More.Click
        If SettingsB.Visible = False Then
            SettingsB.Visible = True
        Else
            SettingsB.Visible = False
        End If
    End Sub
End Class

15/01/2019, 19h21
clementmarcotte

Bonjour,

Commence par enlever le s à Paths.
15/01/2019, 19h29
Smoucy

Fait.
15/01/2019, 20h09
clementmarcotte

As-tu exécuté ton code après ?

ET cela donne quoi ?
15/01/2019, 20h23
Smoucy

J'ai supprimé les s de tous les paths toujours le même résultat.
J'ai également essayé de supprimer un seul s. Et forcément comme la fonction s'appelle paths avec s et si je la renomme path sa ne marchera pas

1 pièce(s) jointe(s)

Bonsoir,

Je crois exécuter exactement le code que tu désignes comme responsable du problème (sauf que comme je n'ai pas d'URL à affecter, j'envoie la chaine paths(ListBox1.SelectedIndex) dans un MessageBox) :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Public Class Form1
 
    Dim paths As String()
    Dim filename As String()
 
    Private Sub BAddSong_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BAddSong.Click
        If (OpenFileDialog1.ShowDialog = DialogResult.OK) Then
            filename = OpenFileDialog1.SafeFileNames
            paths = OpenFileDialog1.FileNames
            For i As Integer = 0 To filename.Length - 1
                ListBox1.Items.Add(filename(i))
 
            Next
        End If
    End Sub
 
    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        MessageBox.Show(paths(ListBox1.SelectedIndex))
    End Sub
 
End Class

Mais je n'obtiens aucune erreur. Le problème se situe donc ailleurs (à moins que dans AxWindowsMediaPlayer1.URL ):

Pièce jointe 441768
.... :)

16/01/2019, 16h13
Smoucy

Sa pourrait être du a une autre partie du code ? Mhn. Le message d'erreur est System IndexOutOfRangeException. Donc c'est bien un problème de collection avec la listbox mais je n'arrive pas a trouver la solution.
16/01/2019, 17h10
Phil Rob

1 pièce(s) jointe(s)

En tous cas, mon code (qui est le tien à l'exception du MessageBox) ne produit pas d'erreur sur mon ordi. Et comme c'est visible sur l'illustration que j'ai envoyée, je place plus que 2 fichiers dans la ListBox.
Je te mets le dossier de test complet en zip (Pièce jointe 442024) de sorte que tu puisses tester à loisir sans compromettre ton propre code. Et quand tu n'as pas d'erreur avec mon code, tu peux peut-être remplacer la MessageBox par AxWindowsMediaPlayer1.URL ...
Bon travail,
16/01/2019, 17h16
clementmarcotte

Bonjour,

Citation:

Envoyé par Smoucy

J'ai supprimé les s de tous les paths toujours le même résultat.
J'ai également essayé de supprimer un seul s. Et forcément comme la fonction s'appelle paths avec s et si je la renomme path sa ne marchera pas

Désolé, je n'avais pas remarqué ta ligne:

Code:

Dim paths As String()

~~Mais, elle fait quoi ta fonction paths ?~~

De plus, tu as déjà une classe Path dans le Framework pour faire les opérations sur les chemins d'accès et les noms de fichiers. Donc, ma boule de cristal me dit que ta fonction fait probablement juste réinventer la roue. ;)
16/01/2019, 17h42
Smoucy

Merci pour vos réponses, je vais essayé le dossier zip en question. Pour la classe path c'est vrai que je pourrais l'utiliser et je vais le faire si je ne trouve pas de solution adapté a ce code.

Je viens justement de tester, bizarrement la musique ce joue belle est bien avec ton code. Donc sa ne vient vraiment pas de cette part mais d'une autre.
16/01/2019, 17h55
clementmarcotte

Bonjour,

Citation:

Envoyé par Phil Rob

Bonsoir,

sauf que comme je n'ai pas d'URL à affecter,)

Cela n'a pas d'importance. url est une propriété de l'ActiveX de Windows Media Player. Cela peut être une adresse Internet, ou même un banal chemin d'accès de Windows. La seule exigence, c'est que ce soit un chemin d'accès valide. Mais, si le fichier est bien récupéré par la boîte de dialogue, le chemin d'accès devrait logiquement être valide

Mais, il n'est pas nécessaire d'utiliser un WebBrowser pour écouter la musique sur sa propre machine. Il suffit d'ajouter l'ActiveX à la boîte à outils, puis de l'ajouter à la Form.
16/01/2019, 17h56
Smoucy

Dans le dossier zip que j'ai tester je ne peux pas sélectionner un autre fichier sans qu'il se produise l'erreur, même chose dans le mien. Maintenant quand je sélectionne deux fois un fichier ou que je le désélectionne ça produit l'erreur. Sinon je peux ajouter tant de fichier que je veux dans les deux projets. Donc problème de sélection. Vous pouvez essayé de reproduire l'erreur facilement. Si vous souhaitez la reproduire, télécharger le .zip de ci-dessus, modifié le code messagebox en AxWindowsMediaPlayer1.URL = paths(ListBox1.SelectedIndex).
Ajoutez 4 fichiers peux importe si c'est les même. Ensuite sélectionner en un puis un autre. C'est actuellement l'erreur que j'ai.
16/01/2019, 21h38
Phil Rob

J'ai compris ... :D
J'ai pu constater l'erreur même avec la MessageBox : elle se produit dès lors qu'on a activé une 2ème fois l'OpenFileDialog (et c'est pas la faute à ce dernier).
Lorsqu'on active une 2ème fois l'OpenFD, ET qu'on choisi un fichier, on remplace le tableau Paths précédent. Il s'en suit que la ligne sélectionnée dans la ListBox est à un indice qui n'a plus rien à voir avec ceux du tableau, d'où le dépassement de la limite.
Je pense que le remplacement de Dim Paths AS String() par Dim Paths() As String résoudra le problème. Mais il faut gérer l’agrandissement du tableau avec Redim Preserve et un peu d'imagination ...
J'y regarde dès que j'ai un peu de temps (pas sûr du tout pour ce soir).
A bientôt.
16/01/2019, 21h56
Smoucy

Je vois.Prend ton temps, je te rémercie d'accorder du temps à m'aider.

Voila, ça devrait aller !
Attention, je n'ai fait que quelques tests, à toi de voir si ça tient ...
N'oublie pas de modifier la déclaration : Dim paths() As String

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
    Dim paths() As String
    Dim filename As String()
    ' ...
 
    Private Sub BAddSong_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BAddSong.Click
 
        Dim TaillePaths As Integer
 
        If (OpenFileDialog1.ShowDialog = DialogResult.OK) Then
            filename = OpenFileDialog1.SafeFileNames
            If ListBox1.Items.Count = 0 Then
                TaillePaths = 0
                ReDim paths(filename.Length - 1)
            Else
                TaillePaths = paths.Length
                ReDim Preserve paths(TaillePaths + filename.Length - 1)
            End If
 
            For i As Integer = TaillePaths To TaillePaths + filename.Length - 1
                paths(i) = OpenFileDialog1.FileNames(i - TaillePaths)
                ListBox1.Items.Add(paths(i))
            Next
        End If
    End Sub

Bonne nuit ...

17/01/2019, 19h02
Smoucy

Je viens de tester le code, il marche bien! Merci beaucoup pour ton aides et tes réponses rapide. Surtout que tu as fais ça au soir. Je peux désormais sélectionner les fichiers que je veux, aucun problème
Merci.