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 : 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 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
Partager