first commit

lecteur/lecteur média/Form175.vb

@@ -0,0 +1,43 @@
+Imports System.ComponentModel
+Imports System.IO
+Public Class Form175
+    Dim dl As Integer = 1
+    Private Sub Form175_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Dim lines1a() As String = File.ReadAllLines(théme)
+
+        If lines1a(0) = 2 Then
+            Me.BackColor = Color.FromArgb(64, 64, 64)
+        ElseIf lines1a(0) = 3 Then
+            Me.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
+        Else
+
+        End If
+        BackgroundWorker1.RunWorkerAsync()
+    End Sub
+
+    Private Sub BackgroundWorker1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
+        Compression.ZipFile.CreateFromDirectory(repertoireavis, exporterconfig & "\configuration lecteur média " & vr & " " & My.Computer.Name & " Le " & Today.Day & "-" & Today.Month & "-" & Today.Year & " a " & TimeOfDay.Hour & "h" & TimeOfDay.Minute & ".CLM")
+    End Sub
+
+    Private Sub BackgroundWorker1_ProgressChanged(sender As Object, e As ProgressChangedEventArgs) Handles BackgroundWorker1.ProgressChanged
+        ProgressBar1.Value = e.ProgressPercentage
+        Me.Text = "Exportation: " & e.ProgressPercentage & "%"
+    End Sub
+
+    Private Sub BackgroundWorker1_RunWorkerCompleted(sender As Object, e As RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
+        dl = 0
+        ProgressBar1.Style = ProgressBar1.Style.Blocks
+        ProgressBar1.Value = 100
+        MsgBox("Exportation terminer", MsgBoxStyle.Information)
+        Close()
+    End Sub
+
+    Private Sub Form175_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
+        If dl = 1 Then
+            e.Cancel = True
+            MsgBox("L’exportation est en cours, merci de patientez", MsgBoxStyle.Exclamation)
+        Else
+
+        End If
+    End Sub
+End Class