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