ProgressBar installation de logiciel
Bonne année a tout le monde
J'ai besoin d'aide s'il vous plait
Je veux créer une interface pour installer plusieurs logiciels en même temp, en mode silent
Et je veux ajouter une progress bar pour voir l' avancement de chaque installation.
1 - le code pour installation des logiciels est OK, mais progressbar n'affiche rien.
ma question est :
Comment ajouter progressbar pour voir l'avancement de l'instalation de chaque logiciel ?
merci d'avance
voici mon Code
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
| Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
BackgroundWorker1.RunWorkerAsync()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Control.CheckForIllegalCrossThreadCalls = False
End Sub
Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
Dim p As New Process
BackgroundWorker1.ReportProgress()
System.Threading.Thread.Sleep(100)
p.StartInfo.FileName = "cmd.exe"
p.StartInfo.Arguments = "/c start C:\Users\Computer\Desktop\vlc\vlc-2.2.1-win32.exe /S"
p.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
p.Start()
System.Threading.Thread.Sleep(100)
End Sub
Private Sub BackgroundWorker1_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles BackgroundWorker1.ProgressChanged
ProgressBar1.Value = e.ProgressPercentage
End Sub
Private Sub BackgroundWorker1_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
Label1.Text = "Success"
End Sub
End Class |
