Bonsoir à tous
Pour ouvrir un form qui se nomme 'VisuAffches' j'utilise un menu qui se trouve dans un form principal
Hors visuaffiches est assez long à s'afficher
Aussi je voudrai mettre une progressbar pour patienter
Mais je ne sais pas où la placer : dans le menu principal ou dans la form visuaffiches
Pour info je vous mets les codes
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Private Sub AffichesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AffichesToolStripMenuItem.Click
        VisuAffiches.Show()
    End Sub
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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
 Private Sub LstFill(ByVal ipath As String)
        ipath = "C:\AffichesModifs"
        Dim xx As Integer = 0
        Try
            Dim ist As String
            Dim i As Integer = 0
            Dim opt As System.IO.SearchOption = System.IO.SearchOption.TopDirectoryOnly
            Me.Cursor = Cursors.WaitCursor
            With lstvItem
                .BeginUpdate()
                .Clear()
            End With
 
            imglst.Images.Clear()
 
            ReDim imgPaths(0)
 
            For Each ist In Directory.GetFiles(ipath, "*", opt)
                If ftype.Contains(Path.GetExtension(ist)) = True Then
                    ReDim Preserve imgPaths(i)
                    imgPaths(i) = ist
 
                    Select Case Path.GetExtension(ist)
                        Case Is = ".jpg", ".jpeg"
                            imglst.Images.Add(My.Resources.jpg)
                    End Select
 
                    With lstvItem
                        .Items.Add(Path.GetFileNameWithoutExtension(ist), i)
                        .Items.Item(i).SubItems.Add(ist)
                    End With
                    xx += 1
                    i += 1
                End If
            Next
            Me.Cursor = Cursors.Arrow
            lstvItem.EndUpdate()
            Application.DoEvents()
 
            If Me.lstvItem.Items.Count <> 0 Then
                For i = 0 To imglst.Images.Count - 1
                    Dim img As Image = Image.FromFile(imgPaths(i))
                    Dim w As Double = img.Width / 5
                    Dim h As Double = img.Height / 5
                    imglst.Images.Item(i) = Image.FromFile(imgPaths(i)).GetThumbnailImage(w, h, Nothing, IntPtr.Zero)
                    ListBox1.Items.Add(imgPaths(i))
                    lstvItem.RedrawItems(i, i, True)
                    Application.DoEvents()
                Next
            End If
 
        Catch ex As Exception
 
        End Try
 
        If lstvItem.Items.Count <> 0 Then
 
        End If
 
    End Sub
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
 Private Sub VisuAffiches_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        LstFill(ipath)
    End Sub
Merci de bien vouloir me guider