Bonjour à tous,

J'ai créé sous visual studio 2010 en vb.net un programme qui me permets de convertir des fichiers audio. Mon souci, c'est qu'il ne rafraichit pas la fenêtre à la ligne:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
ListBox1.SelectedIndex = compte
Voici mon code:
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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim dir, Param, tmp, tmp1 As String
        Dim listFile(), ListeFichier, fichier, Fichier1 As Object
        Dim compte As Integer
        On Error Resume Next
        For compte = 0 To ListBox1.Items.Count - 1
            Me.Activate()
            Me.Focus()
            ListBox1.SelectedIndex = compte
            Me.Refresh()
            Delay(500)
            Label7.Text = Repertoire.Text & "\" & ListBox1.SelectedItem.ToString
            dir = Label7.Text & "\audio"
            listFile = Directory.GetFiles(dir, "*.wav")
            If listFile.Length <> 0 Then
                For Each fichier In listFile
                    Dim file As New FileInfo(fichier)
                    tmp1 = file.DirectoryName
                    If tmp1 <> tmp Then
                        tmp = tmp1
                        Param = " -convert -addfolder " & Chr(34) & dir & Chr(34) & " -format .ogg -outfolder " & Chr(34) & dir & Chr(34) & " -overwrite ALWAYS -hide"
                        Shell("C:\switch\switch.exe " & Param, AppWinStyle.NormalFocus, False)
                        Shell("C:\switch\switch.exe " & " -clear -hide", AppWinStyle.NormalFocus, True)
                    End If
                Next
                ListeFile = Nothing
            End If
        Next
        Shell("C:\switch\switch.exe " & " -hide -exit", AppWinStyle.NormalFocus, True)
        If listFile.Length <> 0 Then
            For Each fichier In listFile
                Dim file As New FileInfo(fichier)
                System.IO.File.Delete(file.DirectoryName & "\" & file.Name)
            Next
            ListeFile = Nothing
        End If
    End Sub
    Private Sub Delay(ByVal Temps As Integer) 'Ne renvoie rien
        Dim lngEndingTime As Long
        lngEndingTime = GetTickCount() + (Temps)
        Do While GetTickCount() < lngEndingTime
        Loop
    End Sub
End Class
Merci a vous de bien vouloir me venir en aide et bonne journée à tous!